mdb.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

<%
Dim conn1,mdb
Dim pointsyes,duration,adpoints
' Power by Hx66.net                                                
' Copyright (C) 2006 Hx66.net All Rights Reserved.  
'+++++++++++++++++设置开始++++++++++++++++++++++++++++++==++++++++++
mdb="../mdb/hx#66.asp"      '===设定主数据库连接路径               +
pointsyes=0                 '===设定会员点击加分开关。1为开，0为关 +
duration=12                 '===设定多少小时为一次有效点击         +
adpoints=10                 '===设定一次有效点击会员所加的分值     +
'+++++++++++++++++设置结束++++++++++++++++++++++++++++++==++++++++++
on error resume next
set conn1=server.CreateObject("adodb.connection")
conn1.open "provider=microsoft.jet.oledb.4.0; data source="& Server.MapPath(mdb)
If Err Then
err.Clear
Set Conn1 = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>