<%@ LANGUAGE = VBScript.encode%>
<%
Session.CodePage=65001
Response.Charset="UTF-8"
mdb="../data/#data.mdb"
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

If Err Then
err.Clear
Set Conn = Nothing
  Response.Write("数据库连接错误！")
Response.End
End If
functionfile="../data/function.bas"
adminfile="../data/admin.bas"
%>