<!--#include file="../../conn.asp" -->
<%
dim recordsStr,connstr_c,connc,connstr_t,connt

recordsStr = "adodb.recordset"
connstr_c = "Provider=Microsoft.Jet.OLEdb.4.0;Data Source=" & server.mappath("inc/collectDatabase.mdb")
set connc = server.CreateObject("ADODB.Connection")
connc.open connstr_c
If Err Then Err.Clear:connc.close:Set connc = Nothing:Response.Write "采集插件数据库文件连接出错，请检查conn.asp文件中的数据库参数设置。":response.end

connstr_t = "Provider=Microsoft.Jet.OLEdb.4.0;Data Source=" & server.mappath("collecttemp.mdb")
set connt = server.CreateObject("ADODB.Connection")
connt.open connstr_t
If Err Then Err.Clear:connt.close:Set connt = Nothing:Response.Write "采集规则数据库文件连接出错，请检查conn.asp文件中的数据库参数设置。":response.end

'connstr_m="Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.Mappath(SiteSetup&"DataBase/"&SiteMDB)
'set conn=server.createobject("adodb.connection")
'conn.open connstr_m

sub conncclose()
	connt.close:Set connt = Nothing
	connc.close:set connc=nothing
end sub

%>