index.asp

此文件为一个电子同学录

do while (not rs.eof and i<6)
%>
<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<6)
%>
<tr>
<td width=80 height=22 class=tablebody1 align=center><a href=userinfo.asp?id=<%=rs("postuserid")%>><%=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=d_index.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>
<p align="center">
<span style="background-color: #E3F1D1">现在是：<script language=JavaScript>
<!-- Begin
 
 today=new Date();
 function initArray(){
   this.length=initArray.arguments.length
   for(var i=0;i<this.length;i++)
   this[i+1]=initArray.arguments[i]  }
   var d=new initArray(
     "星期日",
     "星期一",
     "星期二",
     "星期三",
     "星期四",
     "星期五",
     "星期六");
document.write(
     "<font color=##000000 style='font-size:9pt;font-family: 宋体'> ",
     today.getYear(),"年",
     today.getMonth()+1,"月",
     today.getDate(),"日",
     d[today.getDay()+1],
     "</font>" );
//  End -->
</script><br></span><embed src="images/colok.swf" width="130" height="130" type="application/x-shockwave-flash" wmode="transparent"><br><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"-->