📄 onile.asp
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %><?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<!--#include file="conn.inc"-->
<!--#include file="ydzq1.asp"-->
<card title="在线会员">
<p>
<% dim rs,sql,add,rss,sqll,bbsid,tid,act
bbsid=request.querystring("bbsid")
tid=request.querystring("tid")
act=request.querystring("act")
Set rs = Server.CreateObject("ADODB.Recordset")
if act<>"all" then
rs.Open "select * from Users where tjj >= DateAdd('n', -60, Now()) and endleibie="&bbsid,conn,1,1
else
rs.Open "select * from Users where tjj >= DateAdd('n', -60, Now())",conn,1,1
end if
If Not rs.eof Then
Dim PageSize,i
PageSize=10
Dim Count,page,pagecount,gopage
gopage="onile.asp?hk="&hk&"&bbsid="&bbsid&"&tid="&tid&"&act="&act&"&"
Count=rs.recordcount
if act<>"all" then
response.write("本版共有" &Count& "人在线<br/>")
else
response.write("社区共有" &Count& "人在线<br/>")
end if
page=int(request.QueryString ("page"))
if page<=0 or page="" then page=1
pagecount=(count+pagesize-1)\pagesize
response.write("----------<br/>")
if page>pagecount then page=pagecount
rs.move(pagesize*(page-1))
For i=1 To PageSize
If rs.eof Then Exit For
Response.write "<a href='face.asp?id=" & rs("id") & "&hk="&hk&"'>"&i+(page-1)*PageSize&"." & ubb(rs("nini")) & "</a>(ID:" & ubb(rs("id")) & ")<br/>"
rs.moveNext
Next
if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳转</a><br/>"
Else
%>
暂时没有在线会员！<br/>
<%end if
if act<>"all" then
if tid<>"" then%>
<a href='bbs_view.asp?hk=<%=hk%>&bbsid=<%=bbsid%>&tid=<%=tid%>'>查看主贴</a> <br/>
<%end if%>-----------<br/>
<a href='bbs_list.asp?hk=<%=hk%>&bbsid=<%=bbsid%>'>返回上级</a>
<%end if%>
<!--#include file="fanhui.asp"-->
</p>
</card>
</wml>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -