<%@ LANGUAGE = VBScript CodePage = 936%> <% Option Explicit Response.Buffer = True Dim Startime Dim CacheName Dim hx Dim db db="data/#ITlearner.asp" Dim SqlNowString,SqlDateString,TimeDiff(3),Conn '定义数据库类别，1为SQL数据库，0为Access数据库 Const IsSqlDataBase = 0 '定义运行模式，测试的时候设置1，正常运行的时候设置为0,不输出错误信息有利于安全， Const IsDeBug = 1 '缓存名称，根据程序放置路径自动生成 CacheName=Request.ServerVariables("url") CacheName=left(CacheName,instrRev(CacheName,"/")-1) '记录页面开始执行时间 Startime = Timer() Set hx = New Cls_CuteCounter If IsSqlDataBase = 1 Then SqlNowString = "GetDate()" TimeDiff(0)="n" TimeDiff(1)="hh" SqlDateString = "'"&Date()&"'" Else SqlNowString = "Now()" TimeDiff(0)="'n'" TimeDiff(1)="'h'" SqlDateString = "Date()" End If Sub ConnectionDatabase Dim ConnStr If IsSqlDataBase = 1 Then 'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP） connstr = "Provider=SQLOLEDB.1;Password='';Persist Security Info=True;User ID='';Initial Catalog='';Data Source=''" Else ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db) End If On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "Error:数据库连接出错!" Response.End End If End Sub %> <% class cls_show Public Sub ShowPageInfo(table,id,condition,PageNo,PageSize,LinkFile) dim StrSql,TotalCount,TotalPageCount,OutStr StrSql="SELECT count("&id&") FROM "&table&" "&condition&"" Set rs = hx.Execute(StrSql) TotalCount=rs(0) Set rs=Nothing '如果记录数为0，那么退出 If TotalCount=0 Then Exit Sub End If OutStr="

" '如果记录数>MaxRecord，则记录数为MaxRecord if TotalCount>MaxRecord then OutStr = OutStr & Lang.item("g_022") & TotalCount & Lang.item("g_024") & " " & Lang.item("g_023") & MaxRecord & Lang.item("g_024") TotalCount=MaxRecord else OutStr = OutStr & Lang.item("g_022") & TotalCount & Lang.item("g_024") end if '得到总页数 If (TotalCount mod PageSize)=0 Then TotalPageCount=TotalCount\PageSize Else TotalPageCount=(TotalCount\PageSize)+1 End If '防止提交的page参数大于第二次提交的总页数 if PageNo>TotalPageCount then PageNo=TotalPageCount End if OutStr = OutStr & " "&PageNo&"/"&TotalPageCount&"" If PageNo>1 Then OutStr = OutStr & " "& Lang.item("g_025") & "" OutStr = OutStr & " "& Lang.item("g_026") & "" End If If PageNo"& Lang.item("g_027") & "" OutStr = OutStr & " "& Lang.item("g_028") & "" End If OutStr = OutStr & "

" Response.Write(OutStr) End Sub End class %> <% dim skinid,cookieskinid skinid=request("skinid") cookieskinid=request.cookies(CacheName&"_skin")("id") if cookieskinid="" and skinid="" then skinid=Skin if skinid="" or not isnumeric(skinid) then skinid=cookieskinid if skinid>4 or skinid<0 then skinid=cookieskinid if Cint(skinid)<>Cint(cookieskinid) then response.cookies(CacheName&"_skin")("id")=skinid response.cookies(CacheName&"_skin").expires=Dateadd("yyyy",1,now()) end if %> <% Dim hxshow set hxshow = New cls_show Dim Action Action=Request.QueryString("action") Dim rs,IsPublic,ViewPass set rs=hx.execute("select IsPublic,ViewPass from WebInfo where ID=1") IsPublic = rs(0) ViewPass = rs(1) set rs=nothing %> <% Dim SelectedTimeZone,SelectedLanguage if request.form("timeZone")<>"" then SelectedTimeZone = request.form("timeZone") response.cookies("TimeZone") = SelectedTimeZone else if request.cookies("TimeZone")="" then SelectedTimeZone = TimeZone response.cookies("TimeZone") = TimeZone else SelectedTimeZone = request.cookies("TimeZone") end if end if if request.form("Language")<>"" then SelectedLanguage = request.form("Language") response.cookies("Language") = SelectedLanguage else if request.cookies("Language") = "" then SelectedLanguage = Language response.cookies("Language") = SelectedLanguage else SelectedLanguage = request.cookies("Language") end if end if Dim Lang Set Lang = CreateObject("Scripting.Dictionary") select case SelectedLanguage case "CHS" 'Chinese Simplified %> <% case "CHT" 'Chinese Traditional %> <% case "ENG" 'English %> <% end select function clearLanguage() on error resume next clearLanguage = Lang.removeAll set clearLanguage = nothing end function %> "> <%=Lang.item("g_009")%> <% if IsPublic=0 and Session(CacheName & "_ViewPass")<>"OK" then if Request.form("viewpass")="" then Call ShowForm elseif IsPublic=0 and Request.form("viewpass")<>"" then if Request.form("viewpass")=viewpass then Session(CacheName & "_ViewPass")="OK" end if Response.redirect "show.asp" end if hx.ShowFooter set hx=nothing Response.end end if %>
<%=Lang.item("m_00")%> <%=Lang.item("m_10")%> <%=Lang.item("m_20")%> <%=Lang.item("m_30")%> <%=Lang.item("m_40")%> <%=Lang.item("m_50")%> <%=Lang.item("m_60")%> <%=Lang.item("m_70")%> <%=Lang.item("m_80")%>

