数据库连接代码:经典的数据库连接代码

来源: 发布时间:星期四, 2008年9月25日浏览:671次评论:0

<%
dim conn,connstr,f6nDB,rs,UserAgent
\'数据库名称和路径
f6nDB=\"data/data.mdb\"

ConnStr = \"Provider = Microsoft.Jet.OLEDB.4.0;Data Source = \" & Server.MapPath(\"\"&f6nDB&\"\")
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
%>