%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
開始吧!互動媒體有限公司 ||| BEGIN Interactive Technology CO.,LTD-程式設計 網頁設計
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../coun/Statistics.mdb")
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strTimeAdjust = 0
strHomeTimeAdjust = DateAdd("h", strTimeAdjust , Now())
strOnlineUserIP = Request.ServerVariables("REMOTE_ADDR")
strUserLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
strUserBorwser = Trim(Request.ServerVariables("HTTP_USER_AGENT"))
strApprovalValue = &HDE000 & &HDC000
strCookieMark = "n08m01t" ' YOUR SIDE MARK
%>
<%
If mid(DateToStr(strHomeTimeAdjust),1,8) <> mid(Request.Cookies(strCookieURL & strCookieMark & "LAST_HERE"),1,8) then %>
<% End if
sql="SELECT Sum(VISITORS_TOTAL) as All_Total FROM STATISTICS"
set rscoun=my_Conn.execute(sql)
array_All_Total=rscoun("All_Total")
%>