www.gusucode.com > 栽豆迷你博客 MiniBlog 3.0 正式版源码程序 > Include/Conn.asp

    <%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option explicit
Response.Buffer = True
Dim Startime,SqlNowString,Caluoob,conn
Startime = Timer()
Const Dbname = "data/data.mdb"
Const CookieName="Caluoob2_"
Const CachesName="Caluoob2_"
SqlNowString = "Now()"
Set Caluoob = New Keep_Main
Sub ConnectionDatabase
	Dim ConnStr:ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(Dbname)
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "处理 URL 时服务器出错。请与系统管理员联系。"
		Response.End
	End If
End Sub
%>