<%
Const datapathcj = "CollectDB.mdb"		'Access数据库的文件名，请使用相对于网站根目录的的绝对路径
Const YWNT_TMS_CJRS = "Adodb.RecordSet"
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(datapathcj)
Set connx = server.CreateObject("ADODB.Connection")
connx.open connstr
If Err Then Err.Clear:Set connx = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End

sub connxclose()
connx.close     
set connx=nothing
end sub
%>