conn.asp

彩票在线分析系统

<%
Dim Conn,Connstr,DB

DB = "367.mdb"

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 ConnClose
	Conn.close
	Set Conn = Nothing
End Function
%>