📄 online.asp

📁 admin/admin.asp是WAP的后台管理登陆页面

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!-- #include file="conn.asp" -->
<!--#include file="onlines.asp"--><?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"/>
</head>
<card title="社区在线">
<p mode="nowrap">
<%
function pnname(x)
set rspp=Server.CreateObject("ADODB.Recordset")
rsstrp="select ID,nc from sheet where shouji='" & x & "'"
rspp.open rsstrp,conn,1,2
if rspp.recordcount<>0 then
response.write(rspp("nc") & "(ID:"& rspp("ID") &")")
else
response.write "未注册游客"
end if
end function

function pnid(x)
set rspp=Server.CreateObject("ADODB.Recordset")
rsstrp="select ID from sheet where shouji='" & x & "'"
rspp.open rsstrp,conn,1,2
if rspp.recordcount<>0 then
response.write(rspp("ID"))
end if
end function
dim rspb
set rspb=Server.CreateObject("ADODB.Recordset")
rspb.open "select phone from login where datediff('s',date,now)<300 order by ID desc",conn,1,2

if rspb.recordcount>0 then
response.write("共" & rspb.recordcount & "位会员在线：<br/>")
do while not rspb.EOF
%>
<a href="smslook.asp?pID=<%=pnid(rspb("phone"))%>&amp;shouji=<%=request("shouji")%>"><%=pnname(rspb("phone"))%></a><br/>
<%
rspb.movenext
loop
else
end if
rspb.close
set rspb=nothing
conn.close
set conn=nothing
%>----------<br/>
<a href="bbs.asp?shouji=<%=request("shouji")%>">[论坛首页]</a><br/>
<a href="../index.asp?shouji=<%=request("shouji")%>">[网站首页]</a><br/>
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -