conn.asp

凡人网络购物系统 v8.0 中文版

<%@ LANGUAGE="VBScript.Encode" CodePage="936"%>
<%Response.Buffer=True
Server.ScriptTimeout=90
On Error Resume Next
dbfolder="database/"
dbname="venshop.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
set fs=createobject("scripting.filesystemobject") 
set ts=fs.createtextfile(server.MapPath("Error/data_"&month(now())&"-"&day(now())&"_"&hour(now())&"-"&minute(now())&"-"&second(now())&".txt"),true)
ts.write Err.Number&":"&Err.Description
ts.close
set ts=Nothing
set fs=Nothing
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%><!--#include file="config.asp"--><!--#include file="sqlcheck.asp"-->