online.asp

来自「自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑」· ASP 代码 · 共 41 行

ASP
41 行
字号 
<!--#include file="tra.asp"-->
<!--#include file="cconst.asp"-->
<!--#include file="conn.asp"-->
<%
response.ContentType="text/vnd.wap.wml;charset=utf-8"
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
sub showonlineinfo
	dim rs,onlinetotalcount,onlineusercount,onlineuserstr
	onlinetotalcount=0
	onlineusercount=0
	onlineuserstr=""
	set rs=conn.execute("select ec.studentid,ec.sname,ec.userid,online.ip,online.entertime,online.newtime from online left join  ec on ec.studentid=online.sname")
	while not rs.eof
		IF not isnull(rs("studentid")) Then
			onlineusercount=onlineusercount+1
			onlineuserstr=onlineuserstr&"|<a href='viewmember.asp?userid="&rs(2)&"'>"&rs(1)&"</a>"
		End IF
		onlinetotalcount=onlinetotalcount+1
		rs.movenext
	wend
	rs.close
	set rs=nothing
	Response.Write "<p>&#x603B;&#x5728;&#x7EBF;:<b>"&onlinetotalcount&"</b>&#x4EBA;</p>"
	Response.Write "<p>&#x767B;&#x5F55;&#x4F1A;&#x5458;:<b>"&onlineusercount&"</b>&#x4EBA; &#x6E38;&#x5BA2;:<b>"&onlinetotalcount-onlineusercount&"</b>&#x4EBA;</p>"
	Response.Write "<p>&#x5728;&#x7EBF;&#x4F1A;&#x5458;:"&onlineuserstr&"</p>"
	Response.Flush
end sub
%>
<?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="max-age=0"/></head>
<card id="people" title="&#x5F53;&#x524D;&#x5728;&#x7EBF;&#x4EBA;&#x6570;">
<p align="center"><%=tra(ctitle)%></p>
<%showonlineinfo%>
<p><a href="main.asp"><%=tra(cback)%></a></p>
</card>
</wml>

online.asp - 源码说明

本页面展示了「自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求」中的 online.asp 源码文件，采用 ASP 编程语言编写，共 41 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与WAP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?