📄 admin_counter.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!--#include file="Admin_Common.asp"-->
<!--#include file="../count/conn_counter.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Const NeedCheckComeUrl = True   '是否需要检查外部访问

Const PurviewLevel = 2      '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0   '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Counter"   '其他权限

Private rs, sql
Private Search, strGuide, TitleRight
Private RegCount_Fill
Private MasterTimeZone, OnlineTime, IntervalNum, VisitRecord, KillRefresh, OldTotalNum, OldTotalView
Private QDay, QYear, QMonth, QWeek, SYear, SMonth
Private TotalNum, StatItem, Item, ItemNum, Percent, Barwidth, MaxWidth, Assay, Rows, i, DispRow


QDay = Request("QYear") & "-" & Request("QMonth") & "-" & Request("QDay")
QMonth = Request("QYear") & "-" & Request("QMonth")
QYear = Request("QYear")
Select Case Request("Type")
Case 1
    Action = "StatDay"
Case 2
    Action = "StatMonth"
Case 3
    Action = "StatYear"
End Select

strFileName = "Admin_Counter.asp?Action=" & Action
If Request("page") <> "" Then
    CurrentPage = PE_CLng1(Trim(Request("page")))
Else
    CurrentPage = 1
End If

MaxWidth = 220      '放置统计条的表格的宽度
TotalNum = 0

'打开数据库
Call OpenConn_Counter
If FoundErr = True Then Response.End

sql = "select * from PE_StatInfoList"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn_Counter, 1, 1
If Not rs.BOF And Not rs.EOF Then
    MasterTimeZone = rs("MasterTimeZone")
    OnlineTime = rs("OnlineTime")
    RegCount_Fill = rs("RegFields_Fill")
