繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 显示在线人数
- ASP
- 冒泡算法的三种JavaScript表示
- asp无限分级(递归调用)
- VBS、ASP代码语法加亮显示的类
- 安全脚本程序的编写 V1.0
- atom2rss.asp
- atom_js.asp
- google sitemap.asp
- 用ASP读取/写入UTF-8编码格式的文件
- 捌度空间 缓存类
- 再来个专门为google量身定做的sitemap生成代码,(可是动态的哦)
- 一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例
- 如何在ASP页面动态Inclue文件？
- 多域名一网站时如果返回最原来的域名
- 网页木马代码例子（里面的文件是漏洞扫描器，呵呵）
- ASP万用分页程序
- ASP项目中的公共翻页模块
- 在ASP中使用均速分页法提高分页速度
- 3种不同的方法生成文件
- 身份证校验算法与ASP程序
- ASP抽取数据的执行效率
ASP 中的 显示在线人数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 76 ::
收藏到网摘: n/a
<%
NowUrl=request.servervariables("HTTP_REFERER")
UserName = session("Wenday_sys_User")
if UserName="" then
UserName="客人"
end if
call sqlonline()
Response.Write "document.write(" & chr(34) & " <font color=#000000>当前在线 "& online() &"人</font>"& chr(34) & ")"
'Response.Write "document.write(" & chr(34) & " <a href=count/ShowOnline.asp title=查看在线列表><font color=#000000>当前在线"& online() &"人</font></a>"& chr(34) & ")"
sub sqlonline()
dim statuserid
statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")
Response.Cookies("Wenday_Sys")("onlineid")=statuserid
sql="select id from "&CategoryName&"_online where id="&cstr(request.cookies("Wenday_Sys")("onlineid"))
set rs=conn.execute(sql)
if rs.eof and rs.bof then
sql="insert into "&CategoryName&"_online(id,UserName,ip,startime,lastimebk,browser,actforip,Now_Url) values ("&statuserid&",'"&UserName&"','"&Request.ServerVariables("REMOTE_HOST")&"',now(),now(),'"&Request.ServerVariables("HTTP_USER_AGENT")&"','"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"','"&request.servervariables("HTTP_REFERER")&"')"
else
sql="update "&CategoryName&"_online set lastimebk=now(),UserName='"&UserName&"' where id="&cstr(request.cookies("Wenday_Sys")("onlineid"))
end if
conn.execute(sql)
set rs=nothing
Rem 删除超时用户
sql="Delete FROM "&CategoryName&"_online WHERE DATEDIFF('s', lastimebk, now()) > "&kicktime&"*60"
Conn.Execute sql
end sub
function online()
dim tmprs
sql="Select count(id) from "&CategoryName&"_online"
set tmprs=conn.execute(sql)
online=tmprs(0)
set tmprs=nothing
if isnull(online) then online=0
end function
CloseDatabase
%>
评论 (0) All
