www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > online.asp
<%@language="VBScript"%>
<!--#include file="title.asp"-->
<%
contents=contents &"<title>在线列表－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if gbmaduser="" then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你还没登陆或者已经掉线。<br>请<a href=""login.asp"">登陆</a>，2秒后自动执行<Script Language=""JavaScript"">setTimeout(""location.href='login.asp'"",3000)</script>。<br><br></td></tr>"
else
if Right(validate,Len(gbmaduser))<>gbmaduser then
contents=contents &"<script language=""JavaScript"">alert(""出错：验证Cookies信息出错，请重新登陆。\n引起该错误的原因可能是因为你手动修改了Cookies。"");window.close();</script>"
else
if gb<30 then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你的"& gbname &"还没有达到30，不能查看在线列表。<br><a href=""JavaScript:history.back();"">返回刚才的页面</a>。<br><br></td></tr>"
else
Dim i,n
rs.Open "Delete From online Where lasttime<#"& Date() &" "& TimeValue(TimeSerial(Hour(Time()),Minute(Time())-10,Second(Time()))) &"# or lasttime<=#"& Date() &"#",conn,1,3
rs.Open "online Where unshow=0 or unshow is Null Order by gbmaduser",conn,1,1
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">在线人数</td></tr>"&_
"<tr class=""tds""><td>在线人数："& rs.RecordCount &"，点击用户名可以查看其基本资料，点用户名前的发送密信发信息给该用户。"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"
For i=1 to rs.RecordCount
n=n+1
if n=5 then n=1
if n=1 then
contents=contents &"<tr><td width=""25%""><a href=""sendmessage.asp?username="& rs("gbmaduser") &""" onClick=""return shows(this.href);"">发送密信</a> <a href=""userinfo.asp?username="& rs("gbmaduser") &""" onClick=""return showb(this.href);"">"& rs("gbmaduser") &"</a></td>"
elseif n=2 then
contents=contents &"<td width=""25%""><a href=""sendmessage.asp?username="& rs("gbmaduser") &""" onClick=""return shows(this.href);"">发送密信</a> <a href=""userinfo.asp?username="& rs("gbmaduser") &""" onClick=""return showb(this.href);"">"& rs("gbmaduser") &"</a></td>"
elseif n=3 then
contents=contents &"<td width=""25%""><a href=""sendmessage.asp?username="& rs("gbmaduser") &""" onClick=""return shows(this.href);"">发送密信</a> <a href=""userinfo.asp?username="& rs("gbmaduser") &""" onClick=""return showb(this.href);"">"& rs("gbmaduser") &"</a></td>"
elseif n=4 then
contents=contents &"<td width=""25%""><a href=""sendmessage.asp?username="& rs("gbmaduser") &""" onClick=""return shows(this.href);"">发送密信</a> <a href=""userinfo.asp?username="& rs("gbmaduser") &""" onClick=""return showb(this.href);"">"& rs("gbmaduser") &"</a></td></tr>"
end if
rs.MoveNext
Next
if n=1 then
contents=contents &"<td width=""25%""></td><td width=""25%""></td><td width=""25%""></td></tr>"
elseif n=2 then
contents=contents &"<td width=""25%""></td><td width=""25%""></td></tr>"
elseif n=3 then
contents=contents &"<td width=""25%""></td></tr>"
end if
contents=contents &"</table>"
rs.Close
contents=contents &"</td></tr>"
end if
end if
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->