<%@ LANGUAGE = VBScript.encode %>
<%
dim conn,connstr,mdb_No,SQLconn,time1,time2,mdb
time1=timer
mdb="../../data/#data.asp"
on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb)&";Jet OLEDB:Database Password=anchen,./"
Set Conn=Server.CreateObject("ADODB.Connection") 
conn.Open connstr
SQLconn="SXE0310"
If Err Then
err.Clear
Set Conn = Nothing
  Response.Write("数据库连接错误！")
Response.End
End If

Sub CloseConn()
   conn.close()
   set conn=nothing
End Sub
%>