online.asp

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

<%
	dim conn
	dim connstr
	dim db
	'更改数据库名字
	db="asdf7as9d15121sdfas/as3456d66fa6sdfa.asp"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr

function CloseDatabase

	Conn.close
	Set conn = Nothing

End Function
dim TCategoryName,kicktime

'栏目变量名
CategoryName="SoftDown"   '不要改动

'设置删除在线数据表中多少分钟内不活动用户,单位为分钟

kicktime=20

if UserName="" then
   UserName="客人"
end if

call sqlonline()
Response.Write "document.write(" & chr(34) & "<a href=ShowOnline.asp title=查看在线用户列表><font color=red>在线<strong>"& online() &"</strong>人</font></a>"& chr(34) & ")"

sub sqlonline()
dim statuserid
     statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")	
	 Response.Cookies("mesky")("onlineid")=statuserid
	sql="select id from SoftDown_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 

CloseDatabase
%>