<%
Dim Conn, ConnStr
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&SysRootDir&""&SiteDataPath&"")
Conn.Open ConnStr
If Err Then
    Err.Clear
    Set Conn = Nothing
    Response.Write "数据库连接错误，请检查连接参数！"
    Response.End
End If
%>
<!--#include file="Function.Asp" -->