db_conn.asp

漂亮的欧美旅游模板

<%
response.buffer=true '启用缓冲处理

dim conn,connstr,db
on error resume next
db="../ssortdate/ssortdates2.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
If Err Then
        err.Clear
        Set Conn = Nothing
        Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
        Response.End
    End If
%>