showonline.asp

学校网站源码fdfdffdfdfdfdfdfdfdf

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<%
title="查看在线用户列表"
if userlogin<>sys then
Huaihi("<script language=javascript>alert('您还没有登陆！');this.location='index.asp';</script>")
response.end
end if
call top()
Huaihi("<table border='0' cellspacing='0'cellpadding='0' align='center' class='bgcolor'>")
Huaihi("<tr><td class='left'></td><td class='width'>")
Huaihi("<table width='100%' border='0'  cellspacing='0' cellpadding='0'><tr>")
Huaihi("<td valign='top' align='center'>")
call br()
Huaihi("<table border='0' cellspacing='0' cellpadding='0' align='center' width='100%'>")
Huaihi("<tr><td class='showtop'>&emsp;※&nbsp;在线用户列表!</td></tr></table>")
Huaihi("<table border='0' cellspacing='0' cellpadding='0' align='center' width='100%'><tr>")
Huaihi("<td  class='showcenter' valign='top'>")
Huaihi("<table width='100%' border='1' cellpadding='0' cellspacing='0' bordercolor='"&border&"' frame='void' rules='rows'>")
Huaihi("<tr class='bg' height='25'>")
Huaihi("<td align='center' width='100'>用户名称</td>")
Huaihi("<td align='center'>访问时间</td>")
Huaihi("<td align='center' nowrap>最后活动</td>")
Huaihi("<td align='center' nowrap>用户IP</td>")
Huaihi("<td align='center' nowrap>操作系统</td>")
Huaihi("<td align='center' nowrap>浏览器</td></tr>")
sql="select * from [Huaihi_online] order by lastimebk Desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=20
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof
Huaihi("<tr height='25'><td align='center'>") 
if rs("UserName")<>"游客" then
Huaihi("<a href='sms.asp?action=send&user="&rs("UserName")&"' title='发短信给["&rs("UserName")&"]'>"&rs("UserName")&"</a>")
else
Huaihi(rs("UserName"))
end if
Huaihi("</td><td align='center'>"&rs("startime")&"</td>")
Huaihi("<td align='center'>"&rs("lastimebk")&"</td>")
Huaihi("<td align='center'>"&rs("ip")&"</td>")
Huaihi("<td align='center'>"&system(rs("browser"))&"</td>")
Huaihi("<td align='center'>"&browser(rs("browser"))&"</td></tr>")
if num=rs.pagesize then exit do end if
num=num+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
Huaihi("<tr><td colspan='6' height='100' align='center'><font color=red><b>暂时没有在线访客！</</b></font></td></tr>")
end if
Huaihi("<tr height=25 class=bg><td colspan=6 align=center>") 
call page("在线访客","人")
Huaihi("</td></tr></table></TD></TR></table>")
Huaihi("<table border=0 cellspacing=0 cellpadding=0 align=center width='100%'><tr><td class=rightfootcenter></td></tr></table>")
call br()
Huaihi("</td></tr></table></td><td class=right></td></tr></table>")
call foot()
%>