<%
Const db="glxydate/stmanager.mdb"
Dim Conn
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open

If Err Then
    err.Clear
    Set Conn = Nothing
    Response.Write("<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />數據庫連接出錯，請檢查連接字串。")
    Response.End
End If

session.timeout=100
%>