listuser.asp

来自「企业版WAP网站」· ASP 代码 · 共 20 行

<%
dim rshy
set rshy=Server.CreateObject("ADODB.Recordset")
rshy.open "select ID from sheet",conn,1,2
if rshy.recordcount>0 then
response.write("共" & rshy.recordcount & "位注册会员<br/>")
else
end if
rshy.close
set rshy=Server.CreateObject("ADODB.Recordset")
rsstrs="select id from login where datediff('s',date,now)<300"
rshy.open rsstrs,conn,1,2
if rshy.recordcount>0 then
response.write("<a href='online.asp?shouji="&request("shouji")&"'>" & rshy.recordcount & "人在线</a><br/>")
else
end if
rshy.close
set rshy=nothing
%>