<%
dim conn
dim connstr
dim db
db="database/#veryzone.mdb"      '数据库文件的位置
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请报告本站站长，谢谢！"
Response.End
End If
sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>

