<%@ LANGUAGE = VBScript.Encode %>
<%
dim db
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlHostIP

const BjxshopVersion=1     '伴江行購物管理系統(tǒng)的版本，1為免費版，2為個人版，3為企業(yè)版
const BjxshopDatabaseType="ACCESS"    '系統(tǒng)數(shù)據(jù)庫類型，"SQL"為MS SQL2000數(shù)據(jù)庫，"ACCESS"為MS ACCESS 2000數(shù)據(jù)庫

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

'如果是SQL數(shù)據(jù)庫，請認真修改好以下數(shù)據(jù)庫選項
SqlUsername = "bjxshop"           'SQL數(shù)據(jù)庫用戶名
SqlPassword = "bjxshop888"       'SQL數(shù)據(jù)庫用戶密碼
SqlDatabaseName = "bjxshop"    'SQL數(shù)據(jù)庫名
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 "數(shù)據(jù)庫連接出錯，請檢查Conn.asp文件中的數(shù)據(jù)庫參數(shù)設(shè)置。"
		Response.End
	End If

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