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