online.asp

网络上找的

<!--#include file="Config.asp" -->
<%
'#################################
'
'<!--saved from url=(2004 V1.5)-->
'┌──────────Cihn───┐
'│　　  淮南设计    版权所有　　│
'└─────────────.NET┘
'#################################
if UserName="" then
   UserName="访客"
end if
call sqlonline()
Response.Write "document.write('<a href=count/ShowOnline.asp target=_blank title=查看在线列表><font color=red>当前在线<strong>"& online() &"</strong>人</font></a>')"
sub sqlonline()
dim statuserid
     statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")	
	 Response.Cookies("mesky")("onlineid")=statuserid
	sql="select id from Cihn_online where id="&cstr(request.cookies("mesky")("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) values ("&statuserid&",'"&UserName&"','"&Request.ServerVariables("REMOTE_HOST")&"',now(),now(),'"&Request.ServerVariables("HTTP_USER_AGENT")&"','"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"')"
	else
		sql="update "&CategoryName&"_online set lastimebk=now(),UserName='"&UserName&"' where id="&cstr(request.cookies("mesky")("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 
Call CloseDatabase()
%>