<%
dim conn
db="../data/data.asp" '数据库文件位置
set conn=server.createobject("ADODB.CONNECTION")
'Access 数据库连接
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
sub CloseConn()
	conn.close
	set conn=nothing
end sub

%>