<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%'Session.CodePage=65001%> <% dim conn,connstr,time1,time2,mdb time1=timer mdb="w_#ph_20#16/yf_#2016#.asp" on error resume next connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb) Set Conn=Server.CreateObject("ADODB.Connection") conn.Open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "Database connection error, please check the connection string." Response.End End If %>