conn.asp

清风信息自动采集生成系统 很好用的大家试试看

<%
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
'-------------------------------------------------------------------------------------------------------------
%>