conn.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 30 行

<%@ LANGUAGE = "VBScript" CodePage = 936%>
<%
option explicit
Dim Startime,Endtime,Conn,Connstr,DB
Startime = Timer()
'为确保论坛的安全性，请更改数据库名称或路径。默认数据库路径为：data/#hx.asp
DB = "data/#hx.asp"
ConnectionDatabase
Sub ConnectionDatabase
	Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	'如果你的服务器采用较老版本Access驱动，请用下面连接方法
	'Connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"'数据库访问出错提示信息。
		Response.End
	End If
End Sub
Function CloseDatabase
	Conn.close
	Set Conn = Nothing
End Function
%>