index.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="z_dgconn.asp"-->
<%
'=========================================================
' File: index.asp
 ' Date: 2006-04-06
' Script Written by fisher
'=========================================================
' Copyright (C) 2002,2008 Fisher.Com. All rights reserved.
' Web: http://www.hrbyydz.com
' Email: [e-mail]'=========================================================

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=280  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=d_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=z_dgwrite.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=weather.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 media Order By sendtime Desc"
	rs.open sql,connDG,1,1
i=1
do while (not rs.eof and i<6)
%>
<tr>
<td width=50 class=tablebody1 height=22 align=center><a href=userinfo.asp?name=<%=rs("sender")%>><%=rs("sender")%></a></td>
<td width=210 class=tablebody1>点了一首『<a href=z_dgplay.asp?url=<%=replace(rs("url"),chr(32),"%20",1)%>&medianame=<%=replace(rs("medianame"),chr(32),"%20")%> target=_blank><font color=olive><%=left(rs("medianame"),8)%><%if len(rs("medianame"))>8 then%>...<%end if%></font></a>』给&nbsp;&nbsp;<a href=userinfo.asp?name=<%=rs("incept")%>><%=rs("incept")%></a></td>
<td width=* class=tablebody1> &nbsp;<%=rs("sendtime")%> </td>
</tr>
<%
	i=i+1
	rs.movenext
	loop
	rs.close
	call CloseDB()
%>
<tr>
<td class=tablebody1 align=right colspan=3><a href=Z_dglistall.asp>更多>>></a>&nbsp;</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