<!--#include file="../Admin_Const.asp"-->
<%
Dim dbItem
Dim ConnItem
dbItem="database/#Item.asp"      '采集数据库文件的位置

Db.ConnValue="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbItem)
Set ConnItem = Db.OpenConnection("采集数据库") 

Sub CloseConnItem()
	On Error Resume Next
	if IsObject(ConnItem) then
		ConnItem.Close : Set ConnItem=Nothing
	end if
End sub
%>

