<% '==================说明========================'2006-06-04整理'风轻轻 Yang2jun@msn.com  43180150%><%Option ExplicitResponse.Buffer = true%><%Dim Conn,ConnStr,DBPathDBPath = "../admin/data/db.mdb"'数据库加有密码时用'=============================================='ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(DBPath) &";Jet OLEDB:Database Password=*****"'==============================================ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(DBPath)On Error Resume NextSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open ConnStrIf Err Then    Err.Clear    Conn.Close    Set Conn = Nothing '调试时用 '===================开始====================    'Response.Write("数据库链接出错，请检查链接字符串。")    'Response.End()'Else    'Response.Write("数据库链接成功！")    'Response.End() '===================结束====================End If%>

评论