<%
'on error resume next'
dim conn,sql,rs

Function ConnectionDataBase()
	db_path = "WebData/WebData.mdb"
	Set conn= Server.CreateObject("ADODB.Connection")
	connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
	conn.Open connstr
End Function

Function CloseDatabase'关闭总数据库
	Conn.close
	Set conn = Nothing
End Function

function setRs(rs,sql,conn,a,b)
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,a,b
end function

function DisRs(rs)
	rs.close
	set rs=nothing
end function
%>