connstatdata.asp

官方最新的南方数据v12生成静态商业版。全站生成静态。

<%@language=vbscript codepage=936 %>

<%
AdminName=replace(session("AdminName"),"'","")
if AdminName="" then	
	response.redirect "../admin/login.asp"
	response.End()
end if
StatDataPath="Southdc_mdb/Southdc_Count.mdb"
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")
%>