?<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<%
Dim Conn,ConnStr
'On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(StatDataPath)
Conn.open ConnStr
if err then
   err.clear
   Set Conn = Nothing
   Response.Write "系統錯誤：流量統計數據庫連接出錯，請檢查|系統管理>>站點常量設置|,或者/Include/Const.asp文件!"
   Response.End
end if

dim rs,sql
Set rs=Server.CreateObject("ADODB.RECORDSET")
%>