conn.asp

来自「CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。」· ASP 代码 · 共 16 行

<%
dim db,connstr,conn
Db = "data/citycn.net.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & 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
%>