显示在线人数

作者:无名 - ASP基础 -
<%
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
%>

IT人知识库 原文链接:http://www.itpeo.net/12728/370723.html





生成静态页大全[ASP/PHP/ASPX]

ASP生成静态网页的方法   随着网站访问量的加大,每次从数据库读取都是以效率作为代价的,很多用ACCESS作数据库的更... ...

让ASP搭配MYSQL

让ASP搭配MYSQL 所需要工具    mysql-4.1.11-win32  ... ...

E-mail表单递交

<HTML><HEAD><META http-equiv='Content-Type' c... ...

替换数据库内容

<%'####################################'替换数据库内容 lamking 2... ...

怎么远程调用ACCESS数据库[要求加精!!]

使用了TCP/IP,ADO及XML(需要安装Microsoft XML 4.0。)。分服务器和客户端两部分,服务器可以多... ...

无组件生成缩略图

网上有不少生成缩略图的ASP组件。若你的虚拟空间不支持注册新组件,可能会感觉自己的网站失色不少。心晴不才,结合网上资源写... ...

多附件上传组件演示

table{ FILTER: progid:DXImageTransform.Microsoft.Shadow(... ...

asp实现无限级分类的方法js版

MenuArr=new Array()MenuLenArr=new Array()SubMenuArr=new Arra... ...

asp 防止SQL注入代码

把下面代码复制到每个文件头部就可以防止SQL注入了,写程序安全最重要 :) <% Dim Fy_Url,... ...

asp 多字段模糊搜索的函数

比较简单直接的sql语句 Recordset1.Source = "SELECT * FROM 表 WHERE 字段... ...

ASP操作Excel技术总结

目录  一、 环境配置  二、 ASP对Excel的基本操作  三、&... ...

几个常用的ASP函数

========取得带端口的URL,推荐使用================  Function G... ...

ASP中Request对象获取客户端数据的顺序(容易忽略)

在ASP中Request对象是获取客户端提交数据的一个很重要的对象,大家对他也是非常熟悉了。虽然如此,还是经常有人问我下... ...

ASP连接11种数据库语法总结

经常使用到有关数据库的操作。包括连接代码、SQL命令等等,又不曾刻意去记忆它们(我本人是不愿意去记这东东),所以常常在用... ...

asp中Byval与Byref的区别

文件名称: ByVal.asp ByRef.asp 具体代码: <%Sub TestMain()... ...

asp组件编写准备工作

最近在尝试用组件写asp,一些心得如下,不对之处请指正 经常要重启IIS,所以需要一个批处理的文件,将下面两行代码存为x... ...

保证asp叶面一定不会出现乱码 UTF8

保证asp叶面一定不会出现乱码的代码应该是这样的:(假定是UTF-8的叶子) <%@ CODE... ...

经典的分页完整程序+注释

在前面我们已经给大家讲了分页程序,在这里再给大家提供一个,分析一下也许有新的收获. 代码如下:<% '以下程序是... ...

vbcrlf的意思

常数         &nbs... ...

js+asp总结

一直在用JS写ASP,也不是特别原因,只是当初学的是JS,后来学ASP时知道ASP也可以用JS写,就没去学VBS.前几个... ...