<%=Lang.item("g_010")%>

HZTODAY 今日科技
<% Dim query query=hx.checkstr(Request("query"),25) '分页信息 dim PageNo PageNo=Request.QueryString("PageNo") if PageNo="" or not isnumeric(PageNo) then PageNo=1 else PageNo=int(PageNo) end if ConnectionDatabase select case Action case "main" call main case "R" call referer case "S" call RefSite case "V" call LastRecord case "H" call HourCount case "D" call DayCount case "W" call Weekcount case "M" call MonthCount case "Y" call YearCount case "I" call IpCount case "SI1" call SIpCount(1) case "SI2" call SIpCount(2) case "SI3" call SIpCount(3) case "Where" call WhereCount case "VT" call Page_VT case "PV" call Page_PV case "Q" call Keyword case "SQ1" call SQ1 case "SQ2" call SQ2 case "SQ3" call SQ3 case "O" call OsCount case "B" call Browser case "Width" call Width case "C" call GetCode case "Online" call Online case else call main end select hx.ShowFooter set hx=nothing Function FormatNum(num,num2) if num=0 then FormatNum=0 else FormatNum=FormatNumber(num,num2) end if End Function Function FormatTime(CurrentTime) if SelectedTimeZone = TimeZone then FormatTime=CurrentTime else FormatTime=DateAdd("h",SelectedTimeZone-TimeZone,CurrentTime) end if End Function Sub ShowForm %>
<%=Lang.item("s_02")%> ">
<% End Sub Sub ShowQuery if IsPublic=2 or Session(CacheName & "_Admin")="OK" or Session(CacheName & "_ViewPass")="OK" then %>
<%=Lang.item("s_01")%> "" then response.write "value="""&query&""""%>>">
<% end if End Sub Sub MainTitle(str) Response.Write("

:::::: " & str & " ::::::

") End Sub Sub Showinfo(str) dim Outstr Outstr = "" Outstr = Outstr & "
" Outstr = Outstr & str Outstr = Outstr & "
" Response.write Outstr End Sub Sub main dim rs dim startdate dim day01,day02,day11,day12,day21,day22,day31,day32,day41,day42,Datenum,Month11,Month12 set rs=hx.execute("select top 1 CDate from CC_D order by id") if not rs.eof then StartDate=rs(0) Datenum=FormatNum(Now()-StartDate,1) else StartDate=Date() Datenum=0 end if set rs=nothing set rs=hx.execute("select top 1 Visitor,PageView from CC_M order by CMonth desc") if not rs.eof then Month11=FormatNum(rs(0),0) Month12=FormatNum(rs(1),0) else Month11=0 Month12=0 end if set rs=nothing 'if IsSqlDataBase = 1 then 'Dim Date1 'Date1=Date() 'set rs=hx.execute("select Visitor,PageView from CC_D where CDate='"&Date1&"'") 'else 'set rs=hx.execute("select Visitor,PageView from CC_D where CDate=Date()") 'end if set rs=hx.execute("select Visitor,PageView from CC_D where CDate="&SqlDateString) if not rs.eof then Day11=FormatNum(rs(0),0) Day12=FormatNum(rs(1),0) else Day11=0 Day12=0 end if set rs=nothing if IsSqlDataBase = 1 then Dim Date2 Date2=DateAdd("d",-1,Date()) set rs=hx.execute("select Visitor,PageView from CC_D where CDate='"&Date2&"'") else set rs=hx.execute("select Visitor,PageView from CC_D where CDate=DateAdd('d',-1,Date())") end if if not rs.eof then Day21=FormatNum(rs(0),0) Day22=FormatNum(rs(1),0) else Day21=0 Day22=0 end if set rs=nothing set rs=hx.execute("select AVG(Visitor),AVG(PageView) from CC_D") if not rs.eof then day41=rs(0) day42=rs(1) if not isnumeric(day41) then day41=0 else day41=FormatNum(day41,0) end if if not isnumeric(day42) then day42=0 else day42=FormatNum(day42,0) end if end if Day31=FormatNum(Day11/(Now()-Date()),0) Day32=FormatNum(Day12/(Now()-Date()),0) Dim sql,sql2,rs2 sql="select Count(*) from CC_I where DateDiff("&TimeDiff(0)&",vtime,"&SqlNowString&")<"&OnlineTime sql2="select Count(*) from CC_I where DateDiff("&TimeDiff(0)&",vtime,"&SqlNowString&")<"&OnlineTime*2 Dim OnlineNum set rs=hx.execute(sql) set rs2=hx.execute(sql2) OnlineNum=(rs2(0)-rs(0))/2+rs(0) if isnull(OnlineNum) then OnlineNum=0 else OnlineNum=FormatNum(OnlineNum,0) end if Day01=hx.execute("select Sum(Visitor) from CC_D")(0) Day02=hx.execute("select Sum(PageView) from CC_D")(0) if isnull(Day01) then Day01=0 else Day01=FormatNum(Day01,0) end if if isnull(Day02) then Day02=0 else Day02=FormatNum(Day02,0) end if Call MainTitle(Lang.item("m_01")) set rs=hx.execute("select * from WebInfo where ID=1") %>
<%=Lang.item("currentLang")%>

<%=rs("WebName")%> <%=rs("WebAdmin")%> <%=StartDate%> <%=Datenum%> <%=OnlineNum%> <%if Application.Contents(CacheName & "_isStart")=1 then response.write Lang.item("g_071") else response.write Lang.item("g_072") end if %>
<%=Lang.item("g_007")%>  <%=""&rs("WebUrl")&""%>
<%=Lang.item("g_008")%>  <%=rs("WebIntro")%>

<%=Lang.item("g_011")%> <%=Lang.item("g_012")%> <%=Lang.item("g_013")%> <%=Lang.item("g_014")%> <%=Lang.item("g_015")%> <%=Lang.item("g_016")%>
<%=Lang.item("g_017")%> <%=Day11%> <%=Day21%> <%=Day31%> <%=Day41%> <%=Month11%> <%=Day01%>
<%=Lang.item("g_018")%> <%=Day12%> <%=Day22%> <%=Day32%> <%=Day42%> <%=Month12%> <%=Day02%>

<% set rs=nothing %> <% dim i dim condition,linkstr dim vpage,referer,q condition="where Dateandtime is not null" linkstr="action=V" sql="select top 10 Dateandtime,Ip,Page,Referer,User_Agent from CC_V "&condition&" order by Dateandtime desc,id asc" set rs=conn.execute(sql) if rs.eof then response.write "" else dim NewVisitor NewVisitor=Rs.GetRows() for i=0 to UBound(NewVisitor,2) if i > 9 then exit for response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" next end if %>
"&Lang.item("g_045")&"
"&formatdatetime(FormatTime(NewVisitor(0,i)),3)&"" response.write "" response.write NewVisitor(1,i) response.write "" response.write "" if NewVisitor(2,i)="0" then vpage=Lang.item("g_053") response.write vpage else vpage=NewVisitor(2,i) response.write ""&hx.OutStr(mid(vpage,8),40)&"" end if response.write "" if NewVisitor(3,i)="0" then referer=Lang.item("g_044") q="" response.write referer else referer=NewVisitor(3,i) response.write ""&hx.OutStr(mid(referer,8),40)&"" q=hx.GetSearchKeyword(referer) if q<>"" then q=ReadText(q) end if end if response.write "1
<% set rs=nothing End Sub Sub GetCode Call MainTitle(Lang.item("m_71")) %>

<%=Lang.item("g_057")%>

  • <%=Lang.item("g_059")%><script src="<%=hx.baseurl%>mystat.asp"></script>
  • <%=Lang.item("g_060")%><script src="<%=hx.baseurl%>mystat.asp?style=no"></script>

<%=Lang.item("g_059")%>

---------------------------------------------------------------------------------

<%=Lang.item("g_058")%>

$AllVisitor -> <%=Lang.item("g_016")&Lang.item("g_017")%>
$AllPageView -> <%=Lang.item("g_016")&Lang.item("g_018")%>
$TodayVisitor -> <%=Lang.item("g_011")&Lang.item("g_017")%>
$TodayPageView -> <%=Lang.item("g_011")&Lang.item("g_018")%>
$YestodayVisitor -> <%=Lang.item("g_012")&Lang.item("g_017")%>
$YestodayPageView -> <%=Lang.item("g_012")&Lang.item("g_018")%>

<%dim showstyle,p1,p2,p3,p4 showstyle=server.htmlencode(request.form("showstyle")) if showstyle="" then showstyle=Lang.item("g_016")&Lang.item("g_018")&":$AllPageView" end if p1 = request("p1") p2 = request("p2") p3 = request("p3") p4 = request("p4") if p4 = "" then p4 = 0 %>
"> <% dim temp1 temp1 = split(Lang.item("g_143"),"|") %>
><%=temp1(0)%> ><%=temp1(1)%>   <%=temp1(2)%>   <%=temp1(3)%><%=temp1(4)%> ><%=Lang.item("g_146")%>

<%=Lang.item("g_061")%> <% showstyle = "str=" & server.URLEncode(showstyle)%>

<%=Lang.item("g_062")%>
<% End Sub %> <% Sub referer Call MainTitle(Lang.item("m_31")) Call ShowQuery dim orderby,ordernum ordernum=request("ordernum") if ordernum=1 then orderby="vtime" else ordernum=0 orderby="CR" end if %> <% dim maxnum,i,barwidth dim rs,sql dim condition dim linkstr if query="" then condition="" linkstr="action=R&ordernum="&ordernum else condition="where Referer like '%"&query&"%'" linkstr="query="&query&"&action=R&ordernum="&ordernum end if sql="select top "&MaxRecord&" Referer,CR,vtime from CC_R "&condition&" order by "&orderby&" desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.pagesize=MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(1) do while not rs.eof and i" i=i+1 rs.movenext loop set rs=nothing end if %>
"&Lang.item("g_045")&"
" if rs(0)="0" or rs(0)="" then response.write Lang.item("g_044") else response.write ""&hx.OutStr(rs("Referer"),64)&"" end if response.write "" response.write " "&FormatTime(rs(2)) response.write "" if ordernum=0 then barwidth=FormatNum(rs(1)/maxnum*150,2) response.write " " end if response.write rs(1) response.write "
<% hxshow.showPageInfo "CC_R","id",condition,PageNo,MaxPageSize,linkstr %> <%End Sub%> <% Sub RefSite Call MainTitle(Lang.item("m_32")) Call ShowQuery %> <% dim maxnum,i,barwidth dim rs,sql dim condition dim linkstr if query="" then condition="" linkstr="action=S" else condition="where RefSite like '%"&query&"%'" linkstr="query="&query&"&action=S" end if set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" RefSite,CSite from RefSite "&condition&" order by CSite desc" rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.pagesize=MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(1) do while not rs.eof and i" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("g_066")%> <%=Lang.item("g_066")%>
"&Lang.item("g_045")&"
" if rs(0)="0" then response.write Lang.item("g_044") else response.write ""&left(rs(0),60)&"" end if barwidth=FormatNum(rs(1)/maxnum*150,2) response.write "" response.write " " response.write rs(1) response.write "
<% hxshow.showPageInfo "RefSite","CSite",condition,PageNo,MaxPageSize,linkstr%> <%End Sub%> <%Sub HourCount Call MainTitle(Lang.item("m_11")) %> <% dim maxnum1,maxnum2,i,barwidth1,barwidth2 dim rs,sql maxnum1=hx.execute("select max(CTH) from CC_H")(0) if maxnum1=0 then maxnum1=1 maxnum2=hx.execute("select max(CCH) from CC_H")(0) if maxnum2=0 then maxnum2=1 sql="select Hour,CTH,CCH from CC_H order by Hour" set rs=hx.execute(sql) if rs.eof then response.write "" else i=0 do while not rs.eof response.write "" response.write "" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("g_034")%> <%=Lang.item("g_035")%> <%=Lang.item("g_036")%>
"&Lang.item("g_045")&"
" response.write rs(0) barwidth1=FormatNum(rs(1)/maxnum1*150,2) barwidth2=FormatNum(rs(2)/maxnum2*150,2) response.write "" response.write " " response.write rs(1) response.write "" response.write " " response.write rs(2) response.write "
<%End Sub%> <%Sub DayCount Call MainTitle(Lang.item("m_12")) %> <% dim maxnum1,maxnum2,i,barwidth1,barwidth2 dim rs,sql set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" CDate,Visitor,PageView from CC_D order by CDate desc" rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 maxnum1=hx.execute("select max(Visitor) from CC_D")(0) maxnum2=hx.execute("select max(PageView) from CC_D")(0) do while not rs.eof and i" response.write "" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("g_037")%> <%=Lang.item("g_038")%> <%=Lang.item("g_039")%>
"&Lang.item("g_045")&"
" response.write rs(0) barwidth1=FormatNum(rs(1)/maxnum1*150,2) barwidth2=FormatNum(rs(2)/maxnum2*150,2) response.write "" response.write " " response.write rs(1) response.write "" response.write " " response.write rs(2) response.write "
<% hxshow.showPageInfo "CC_D","id","",PageNo,MaxPageSize,"action=D"%> <%End Sub%> <%Sub WeekCount dim vweek(7,2) dim maxnum1,maxnum2,i,barwidth1,barwidth2 dim rs,sql for i=1 to 7 if IsSqlDataBase = 1 then sql="select top 1 Visitor,PageView from CC_D where DATEPART(weekday,CDate)="&i &" order by id desc" else sql="select top 1 Visitor,PageView from CC_D where weekday(CDate)="&i &" order by id desc" end if set rs=hx.execute(sql) if rs.eof then vweek(i,0)=0 vweek(i,1)=0 else vweek(i,0)=rs(0) vweek(i,1)=rs(1) if rs(0)>maxnum1 then maxnum1=rs(0) if rs(1)>maxnum2 then maxnum2=rs(1) end if next if maxnum1=0 then maxnum1=1 if maxnum2=0 then maxnum2=1 Call MainTitle(Lang.item("m_13")) %> <% for i=1 to 7 response.write "" response.write "" barwidth1=FormatNum(vweek(i,0)/maxnum1*150,2) barwidth2=FormatNum(vweek(i,1)/maxnum2*150,2) response.write "" response.write "" response.write "" next %>
<%=Lang.item("g_040")%> <%=Lang.item("g_038")%> <%=Lang.item("g_039")%>
"&findweek(i)&"" response.write " " response.write vweek(i,0) response.write "" response.write " " response.write vweek(i,1) response.write "
<% for i=1 to 7 if IsSqlDataBase = 1 then sql="select sum(Visitor),sum(PageView) from CC_D where DATEPART(weekday,CDate)="&i else sql="select sum(Visitor),sum(PageView) from CC_D where weekday(CDate)="&i end if set rs=hx.execute(sql) if not isnumeric(rs(0)) then vweek(i,0)=0 else vweek(i,0)=rs(0) end if if not isnumeric(rs(1)) then vweek(i,1)=0 else vweek(i,1)=rs(1) end if if vweek(i,0)>maxnum1 then maxnum1=vweek(i,0) if vweek(i,1)>maxnum2 then maxnum2=vweek(i,1) next if maxnum1=0 then maxnum1=1 if maxnum2=0 then maxnum2=1 %>
<% for i=1 to 7 response.write "" response.write "" barwidth1=FormatNum(vweek(i,0)/maxnum1*150,2) barwidth2=FormatNum(vweek(i,1)/maxnum2*150,2) response.write "" response.write "" response.write "" next %>
<%=Lang.item("g_041")%> <%=Lang.item("g_038")%> <%=Lang.item("g_039")%>
"&findweek(i)&"" response.write " " response.write vweek(i,0) response.write "" response.write " " response.write vweek(i,1) response.write "
<% End Sub%> <%Sub MonthCount Call MainTitle(Lang.item("m_14")) %> <% dim maxnum1,maxnum2,i,barwidth1,barwidth2 dim rs,rs2,sql set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" CMonth,Visitor,PageView from CC_M order by CMonth desc" rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 maxnum1=hx.execute("select max(Visitor) from CC_M")(0) maxnum2=hx.execute("select max(PageView) from CC_M")(0) do while not rs.eof and i" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("g_042")%> <%=Lang.item("g_038")%> <%=Lang.item("g_039")%>
"&Lang.item("g_045")&"
" response.write rs(0) barwidth1=FormatNum(rs(1)/maxnum1*150,2) barwidth2=FormatNum(rs(2)/maxnum2*150,2) response.write "" response.write " " response.write rs(1) response.write "" response.write " " response.write rs(2) response.write "
<% hxshow.showPageInfo "CC_M","CMonth","",PageNo,MaxPageSize,"action=M" %> <%End Sub%> <%Sub YearCount Call MainTitle(Lang.item("m_15")) %> <% dim maxnum1,maxnum2,i,barwidth1,barwidth2 dim rs,rs2,sql set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" CYear,Visitor,PageView from CC_Y order by CYear desc" rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 maxnum1=hx.execute("select max(Visitor) from CC_Y")(0) maxnum2=hx.execute("select max(PageView) from CC_Y")(0) do while not rs.eof and i" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("g_043")%> <%=Lang.item("g_038")%> <%=Lang.item("g_039")%>
"&Lang.item("g_045")&"
" response.write rs(0) barwidth1=FormatNum(rs(1)/maxnum1*150,2) barwidth2=FormatNum(rs(2)/maxnum2*150,2) response.write "" response.write " " response.write rs(1) response.write "" response.write " " response.write rs(2) response.write "
<% hxshow.showPageInfo "CC_Y","CYear","",PageNo,MaxPageSize,"action=Y" %> <%End Sub%> <%Sub WhereCount Call MainTitle(Lang.item("m_33")) Call ShowQuery%> <% dim maxnum,i,barwidth dim rs,sql dim condition dim linkstr if query="" then condition="" linkstr="action=Where" else condition="where [Where] like '%"&query&"%'" linkstr="query="&query&"&action=Where" end if set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" [Where],CW from CC_W "&condition&" order by CW desc" rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(1) do while not rs.eof and i" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("g_068")%> <%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" response.write rs(0) barwidth=FormatNum(rs(1)/maxnum*150,2) response.write "" response.write " " response.write rs(1) response.write "
<% hxshow.showPageInfo "CC_W","id",condition,PageNo,MaxPageSize,linkstr%> <%End Sub%> <%Sub IpCount Call MainTitle(Lang.item("m_61")) Call ShowQuery%> <% dim maxnum,i,barwidth dim rs,sql dim condition dim linkstr if query="" then condition="" linkstr="action=I" else query=hx.checkstr(query,20) condition="where Ip like '%"&query&"%'" linkstr="query="&query&"&action=I" end if set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" Ip,CIP,vtime from CC_I "&condition&" order by CIP desc" rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(1) do while not rs.eof and i" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("g_030")%> <%=Lang.item("g_066")%> <%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" response.write " " response.write rs(0) response.write "" barwidth=FormatNum(rs(1)/maxnum*150,2) response.write "" response.write " "&FormatTime(rs(2)) response.write "" response.write " " response.write rs(1) response.write "
<% hxshow.showPageInfo "CC_I","id",condition,PageNo,MaxPageSize,linkstr%> <%End Sub%> <%Sub SIpCount(num) Select Case num case 1 Call MainTitle(Lang.item("m_64")) case 2 Call MainTitle(Lang.item("m_63")) case 3 Call MainTitle(Lang.item("m_62")) End Select Call ShowQuery%> <% dim maxnum,i,barwidth dim rs,sql dim condition dim linkstr dim datatable '视图名称 dim outstr datatable="v_SI"&num if query="" then condition="" linkstr="action="&action else condition="where Ip like '%"&query&"%'" linkstr="query="&query&"&action="&action end if set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" Ip,SCIP from "&datatable&" "&condition&" order by SCIP desc" rs.open sql,conn,1,1 if rs.eof then outstr = outstr & "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(1) do while not rs.eof and i" i=i+1 rs.movenext loop set rs=nothing end if response.write outstr %>
<%=Lang.item("g_030")%> <%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
 " select case num case 1 outstr = outstr & rs(0)&".*.*.*" case 2 outstr = outstr & rs(0)&".*.*" case 3 outstr = outstr & rs(0)&".*" end select barwidth=FormatNum(rs(1)/maxnum*150,2) outstr = outstr & "" outstr = outstr & " " outstr = outstr & rs(1) outstr = outstr & "
<% hxshow.showPageInfo datatable,"0",condition,PageNo,MaxPageSize,linkstr%> <%End Sub%> <%Sub Page_PV() dim orderby,ordernum ordernum=request("ordernum") if ordernum=1 then Call MainTitle(Lang.item("m_03")) Call ShowQuery orderby="vtime" else ordernum=0 Call MainTitle(Lang.item("m_22")) Call ShowQuery Call Showinfo(Lang.item("g_065")) orderby="Visitor+PageView" end if %> <% dim maxnum,i,barwidth dim rs,sql dim condition dim linkstr if query="" then condition="" linkstr="action=PV&ordernum="&ordernum else condition="where [Page] like '%"&query&"%'" linkstr="query="&query&"&action=PV&ordernum="&ordernum end if set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" Page,Visitor+PageView,vtime from CC_P "&condition&" order by "&orderby&" desc" 'response.write sql rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 do while not rs.eof and i" i=i+1 rs.movenext loop end if set rs=nothing %>
<%=Lang.item("g_031")%> ><%=Lang.item("g_066")%> ><%=Lang.item("g_039")%>
"&Lang.item("g_045")&"
" if rs(0)="0" then response.write Lang.item("g_053") else response.write ""&hx.OutStr(rs(0),65)&"" end if response.write "" response.write " "&FormatTime(rs(2)) response.write "" if ordernum=0 then barwidth=FormatNum(rs(1)/maxnum*150,2) response.write " " end if response.write rs(1) response.write "
<% hxshow.showPageInfo "CC_P","id",condition,PageNo,MaxPageSize,linkstr%> <%End Sub%> <%Sub Page_VT Call MainTitle(Lang.item("m_21")) Call ShowQuery Call Showinfo(Lang.item("g_065")) dim orderby,ordernum ordernum=request("ordernum") if ordernum=1 then orderby="vtime" else ordernum=0 orderby="Visitor" end if dim maxnum,i,barwidth dim rs,sql dim condition dim linkstr if query="" then condition="where Visitor>0" linkstr="action=VT&ordernum="&ordernum else condition="where Visitor>0 and Page like '%"&query&"%'" linkstr="query="&query&"&action=VT&ordernum="&ordernum end if %> <% set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" Page,Visitor,vtime from CC_P "&condition&" order by "&orderby&" desc" rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(1) do while not rs.eof and i" i=i+1 rs.movenext loop end if set rs=nothing %>
<%=Lang.item("g_031")%> ><%=Lang.item("g_066")%> ><%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" if rs(0)="0" then response.write Lang.item("g_053") else response.write ""&hx.OutStr(rs(0),65)&"" end if response.write "" response.write " "&FormatTime(rs(2)) response.write "" if ordernum=0 then barwidth=FormatNum(rs(1)/maxnum*150,2) response.write " " end if response.write rs(1) response.write "
<% hxshow.showPageInfo "CC_P","id",condition,PageNo,MaxPageSize,linkstr%> <%End Sub%> <%Sub Keyword() Call MainTitle(Lang.item("m_500")) Call ShowQuery Call Showinfo(Lang.item("m_511")) dim orderby,ordernum ordernum=request("ordernum") if ordernum=1 then orderby="vtime" else ordernum=0 orderby="CR" end if %> <% dim q dim maxnum,i,barwidth dim rs,sql dim condition,linkstr if query="" then condition="where Q is not null" linkstr="action=Q&ordernum="&ordernum else condition="where (Q like '%"&encodeURIComponent(query)&"%' or Q like '%"&AnsiCode(query)&"%' or RefSite like '%"&query&"%') and Q is not null" linkstr="query="&query&"&action=Q&ordernum="&ordernum end if sql="select top "&MaxRecord&" Q,CR,RefSite,Referer,vtime from CC_R "&condition&" order by "&orderby&" desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(1) do while not rs.eof and i" i=i+1 rs.movenext loop end if rs.close:set rs=nothing %>
<%=Lang.item("g_070")%> <%=Lang.item("g_073")%> ><%=Lang.item("g_066")%> ><%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" q=ReadText(rs(0)) response.write "" response.write q response.write "" response.write "" response.write ""&rs(2)&"" response.write "" response.write " "&FormatTime(rs(4)) response.write "" if ordernum=0 then barwidth=FormatNum(rs(1)/maxnum*150,2) response.write " " end if response.write rs(1) response.write "
<% hxshow.showPageInfo "CC_R","id",condition,PageNo,MaxPageSize,linkstr %> <%End Sub%> <%Sub SQ1 Call MainTitle(Lang.item("m_500")) Call ShowQuery Call Showinfo(Lang.item("m_521")) %> <% dim q dim maxnum,i,barwidth dim rs,sql dim condition,linkstr if query="" then condition="" linkstr="action=SQ1" else condition="where Q like '%"&encodeURIComponent(query)&"%' or Q like '%"&AnsiCode(query)&"%'" linkstr="query="&query&"&action=SQ1" end if sql="select top "&MaxRecord&" Q,SCR from v_SQ1 "&condition&" order by SCR desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(1) do while not rs.eof and i" response.write "" i=i+1 rs.movenext loop end if rs.close:set rs=nothing %>
<%=Lang.item("g_070")%> <%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" q=ReadText(rs(0)) response.write q barwidth=FormatNum(rs(1)/maxnum*150,2) response.write "" response.write " " response.write rs(1) response.write "
<% hxshow.showPageInfo "v_SQ1","SCR",condition,PageNo,MaxPageSize,linkstr %> <%End Sub%> <%Sub SQ3 Call MainTitle(Lang.item("m_500")) Call ShowQuery Call Showinfo(Lang.item("m_531")) %> <% dim q dim maxnum,i,barwidth dim rs,sql dim condition,linkstr if query="" then condition="" linkstr="action=SQ3" else condition="where RefSite like '%"&query&"%'" linkstr="query="&query&"&action=SQ3" end if sql="select top "&MaxRecord&" RefSite,SCR from v_SQ3 "&condition&" order by SCR desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(1) do while not rs.eof and i" response.write "" i=i+1 rs.movenext loop end if rs.close:set rs=nothing %>
<%=Lang.item("g_073")%> <%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" q=ReadText(rs(0)) response.write q barwidth=FormatNum(rs(1)/maxnum*150,2) response.write "" response.write " " response.write rs(1) response.write "
<% hxshow.showPageInfo "v_SQ3","SCR",condition,PageNo,MaxPageSize,linkstr %> <%End Sub%> <%Sub SQ2 Call MainTitle(Lang.item("m_500")) Call ShowQuery Call Showinfo(Lang.item("m_541")) %> <% dim q dim maxnum,i,barwidth dim rs,sql dim condition,linkstr if query="" then condition="" linkstr="action=SQ2" else condition="where Q like '%"&encodeURIComponent(query)&"%' or Q like '%"&AnsiCode(query)&"%' or RefSite like '%"&query&"%'" linkstr="query="&query&"&action=SQ2" end if sql="select top "&MaxRecord&" Q,RefSite,SCR from v_SQ2 "&condition&" order by SCR desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.eof then response.write "" else rs.PageSize = MaxPageSize rs.absolutepage=PageNo i=0 if i=0 then maxnum=rs(2) do while not rs.eof and i" response.write "" response.write "" i=i+1 rs.movenext loop end if rs.close:set rs=nothing %>
<%=Lang.item("g_070")%> <%=Lang.item("g_073")%> <%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" q=ReadText(rs(0)) response.write q barwidth=FormatNum(rs(2)/maxnum*150,2) response.write ""&rs(1)&"" response.write " " response.write rs(2) response.write "
<% hxshow.showPageInfo "v_SQ2","SCR",condition,PageNo,MaxPageSize,linkstr %> <%End Sub%> <%Sub OsCount Call MainTitle(Lang.item("m_41")) %> <% dim maxnum,i,barwidth dim rs,sql set rs=server.createobject("adodb.recordset") sql="select Client,CC from CC_C where left(id,1)=1 order by CC desc,id asc" rs.open sql,conn,1,1 if rs.eof then response.write "" else i=0 if i=0 then maxnum=rs(1) if maxnum=0 then maxnum=1 do while not rs.eof response.write "" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("m_41")%> <%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" response.write rs(0) barwidth=FormatNum(rs(1)/maxnum*150,2) response.write "" response.write " " response.write rs(1) response.write "
<%End Sub%> <%Sub Width Call MainTitle(Lang.item("m_42")) %> <% dim maxnum,i,barwidth dim rs,sql set rs=server.createobject("adodb.recordset") sql="select Client,CC from CC_C where left(id,1)=3 order by CC desc,id asc" rs.open sql,conn,1,1 if rs.eof then response.write "" else i=0 if i=0 then maxnum=rs(1) if maxnum=0 then maxnum=1 do while not rs.eof response.write "" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("m_42")%> <%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" response.write rs(0) barwidth=FormatNum(rs(1)/maxnum*150,2) response.write "" response.write " " response.write rs(1) response.write "
<%End Sub%> <%Sub Browser Call MainTitle(Lang.item("m_43")) %> <% dim maxnum,i,barwidth dim rs,sql set rs=server.createobject("adodb.recordset") sql="select Client,CC from CC_C where left(id,1)=2 order by CC desc,id asc" rs.open sql,conn,1,1 if rs.eof then response.write "" else i=0 if i=0 then maxnum=rs(1) if maxnum=0 then maxnum=1 do while not rs.eof response.write "" i=i+1 rs.movenext loop set rs=nothing end if %>
<%=Lang.item("m_43")%> <%=Lang.item("g_038")%>
"&Lang.item("g_045")&"
" response.write rs(0) barwidth=FormatNum(rs(1)/maxnum*150,2) response.write "" response.write " " response.write rs(1) response.write "
<%End Sub%> <%Sub LastRecord Call MainTitle(Lang.item("m_02")) Call ShowQuery%> <% dim rs,sql dim i dim condition,linkstr dim vpage,referer,q if query="" then condition="where Dateandtime is not null" linkstr="action=V" else condition="where (Ip like '%"&query&"%' or Page like '%"&query&"%' or Referer like '%"&query&"%') and Dateandtime is not null" linkstr="query="&server.HTMLEncode(query)&"&action=V" end if set rs=server.createobject("adodb.recordset") sql="select top "&MaxRecord&" * from CC_V "&condition&" order by Dateandtime desc,id asc" rs.open sql,conn,1,1 if rs.eof then response.write "" else i=0 rs.PageSize = MaxPageSize rs.absolutepage=PageNo do while not rs.eof and i" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rs.movenext i=i+1 loop end if %>
"&Lang.item("g_045")&"
"&formatdatetime(FormatTime(rs("Dateandtime")),3)&"" response.write "" response.write rs("Ip") response.write "" response.write "" if rs("Page")="0" then vpage=Lang.item("g_053") response.write vpage else vpage=rs("Page") response.write ""&hx.OutStr(mid(vpage,8),40)&"" end if response.write "" if rs("Referer")="0" then referer=Lang.item("g_044") q="" response.write referer else referer=rs("Referer") response.write ""&hx.OutStr(mid(referer,8),40)&"" q=hx.GetSearchKeyword(referer) if q<>"" then q=ReadText(q) end if end if response.write "1
<% set rs=nothing hxshow.showPageInfo "CC_V","id",condition,PageNo,MaxPageSize,linkstr End Sub%> <% '将星期序号翻译为汉字 Function findweek(theweek) select case theweek case 1 findweek=Lang.item("g_046") case 2 findweek=Lang.item("g_047") case 3 findweek=Lang.item("g_048") case 4 findweek=Lang.item("g_049") case 5 findweek=Lang.item("g_050") case 6 findweek=Lang.item("g_051") case 7 findweek=Lang.item("g_052") end select End Function Function AnsiCode(vstrIn) Dim i, strReturn, innerCode, ThisChr Dim Hight8, Low8 strReturn = "" For i = 1 To Len(vstrIn) ThisChr = Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) < &HFF Then strReturn = strReturn & ThisChr Else innerCode = Asc(ThisChr) If innerCode < 0 Then innerCode = innerCode + &H10000 End If Hight8 = (innerCode And &HFF00) \ &HFF Low8 = innerCode And &HFF strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) End If Next AnsiCode = strReturn End Function Function DeCodeAnsi(s) Dim i, sTmp, sResult, sTmp1 sResult = "" For i=1 To Len(s) If Mid(s,i,1)="%" Then sTmp = "&H" & Mid(s,i+1,2) If isNumeric(sTmp) Then If CInt(sTmp)=0 Then i = i + 2 ElseIf CInt(sTmp)>0 And CInt(sTmp)<128 Then sResult = sResult & Chr(sTmp) i = i + 2 Else If Mid(s,i+3,1)="%" Then sTmp1 = "&H" & Mid(s,i+4,2) If isNumeric(sTmp1) Then sResult = sResult & Chr(CInt(sTmp)*16*16 + CInt(sTmp1)) i = i + 5 End If Else sResult = sResult & Chr(sTmp) i = i + 2 End If End If Else sResult = sResult & Mid(s,i,1) End If Else sResult = sResult & Mid(s,i,1) End If Next DeCodeAnsi = sResult End Function %>