<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Dim startime,Conn,db
Response.Buffer = True
startime = Timer()
'--定義數據庫類別，1為SQL數據庫，0為Access數據庫
Const isSqlDataBase = 0
Dim NowString
Dim ConnStr

If IsSqlDataBase = 1 Then
	'-----------------------SQL數據庫連接參數---------------------------------------
	Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
	NowString = "GetDate()"
	SqlDatabaseName = "newasp"     '數據庫名
	SqlUsername = "sa"          '用戶名
	SqlPassword = "newasp"          '用戶密碼
	SqlLocalName = "(local)"        '連接名（本地用local，外地用IP）
	ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	'-------------------------------------------------------------------------------
Else
	'-----------------------ACCESS數據庫連接----------------------------------------
	NowString = "Now()"
	'ACCESS數據庫連接,請使用根路徑或者絕對路徑
	db = "\database\#newasp.mdb"
	Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(db)
	'-------------------------------------------------------------------------------
End If

Dim DBPath
'-- 采集數據庫連接路徑
DBPath = "/database/#Collection.mdb"		'-- 請用根相對路徑

Sub ConnectionDatabase()
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Connstr
	If Err Then
		Err.Clear
		Set Conn = Nothing
		Response.Write "數據庫連接出錯，請打開conn.asp文件檢查連接字串。"
		Response.End
	End If
End Sub
Sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		Conn.Close
		Set Conn = Nothing
	End If
	Set Newasp = Nothing
End Sub
%>