WEB源码(ASP,PHP,...)

开发平台：
HTML/CSS

index.asp：源码内容
							<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="inc/ubbcode.asp"-->
<%
response.buffer=true
dim abgcolor
stats="班级首页"
call head()
call main()
sub main()
abgcolor="tablebody2"
%>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">  
<tr> 
<td class=tablebody1 width=175 valign=top class=tableborder2>
<%
	if not founduser then
%>
<table width=175 cellpadding=0 cellspacing=0 border=0 class=tableborder2>
<form action="chklogin.asp" method=post> 
<tr>
<td height=22 class=tablebody2 colspan=2 align=center>用户登陆</td>
</tr>
<tr>
<td height=30 width=60 class=tablebody1>&nbsp;<FONT face="Geneva, Arial, Helvetica, san-serif">用户名</FONT></td>
<td width=115 class=tablebody1> <input name=username type=text size=15></td>
</tr>
<tr>
<td height=30 width=60 class=tablebody1>&nbsp;密&nbsp;&nbsp;码</td>
<td width=115 class=tablebody1> <input name=password type=password size=15></td>
</tr>
<tr>
<td height=30 colspan=2 align=center class=tablebody1><INPUT type=image height=19 width=58 src=<%=txl_info(7)%>left06.gif>　<a href=register.asp><img src=<%=txl_info(7)%>left07.gif height=19 width=58 border=0></a></td>
</tr>
<tr>
<td height=30 colspan=2 align=center class=tablebody1><a href=lostpass.asp style="cursor:help"><u>忘记密码？</a></u>　<a href=help.asp style="cursor:help"><u>需要帮助？</a></u></td>
</tr>
</form>
</table>
<%
	else 
	set rs=server.createobject("adodb.recordset")
	sql="Select * from [User] where userid="&userid
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		errmsg=errmsg+"<br>"+"<li>该用户名不存在，可能被管理员删除。"
		founderr=true
		exit sub
	else	
		realname=rs("realname")
		sex=rs("sex")
		logins=rs("logins")
		bbscount=rs("bbscount")
		photocount=rs("photocount")
		bookcount=rs("bookcount")
		usermoney=rs("usermoney")
		usergroup=rs("usergroup")
		titlepic=rs("titlepic")
	end if
	rs.close
	set rs=nothing
%>
<table width=175 cellpadding=0 cellspacing=0 border=0 class=tableborder2>
<tr>
<td height=22 class=tablebody2 colspan=2 align=center>欢迎<%=realname%><%=iif(sex,"女士","先生")%>光临！</td>
</tr>
<tr>
<td height=120 class=tablebody1>
<font style="line-height: 150%">
&nbsp;&nbsp;访问次数： <%=logins%> 次<br>
&nbsp;&nbsp;发表留言： <%=bookcount%> 条<br>
&nbsp;&nbsp;发表贴子： <%=bbscount%> 条<br>
&nbsp;&nbsp;上传图片： <%=photocount%> 张<br>
&nbsp;&nbsp;类别： <%=usergroup%> <br>
&nbsp;&nbsp;等级： <img src=<%=txl_info(7)&titlepic%> border=0><br>
</font>
</td>
</tr>
<tr>
<td height=25 class=tablebody2 colspan=2 align=center>
<%if Cint(newincept())>Cint(0) then%>
<bgsound src="<%=txl_info(7)%>mail.wav" border=0>
<%if Cint(txl_set(3))=0 then%>
<script language=JavaScript>openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)</script>
<%end if%>
<img src=<%=txl_info(7)%>msg_new.gif> <a href="usersms.asp?action=inbox">我的收件箱</a> (<a href="javascript:openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)"><font color="<%=txl_body(20)%>"><%=newincept()%> 新</font></a>)
<%else%>
<img src=<%=txl_info(7)%>msg_no.gif> <a href="usersms.asp?action=inbox">我的收件箱</a> (<font color=gray>0 新</font>)
<%end if%>
</td>
</tr>
<tr>
<td height=5 colspan=2 align=center class=tablebody1></td>
</tr>
</table>
<%
	end if
%>
<table width=175 cellpadding=0 cellspacing=0 border=0 class=tableborder2>
<tr>
<td height=25 class=tablebody2 colspan=2 align=center>当前公告</td>
</tr>
<tr>
<td height=200 class=tablebody1 colspan=2 align=center>
<table width=95% cellpadding=0 cellspcing=0 border=0>
<%
  	set rs = server.createobject("adodb.recordset")
	sql="SELECT * FROM txlnews where active=1" 
	rs.open sql,conn,1,1
