<%
dim db
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlHostIP

const BjxshopVersion=2     '伴江行購物管理系統的版本，1為免費版，2為個人版，3為企業版
const BjxshopDatabaseType="ACCESS"    '系統數據庫類型，"SQL"為MS SQL2000數據庫，"ACCESS"為MS ACCESS 2000數據庫

'如果是ACCESS數據庫，請認真修改好下面的數據庫的文件名
db="..\data\#bjxshop.mdb"           'ACCESS數據庫的文件名，請使用相對于網站根目錄的的絕對路徑

'如果是SQL數據庫，請認真修改好以下數據庫選項
SqlUsername = "bjxshop"           'SQL數據庫用戶名
SqlPassword = "bjxshop888"       'SQL數據庫用戶密碼
SqlDatabaseName = "bjxshop"    'SQL數據庫名
SqlHostIP = "127.0.0.1"           'SQL主機IP地址（本地可用“127.0.0.1”或“(local)”，非本機請用真實IP）

	On Error Resume Next
	dim ConnStr
	dim conn
	if BjxshopDatabaseType="SQL" then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
	else
		ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	end if
	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

sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		conn.close
		set conn=nothing
	end if
end sub
%>