conn.asp

网趣系统时尚版8（支付宝）

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Conn,Db,StartTime,Timeset,SqlNum
Timeset=0
StartTime = Timer()
SqlNum=0
Db="Data/cnhww.asp"
Sub ConnectionDatabase
	Dim ConnStr
	Set conn=Server.CreateObject("ADODB.Connection")
	ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
	On Error Resume Next
	Conn.Open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库更新中或数据库连接错误！"
		Response.End
	End If
End Sub
%>