<%@ LANGUAGE="VBScript.Encode" CodePage="936"%>
<%
Response.Buffer=True
Response.ExpiresAbsolute=Now()-1 
Response.Expires=0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"
Server.ScriptTimeout=90
'On Error Resume Next
dbfolder="../database/"		'数据库所在目录
dbname="#@wrzcnetshop@#.mdb"		'数据库名称
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbfolder&dbname)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<p style='font-size:9pt' align=center>数据库连接出错！</p>"
Response.Write "<p style='font-size:9pt' align=center>可能出错原因：数据库位置或名称不对、数据库损坏！</p>"
Response.End
End If
%>