showonline.asp

网站整站

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/function.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
if checklogined()=false then
YCGO("error.asp?action=error&text="&server.urlencode("系统无法识别您的身份!"))
response.end
end if
title="查看在线用户列表"
execute(loadskin(skinmode))
call NowWhere("在线用户列表","showonline.asp")
call head()
%>
<table  border="0" id="content" cellspacing="0" cellpadding="0">
<tr>
<td  valign="top" id="show" nowrap>
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td class="111" nowrap></td><td  class="222"  nowrap>
<%
YC("&nbsp;当前位置：<a href=index.asp>本站首页</a>→在线用户列表")
%>
<td class="333" nowrap></td></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr><td class="444" nowrap></td>
<td  class="555" valign="top" nowrap>
<%
YC("<table border=""1"" width=""100%"" bordercolor="""&color(0)&""" align=""center"" frame=""void"">")
YC("<tr bgcolor="""&color(2)&""" height='25'>")
YC("<td align=""center"" width='100'>用户名称</td>")
YC("<td align=""center"" width='250'>访问时间/最后活动</td>")
YC("<td align=""center"" width='130'>活动地点</td>")
YC("<td align=""center"" width='110'>I P 地址</td>")
YC("<td align=""center"" width='150'>操作系统/浏览器</td>")
YC("</tr>")
if request.querystring("action")="visitor" then
sql="select * from [YC_online] where UserName='游客' order by lastime Desc"
elseif request.querystring("action")="member" then
sql="select * from [YC_online] where UserName<>'游客' order by lastime Desc"
else
sql="select * from [YC_online] order by lastime Desc"
end if
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
YC("<tr height='25' bgcolor="""&color(1)&"""   onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';""><td align=""center"">") 
if rs("UserName")<>"游客" then
YC("&nbsp;<a href=""user.asp?action=show_user_data&user="&rs("UserName")&""" title=""查看["&rs("UserName")&"]的资料"">"&rs("UserName")&"</a>&nbsp;<a href=""user.asp?action=user_sms_send&user="&rs("UserName")&""" title=""发送短信给["&rs("UserName")&"]"">¤</a>")
else
YC(rs("UserName"))
end if
YC("</td><td align=""center"" bgcolor="""&color(2)&""">"&replacetime(rs("startime"),"5")&"/"&replacetime(rs("lastime"),"5")&"</td>")
YC("<td align=""center""><a href="""&rs("placelink")&""">"&rs("placename")&"</a></td>")
YC("<td align=""center"" bgcolor="""&color(2)&"""><form method='post' action='http://www.ip138.com/ips.asp' name='ipform"&rs("id")&"' target='_blank'><input type='hidden' name='ip' size='20' value='"&rs("ip")&"'> <input type='hidden' name='action' value='2'> <a href='javascript:ipform"&rs("id")&".submit();'>"&rs("ip")&"</a></form></td>")
YC("<td align=""center"">"&system(rs("browser"))&"/"&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
if request.querystring("action")="all" then
YC("<tr><td colspan=""6"" height=""100"" align=""center""><font color=red><b>暂时没有在线访客！</</b></font></td></tr>")
elseif request.querystring("action")="visitor" then
YC("<tr><td colspan=""6"" height=""100"" align=""center""><font color=red><b>暂时没有在线访客！</</b></font></td></tr>")
elseif request.querystring("action")="member" then
YC("<tr><td colspan=""6"" height=""100"" align=""center""><font color=red><b>暂时没有在线会员！</</b></font></td></tr>")
end if
end if
YC("<tr height=""25"" bgcolor="""&color(2)&"""><td colspan=""6"" align=""center"">")
call page("在线","人")
YC("</td></tr></table>")
%>
<td class="666" nowrap></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td  class="777" nowrap></td>
<td class="888" nowrap></td>
<td class="999" nowrap></td>
</tr></table>
</td></tr></table>
<%call foot()%>