conn.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 24 行

<%
Dim conn,sqlstr,db
'更改数据库名字
db="inc/#count_cn-pn.com.mdb"
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=30

'来路中去掉自己站来源
dim ownsitekey,ownsiteurl
ownsitekey="cn-pn.com"  '自己站顶级域名
ownsiteurl="www.cn-pn.com"  '显示
%>