<%
Dim conn,sqlstr,db
db="counter.inc"    '更改数据库名字
set conn = Server.CreateObject("ADODB.Connection")
sqlstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open sqlstr
function closedb
conn.close
set conn=nothing
end function
dim kicktime
kicktime=60   '设置删除在线数据表中多少分钟内不活动用户
dim ownsitekey,ownsiteurl
ownsitekey="jl-e.com"
ownsiteurl="www.jl-e.com"  '自己站顶级域名
%>
