<%
Const CMSDataBase=0 '1=整合CMS. 0=單機版 
Dim SqlNowString,SiteSN,Conn,DBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr
IF CMSDataBase=1 Then
	Const DataBaseType=0 
	Const SysVer=1
	DBPath       = "\Data\cj_Data.mdb"      '龍心數據CMS ACCESS數據庫的文件名，請使用相對于網站根目錄的的絕對路徑
	SqlNowString = "Now()"
	Call OpenConn
End if
dim db,ErrMsg,ErrMsg_lx,Site
Site="iising.com"'Cookies名稱，如果您在同一地址內有兩個或以上個網站系統，請保證名稱不同
dim connstrItem
dim dbItem
dim connItem
dbItem="Data/cj_data.mdb"'采集數據庫文件的位置 
Set connItem = Server.CreateObject("ADODB.Connection")
connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbItem)
connItem.Open connstrItem
If Err Then
   err.Clear
   Set ConnItem = Nothing
   Response.Write "采集數據庫連接出錯，請檢查連接字串。"
   Response.End
End If
Sub CloseConnItem()
   On Error Resume Next
   ConnItem.close
   Set ConnItem=nothing
End sub
'---------------------數據庫CMS------------------------------------------------------------------
Sub OpenConn()
	On Error Resume Next
	ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then Err.Clear:Set conn = Nothing:Response.Write "數據庫連接出錯，請檢查Conn.asp文件中的數據庫參數設置。":Response.End
		CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CollectDBPath)
End Sub
Sub CloseConn()
	On Error Resume Next
	Conn.close:Set Conn=nothing
End sub
'-------------------------------------------------------------------------------------------------------------
%>