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 "数据库连接错误,请检查Admin/Conn.Asp文件"
		Response.End
	End If
End Sub
%>
<!-- #include File="../inc/Public_Cls.Asp" -->
<!-- #include File="../inc/YX_Cls.Asp" -->
<%
Dim YxBBs,Cache
Set YxBBs = New Cls_Public
Set Cache = New Cls_Cache
YxBBs.SystemConfig()
YxBBs.CheckUser()
%>