<%
'個性圈子系統是否獨立數據庫,1表示獨立數據庫,0表示在動網論壇數據庫中
Const Dv_IndivGroup_DataBaseFlag = 0
'個性圈子系統數據庫類型,0表示ACCESS,1表示SQL Server
Const Dv_IndivGroup_DataBaseType = 0

Dim Dv_IndivGroup_Class,Dv_IndivGroup_Conn

'個性圈子系統數據庫鏈接函數
Sub Dv_IndivGroup_ConnectionDatabase()
	Dim ConnStr,DB
	Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
	If Dv_IndivGroup_DataBaseFlag = 0 Then
		If Not IsObject(Conn) Then ConnectionDatabase
		Set Dv_IndivGroup_Conn = Conn
	Else
		If Dv_IndivGroup_DataBaseFlag = 1 Then
			'SQL數據庫連接參數：數據庫名、用戶密碼、用戶名、連接名（本地用(local)，外地用IP）
			SqlDatabaseName = "dvbbs8"
			SqlPassword = "dvbbs"
			SqlUsername = "dvbbs"
			SqlLocalName = "(local)"
			ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
		Else
			'免費用戶第一次使用請修改本處數據庫地址并相應修改data目錄中數據庫名稱
			DB = "IndivGroup/Data/Dv_IndivGroup.mdb"
			ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DB)
		End If
		'On Error Resume Next
		Set Dv_IndivGroup_Conn = Dvbbs.iCreateObject("ADODB.Connection")
		Dv_IndivGroup_Conn.Open ConnStr
		If Err Then
			err.Clear
			Set Dv_IndivGroup_Conn = Nothing
			Response.Write "插件數據庫連接出錯，請檢查連接字串。"'注釋，需要把這幾個字翻譯成英文。
			Response.End
		End If
	End If
End Sub
%>