<%
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
%>