connadmin.asp

管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy

<%
'==================数据库路
Dim DatabasePath
    DatabasePath="Database/Content.mdb"
'==================数据库连接
Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DatabasePath)
Conn.open ConnStr
if err then
   err.clear
   Set Conn = Nothing
   Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
   Response.End
end if
%>