<%
Dim Conn,ConnStr,dbpath
'On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
dbpath=server.MapPath("../Database/#Angel_asp_Database.mdb")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
Conn.open ConnStr
if err then
   err.clear
   Set Conn = Nothing
   Response.Write "数据库连接出错，请检查连接字串!"
   Response.End
end if
%>
<!--#include file="../../Include/Function.asp" -->