%>
<tr>
<td align=center>
<marquee direction=up height=170  id=m onmouseout=m.start() onMouseOver=m.stop() scrollamount=2 align="center"><%=ubbcode(rs("content"))%></marquee>
               <div align=center><%=formatdatetime(rs("addtime"))%></div>
</tr>
<%
rs.close
%>
</table>
</td>
</tr>
<tr>
<td height=25 class=tablebody2 colspan=2 align=center>玩转导航</td>
</tr>
<tr>
<td height=30 width=50 align=right class=tablebody1><img src=<%=txl_info(6)&txl_skinpic(13)%> border=0></td>
<td width=125 class=tablebody1>&nbsp;<a href=register.asp><u>我要注册</u></a></td>
</tr>
<tr>
<td height=30 width=50 align=right class=tablebody1><img src=<%=txl_info(6)&txl_skinpic(13)%> border=0></td>
<td width=125 class=tablebody1>&nbsp;<a href=lostpass.asp><u>忘记了密码</u></a></td>
</tr>
<tr>
<td height=30 align=right class=tablebody1><img src=<%=txl_info(6)&txl_skinpic(13)%> border=0></td>
<td class=tablebody1>&nbsp;<a href=g_post.asp><u>发表新留言</u></a></td>
</tr>
<tr>
<td height=30 align=right class=tablebody1><img src=<%=txl_info(6)&txl_skinpic(13)%> border=0></td>
<td class=tablebody1>&nbsp;<a href=b_post.asp><u>发表新帖子</u></a></td>
</tr>
<tr>
<td height=30 align=right class=tablebody1><img src=<%=txl_info(6)&txl_skinpic(13)%> border=0></td>
<td class=tablebody1>&nbsp;<a href=p_send.asp><u>上传新照片</u></a></td>
</tr>
<tr>
<td height=30 align=right class=tablebody1><img src=<%=txl_info(6)&txl_skinpic(13)%> border=0></td>
<td class=tablebody1>&nbsp;<a href=u_modifymy.asp><u>修改我的资料</u></a></td>
</tr>
<tr>
<td height=30 align=right class=tablebody1><img src=<%=txl_info(6)&txl_skinpic(13)%> border=0></td>
<td class=tablebody1>&nbsp;<a href=c_index.asp><u>学友通讯录</u></a></td>
</tr>
<tr>
<td height=30 align=right class=tablebody1><img src=<%=txl_info(6)&txl_skinpic(13)%> border=0></td>
<td class=tablebody1>&nbsp;<a href=usersms.asp><u>我的短信</u></a></td>
</tr>
<tr>
<td height=30 align=right class=tablebody1><img src=<%=txl_info(6)&txl_skinpic(13)%> border=0></td>
<td class=tablebody1>&nbsp;<a href=u_myskin.asp><u>选择界面风格</u></a></td>
</tr>
<tr>
<td height=25 class=tablebody2 colspan=2 align=center><a href=help.asp><u>在线帮助</u></a></td>
</tr>
<tr>
<td height=5 colspan=2 align=center class=tablebody1></td>
</tr>
<tr>
<td height=25 class=tablebody2 colspan=2 align=center>友情链接</td>
</tr>
<tr>
<td height=100% class=tablebody1 colspan=2 align=center><br>
<font style="line-height:150%">
<%
	sql="select urlname,urlinfo,url from txllink where islogo=0 order by id"
	set rs=conn.execute(sql)
	if not rs.eof and not rs.bof then
	do while not rs.eof
		response.write "<a href="&rs(2)&" target=_blank title="""&rs(1)&""">"&rs(0)&"</a><br>"
	rs.movenext
	loop
	end if
	sql="select urlname,urlinfo,url,logo from txllink where islogo=1 order by id"
	set rs=conn.execute(sql)
	if not rs.eof and not rs.bof then
	do while not rs.eof
		response.write "<a href="&rs(2)&" target=_blank><img src="""&rs(3)&""" border=0 alt="""&rs(0)&"："&rs(1)&""" height=31 width=88></a><br>"	
	rs.movenext
	loop
	end if
%>
</font>
<br>
</td>
</tr>
</table>
</td>
<td bgcolor=<%=txl_body(10)%> width=* valign=top>
<table width=90% cellpadding=0 cellspacing=0 border=0 align=center>
<tr>
<td><%=txl_body(23)%></td>
</tr>
</table><br>
<table width=90% align=center cellpadding=0 cellspacing=0 class=tableborder2>
<tr>
<td class=tablebody2 colspan=3 height=25>&nbsp;<img src=<%=txl_info(7)%>dot03.gif> 班 级 留 言</td>
</tr>
<%
	set rs=server.createobject("ADODB.recordset")
	sql="SELECT * from gbook order by addtime desc"
	rs.open sql,conn,1,1
i=1
do while (not rs.eof and i<7)
%>
<tr>
<td width=80 class=tablebody1 height=22 align=center><a href=userinfo.asp?id=<%=rs("postuserid")%>><%=rs("postuser")%></a></td>
<td width=120 class=tablebody1><%=rs("addtime")%></td>
<td width=* class=tablebody1> &nbsp; <a href=g_index.asp><%=left(rs("title"),16)%><%if len(rs("title"))>16 then%>...<%end if%></a></td>
</tr>
<%
	i=i+1
	rs.movenext
	loop
	rs.close
%>
<tr>
<td class=tablebody1 align=right colspan=3><a href=g_index.asp>更多>>></a>&nbsp;</td>
</tr>
</table><br>
<table width=90% align=center cellpadding=0 cellspacing=0 class=tableborder2>
<tr>
<td class=tablebody2 height=25 colspan=3>&nbsp;<img src=<%=txl_info(7)%>dot03.gif> 班 级 论 坛</td>
</tr>
<%
	set rs=server.createobject("ADODB.recordset")
	sql="SELECT * from topic order by LastTime desc"
	rs.open sql,conn,1,1
	i=1
	do while (not rs.eof and i<7)
%>
<tr>
<td width=80 height=22 class=tablebody1 align=center><a href=userinfo.asp?id=<%=rs("postuser")%>><%=rs("postuser")%></a></td>
<td width=120 class=tablebody1><%=rs("lasttime")%></td>
<td width=* class=tablebody1> &nbsp; <a href=b_show.asp?id=<%=rs("topicID")%>><%=left(rs("title"),16)%><%if len(rs("title"))>16 then%>...<%end if%></a></td>
</tr>
<%
	i=i+1
	rs.movenext
	loop
	rs.close
%>
<tr>
<td class=tablebody1 align=right colspan=3><a href=b_index.asp>更多>>></a>&nbsp;</td>
</tr>
</table><br>
<table width=90% align=center cellpadding=0 cellspacing=0 class=tableborder2>
<tr>
<td class=tablebody2 height=25 colspan=2>&nbsp;<img src=<%=txl_info(7)%>dot03.gif> 班 级 相 册</td>
</tr>
<%
	set rs=server.createobject("ADODB.recordset")
	sql="SELECT top 1 * from imgdata where picset<2 order by addtime desc"
	rs.open sql,conn,1,1
	if rs.eof or rs.bof then 
	response.write "<tr><td class=tablebody1 height=100 align=center>还没有任何照片！</td></tr>"
	else
	response.write "<tr><td class=tablebody1 width=120 height=150 valign=middle align=center>&nbsp;&nbsp;"&_
		"<a href=""p_show.asp?id="&rs("picid")&""" target=_blank ><img src="""&txl_info(12)&rs("filename")&""" border=0  width=100 height=85></a><br><br>"&_
	        "&nbsp;&nbsp;<a href=""p_all.asp""><img src="""&txl_info(6)&txl_skinpic(14)&""" border=0></a></td>"
%>
<td class=tablebody1 width=* valign=top>
<table width=90% align=center cellpadding=4 cellspacing=0 >
<tr>
<td>　</td>
</tr>
<tr>
<td><<< 最新上传照片</td>
</tr>
<tr>
<td>&nbsp;上&nbsp;传&nbsp;人：<%=rs("postuser")%></td>
</tr>
<tr>
<td>&nbsp;上传时间：<%=rs("addtime")%></td>
</tr>
<tr>
<td>&nbsp;照片大小：<%=int(rs("filesize")/1024)%> K</td>
</tr>
<tr>
<td>&nbsp;照片简介：<%=htmlcode(rs("picinfo"))%></td>
</tr>
</table>
</td>
</tr>
<%
rs.close
end if
%>
</table><br>
<table width=90% align=center cellpadding=0 cellspacing=0 border=0>
<tr>
<td width=130 class=tablebody2><img src=<%=txl_info(7)%>left04.gif></td>
<td width=* class=tablebody1>
<%
		set rs=conn.execute("select classid,classname,classinfo from imgclass order by classid") 
		do while not rs.eof
			response.write "&nbsp;<a href=p_more.asp?classid="&rs("classid")&" title="&rs("classinfo")&">"& rs("classname")&"</a>"
		rs.movenext
		loop
		rs.close
%>
</td>
</tr>
<tr>
<td width=130 class=tablebody2><img src=<%=txl_info(7)%>left09.gif></td>
<td width=* class=tablebody1>&nbsp;<a href=usersms.asp>我的短信</a>  
<a href=u_index.asp>我的资料</a> <a href=p_my.asp>我的相册</a></td>
</tr>
<tr>
<td width=130 class=tablebody2><img src=<%=txl_info(7)%>left03.gif></td>
<td width=* class=tablebody1>
<%
'=========生日显示开始================
if cint(txl_set(9))=0 then
	dim age
	dim birthuser
	dim foundbirth
	dim showbirthday
	dim birthNum,birthday
	foundbirth=false
	birthNum=0
	'on error resume next
	sql="select birthuser from config where active=1"
	set rs=conn.execute(sql)
	if not isnull(rs(0)) or rs(0)<>"" then
	birthuser=split(rs(0),"$")
	if ubound(birthuser)<3 then
		foundbirth=false
        elseif cint(birthuser(1))<>0 then
                foundbirth=true
	elseif datediff("d",birthuser(2),Now())>0 then
		foundbirth=false
	else
		foundbirth=true
	end if
	else
	foundbirth=false
	end if
	if not foundbirth then
		set rs=conn.execute("select realname,birthday from [user] where birthday<>''  order by userid") 
		do while not rs.eof
		if   isdate(rs(1)) then
                   if month(rs(1))=month(Now()) and  day(rs(1))=day(Now()) then
			age=datediff("yyyy",rs(1),Now())
			birthday=birthday &"&nbsp;<a href=info.asp?name="&rs(0)&" title=祝"&age&"岁生日快乐！ target=_blank>"&rs(0)&"</a>"
			birthNum=birthNum+1
                   end if
		end if
		rs.movenext
		loop
		rs.close
		set rs=nothing
             if   birthday="" then  birthday="&nbsp;今天没有同学过生日..."
		conn.execute("update config set birthuser='" & birthday & "$" & birthNum & "$" & Now() & "' where active=1")
	else
		birthday=birthuser(0)
		birthNum=birthuser(1)
	end if
	showbirthday=" "&birthday&"  "
	response.write showbirthday
end if
'=========生日显示结束================
%>
</td>
</tr>
<tr>
<td width=130 class=tablebody2><img src=<%=txl_info(7)%>left02.gif></td>
<td width=* class=tablebody1>
<%
call onlineuser()
%>
</td>
</tr>
</table><br>
</td>
<td bgcolor=<%=txl_body(10)%> width=175 valign=top>
<table width=100% align=center cellpadding=0 cellspacing=0 border=0>
<tr>
<td colspan=3><img src=<%=txl_info(7)%>left05.gif width=175></td>
</tr>
<%
	set rs=server.createobject("ADODB.recordset")
	sql="SELECT * from config where active=1"
	rs.open sql,conn,1,1		
%>
<tr>
<td colspan=3 height=150 bgcolor=#F7EFDE>
<font style="line-height:150%">
&nbsp;&nbsp;注册用户： <%=rs("usernum")%> 人<br>
&nbsp;&nbsp;留言数量： <%=rs("GbookNum")%> 条<br>
&nbsp;&nbsp;论坛帖子： <%=rs("BbsNum")%> 条<br>
&nbsp;&nbsp;上传照片： <%=rs("PhotoNum")%> 张<br>
&nbsp;&nbsp;最后注册： <%=rs("LastUser")%>  <br>
&nbsp;&nbsp;需要验证用户： 0 人<br>
</font>
</td>
</tr>
<tr>
<td colspan=3><img src=<%=txl_info(7)%>left08.gif width=175></td>
</tr>
<%
	set rs=server.createobject("ADODB.recordset")
	sql="SELECT top 10 * from [user] order by usermoney desc"
	rs.open sql,conn,1,1
	i=1
	do while (not rs.eof and i<11)
%>
<tr>
<td height=22 valign=middle><img src=digits/<%=i%>.jpg></td>
<td valign=middle><a href=userinfo.asp?id=<%=rs("userid")%>><%=rs("realname")%></a></td>
<td valign=middle><%=rs("usermoney")%></td>
        </tr>
<%
	i=i+1
	rs.movenext
loop
rs.close
%>
</table>
</td>
</tr>
</table>
<%
if instr(scriptname,"index.asp")>0 then
	if txl_ads(0)=1 then
	call admove()
	end if
	if txl_ads(5)=1 then
	call fixup()
	end if
end if
end sub
call foot()
%><!--#include file="online.asp"--><!--#include file="inc/ad_fixup.asp"-->

						