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 %>