showonline.asp

学校网站管理系统

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="sqlx.asp"-->
<%
title="查看在线用户列表"
if userlogin<>sys then
YCMS("<script language=javascript>alert('您还没有登陆！');this.location='index.asp';</script>")
response.end
end if
call top()
YCMS("<table border='0' cellspacing='0'cellpadding='0' align='center' class='bgcolor'>")
YCMS("<tr><td class='left'></td><td class='width'>")
YCMS("<table width='100%' border='0'  cellspacing='0' cellpadding='0'><tr>")
YCMS("<td valign='top' align='center'>")
call br()
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' width='100%'>")
YCMS("<tr><td class='showtop'>&emsp;<img border=0 src='img/mor.gif' align=absmiddle>&nbsp;在线用户列表!</td></tr></table>")
YCMS("<table border='0' cellspacing='0' cellpadding='0' align='center' width='100%'><tr>")
YCMS("<td  class='showcenter' valign='top'>")
YCMS("<table width='100%' border='1' cellpadding='0' cellspacing='0' bordercolor=#037000 frame='void' rules='rows'>")
YCMS("<tr class='bg' height='25'>")
YCMS("<td align='center' width='100'>用户名称</td>")
YCMS("<td align='center'>访问时间</td>")
YCMS("<td align='center' nowrap>最后活动</td>")
YCMS("<td align='center' nowrap>用户IP</td>")
YCMS("<td align='center' nowrap>操作系统</td>")
YCMS("<td align='center' nowrap>浏览器</td></tr>")
sql="select * from [YC_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
YCMS("<tr height='25'><td align='center'>") 
if rs("UserName")<>"游客" then
YCMS("<a href='sms.asp?action=send&user="&rs("UserName")&"' title='发短信给["&rs("UserName")&"]'>"&rs("UserName")&"</a>")
else
YCMS(rs("UserName"))
end if
YCMS("</td><td align='center'>"&rs("startime")&"</td>")
YCMS("<td align='center'>"&rs("lastimebk")&"</td>")
YCMS("<td align='center'>"&rs("ip")&"</td>")
YCMS("<td align='center'>"&system(rs("browser"))&"</td>")
YCMS("<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
YCMS("<tr><td colspan='6' height='100' align='center'><font color=red><b>暂时没有在线访客！</</b></font></td></tr>")
end if
YCMS("<tr height=25 class=bg><td colspan=6 align=center>") 
call page("在线访客","人")
YCMS("</td></tr></table></TD></TR></table>")
YCMS("<table border=0 cellspacing=0 cellpadding=0 align=center width='100%'><tr><td class=rightfootcenter></td></tr></table>")
call br()
YCMS("</td></tr></table></td><td class=right></td></tr></table>")
call foot()
%>