创建一个conn.asp文件里面可放置 下面代码（将代码稍作修改）
<%
dim db
const DatabaseType="ACCESS"     
db="database/data.mdb"           
         On Error Resume Next
 dim ConnStr
 dim conn
  ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
  Set conn = Server.CreateObject("ADODB.Connection")
 conn.Open connstr
 If Err Then
  err.Clear
  Set Conn = Nothing
  Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
  Response.End
 End If

%>