www.gusucode.com > 盐城分类信息网asp源码程序 > admin/conncounter.asp
<% 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" '自己站顶级域名 %>