End If
rs.Close
Set rs = Nothing

Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>网站统计管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "<script>" & vbCrLf
Response.Write "function change_type()" & vbCrLf
Response.Write "{ " & vbCrLf
Response.Write "    select_type=form1.type.options[form1.type.selectedIndex].text;" & vbCrLf
Response.Write "    switch(select_type)" & vbCrLf
Response.Write "    { " & vbCrLf
Response.Write "        case '日报表' :form1.qmonth.disabled=0;form1.qday.disabled=0;break;" & vbCrLf
Response.Write "        case '月报表' :form1.qmonth.disabled=0;form1.qday.disabled=1;break;" & vbCrLf
Response.Write "        case '年报表' :form1.qmonth.disabled=1;form1.qday.disabled=1;break;" & vbCrLf
Response.Write "    } " & vbCrLf
Response.Write "} " & vbCrLf
Response.Write "function change_it()" & vbCrLf
Response.Write "{ " & vbCrLf
Response.Write "    select_type=form1.type.options[form1.type.selectedIndex].text;" & vbCrLf
Response.Write "    if (select_type=='日报表')" & vbCrLf
Response.Write "    {" & vbCrLf
Response.Write "        select_item_y=form1.qyear.options[form1.qyear.selectedIndex].text;" & vbCrLf
Response.Write "        month29=select_item_y%4;" & vbCrLf
Response.Write "        select_item_m=form1.qmonth.options[form1.qmonth.selectedIndex].text;" & vbCrLf
Response.Write "        switch(select_item_m)" & vbCrLf
Response.Write "        { " & vbCrLf
Response.Write "            case '2' :if (month29==0) {MD(29)}  else {MD(28)};break;" & vbCrLf
Response.Write "            case '4' : " & vbCrLf
Response.Write "            case '6' : " & vbCrLf
Response.Write "            case '9' : " & vbCrLf
Response.Write "            case '11' : MD(30);break; " & vbCrLf
Response.Write "            default : MD(31);break; " & vbCrLf
Response.Write "        }" & vbCrLf
Response.Write "    }" & vbCrLf
Response.Write "} " & vbCrLf
Response.Write "function MD(days)" & vbCrLf
Response.Write "{ " & vbCrLf
Response.Write "    j=form1.qday.options.length; " & vbCrLf
Response.Write "    for(k=0;k<j;k++) form1.qday.options.remove(0); " & vbCrLf
Response.Write "    for(i=0;i<days;i++)" & vbCrLf
Response.Write "    { " & vbCrLf
Response.Write "        var day=document.createElement('OPTION'); " & vbCrLf
Response.Write "        form1.qday.options.add(day); " & vbCrLf
Response.Write "        day.innerText=i+1; " & vbCrLf
Response.Write "        form1.qday.selectedIndex=0" & vbCrLf
Response.Write "    } " & vbCrLf
Response.Write "} " & vbCrLf
Response.Write "function setFileFileds(num){    " & vbCrLf
Response.Write "     var str="""";" & vbCrLf
Response.Write "     if (num==1){" & vbCrLf
Response.Write "     str=str+=""<s""+ ""c"" + ""r"" + ""i"" + ""pt src='{$InstallDir}Count/CounterLink.asp?style=simple'></sc"" + ""ri"" +""pt>"";" & vbCrLf
Response.Write "     }" & vbCrLf
Response.Write "     else if(num==2){" & vbCrLf
Response.Write "     str=str+=""<s""+ ""c"" + ""r"" + ""i"" + ""pt src='{$InstallDir}Count/CounterLink.asp?style=common'></sc"" + ""ri"" +""pt>"";" & vbCrLf
Response.Write "     }" & vbCrLf
Response.Write "     else if(num==3){" & vbCrLf
Response.Write "     str=str+=""<s""+ ""c"" + ""r"" + ""i"" + ""pt src='{$InstallDir}Count/CounterLink.asp?style=all'></sc"" + ""ri"" +""pt>"";" & vbCrLf
Response.Write "     }" & vbCrLf
Response.Write "     else if(num==4){" & vbCrLf
Response.Write "     str=str+=""<s""+ ""c"" + ""r"" + ""i"" + ""pt src='{$InstallDir}Count/CounterLink.asp?style=none'></sc"" + ""ri"" +""pt>"";" & vbCrLf
Response.Write "     }" & vbCrLf
Response.Write "     document.form1.selectKey.value=str;" & vbCrLf
Response.Write "}" & vbCrLf
    
Response.Write "</script>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'>"
If Action = "ShowConfig" Or Action = "SaveConfig" Or Action = "Init" Or Action = "DoInit" Or Action = "IPAdd" Or Action = "IPManage" Or Action = "SaveIPAdd" Or Action = "SearchIP" Or Action = "editIP" Or Action = "SaveIPedit" Or Action = "delIP" Or Action = "Compact" Or Action = "CompactData" Then
    Call ShowPageTitle("网 站 统 计 配 置", 10025)
    Response.Write "    <tr class='tdbg'> " & vbCrLf
    Response.Write "      <td width='70' height='30'><strong>管理导航：</strong></td>" & vbCrLf
    Response.Write "    <td height='30'><a href='Admin_Counter.asp?Action=ShowConfig'>网站统计信息配置</a> | <a href='Admin_Counter.asp?Action=IPAdd'>统计IP库添加</a> | <a href='Admin_Counter.asp?Action=IPManage'>统计IP库管理</a> | <a href='Admin_Counter.asp?Action=Compact'>压缩统计数据库</a> | <a href='Admin_Counter.asp?Action=Init'>统计数据初始化</a>     </td>" & vbCrLf
    Response.Write "  </tr>"
Else
    Call ShowPageTitle("网 站 统 计 管 理", 10025)
    Response.Write "  <tr class='tdbg'> "
    Response.Write "    <td height='30'>"
    Response.Write "    <a href='Admin_Counter.asp?Action=Infolist'>综合统计</a>&nbsp;|"
    Response.Write "    <a href='Admin_Counter.asp?Action=FVisitor'>访问记录</a>&nbsp;|"
    If FoundInArr(RegCount_Fill, "FVisit", ",") = True Then
    Response.Write "    <a href='Admin_Counter.asp?Action=FCounter'>访问次数</a>&nbsp;|"
    End If
    Response.Write "    <a href='Admin_Counter.asp?Action=StatYear'>年 报 表</a>&nbsp;|"
    Response.Write "    <a href='Admin_Counter.asp?Action=StatAllYear'>全 部 年</a>&nbsp;|"
    Response.Write "    <a href='Admin_Counter.asp?Action=StatMonth'>月 报 表</a>&nbsp;|"
    Response.Write "    <a href='Admin_Counter.asp?Action=StatAllMonth'>全 部 月</a>&nbsp;|"
    Response.Write "    <a href='Admin_Counter.asp?Action=StatWeek'>周 报 表</a>&nbsp;|"
    Response.Write "    <a href='Admin_Counter.asp?Action=StatAllWeek'>全 部 周</a>&nbsp;|"
    Response.Write "    <a href='Admin_Counter.asp?Action=StatDay'>日 报 表</a>&nbsp;|"
    Response.Write "    <a href='Admin_Counter.asp?Action=StatAllDay'>全 部 日</a>&nbsp;|<br>"
    If FoundInArr(RegCount_Fill, "IsCountOnline", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FOnline'>在线用户</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FIP", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FIp'>IP 地 址</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FAddress", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FAddress'>地址分析</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FTimezone", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FTimezone'>时区分析</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FKeyword", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FKeyword'>关 键 词</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FWeburl", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FWeburl'>来访网站</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FRefer", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FReferer'>链接页面</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FSystem", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FSystem'>操作系统</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FBrowser", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FBrowser'>浏 览 器</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FMozilla", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FMozilla'>字串分析</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FScreen", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FScreen'>屏幕大小</a>&nbsp;|"
    End If
    If FoundInArr(RegCount_Fill, "FColor", ",") = True Then
        Response.Write "    <a href='Admin_Counter.asp?Action=FColor'>屏幕色深</a>&nbsp;|"
    End If
    Response.Write "    </td>"
    Response.Write "  </tr>"
End If
Response.Write "</table>"
Response.Write "<br>"
  
Select Case Action
Case "ShowConfig"
    Call ShowConfig
Case "SaveConfig"
    Call SaveConfig
Case "Infolist"
    Call Infolist
Case "FVisitor"
    Call FVisitor
Case "FCounter"
    Call FCounter
Case "StatYear"
    Call StatYear
Case "StatAllYear"
    Call StatAllYear
Case "StatMonth"
    Call StatMonth
Case "StatAllMonth"
    Call StatAllMonth
Case "StatWeek"
    Call StatWeek
Case "StatAllWeek"
    Call StatAllWeek
Case "StatDay"
    Call StatDay
Case "StatAllDay"
    Call StatAllDay
Case "FIp"
    Call FIP
Case "FOnline"
    Call FOnline
Case "FAddress"
    Call FAddress
Case "FTimezone"
    Call FTimezone
Case "FWeburl"
    Call FWeburl
Case "FKeyword"
    Call FKeyword
Case "FReferer"
    Call FReferer
Case "FSystem"
    Call FSystem
Case "FBrowser"
    Call FBrowser
Case "FMozilla"
    Call FMozilla
Case "FScreen"
    Call FScreen
Case "FColor"
    Call FColor
Case "Init"
    Call Init
Case "DoInit"
    Call DoInit
Case "ClientDetail"
    Call ClientDetail
Case "IPAdd"
    Call IPAdd
Case "SaveIPAdd"
    Call SaveIPAdd
Case "IPManage", "SearchIP"
    Call IPManage
Case "editIP"
    Call editIP
Case "SaveIPedit"
    Call SaveIPedit
Case "delIP"
    Call delIP
Case "Compact"
    Call ShowCompact
Case "CompactData"
    Call CompactData
'Case "AutoAnalyse"
    'Call AutoAnalyse
'Case "DoAutoAnalyse"
    'Call DoAutoAnalyse
Case Else
    Call Infolist
End Select
12 3 4 5 下一页
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -