⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 record

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻
📖 第 1 页 / 共 2 页
字号:
🔍
12 
Private blnError
Private strError
Private rs, strSQL
Private objPage
Private clsTime(1)

Private Sub Class_Initialize()
    blnError = True
    strError = "无错误"
End Sub

Private Sub Class_Terminate()
End Sub

Public Sub main()
    If MyIO.Env("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
End Sub

Private Sub doGet()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "option"
        Call doGetOption
    Case "list"
        MyIO.CodePage = 65001
        Call doGetList
    Case Else
        Call doGetMain
    End Select
End Sub

Private Sub doPost()
End Sub

Private Sub doGetMain()
    MyIO.Echo "<html>"
    MyIO.Echo "<head>"
    MyIO.Echo "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"
    MyIO.Echo "<meta http-equiv=""Cache-Control"" content=""no-cache, max-age=0"" />"
    MyIO.Echo "<title>流量统计</title>"
    MyIO.Echo "<link rel=""stylesheet"" href=""images/xw.css"" />"
    MyIO.Echo "<script language=""javascript"" src=""jspp/jspp.js""></script>"
    MyIO.Echo "<script language=""javascript"">"
    MyIO.Echo "jspp.Option = " & atoi(MyIO.QueryString("Option")) & ";"
    MyIO.Echo "</script>"
    MyIO.Echo "<script language=""javascript"" src=""images/wm_record.js""></script>"
    MyIO.Echo "</head>"
    MyIO.Echo "<body style=""padding:5;margin:0;overflow:auto;border:0"">"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border:1px solid #000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td align=""right"" bgcolor=""#A2ADC4"" style=""border-bottom:1px solid #000000;padding-right:1px;padding-top:1px"" height=""24""><img src=""images/xw_cls0.gif"" border=""0"" align=""absMiddle"" onMouseOver=""this.src='images/xw_cls1.gif'"" onMouseOut=""this.src='images/xw_cls0.gif'"" onMouseDown=""this.src='images/xw_cls2.gif'"" onMouseUp=""this.src='images/xw_cls1.gif'"" /></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td height=""24"" style=""background-image:url(images/xw_back4.gif)"">&nbsp;</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td id=""_OPTION"" class=""f12""></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "<iframe id=""console"" name=""console"" frameborder=""0"" scrolling=""no"" width=""100%"" height=""30""></iframe>"
    MyIO.Echo "</body>"
    MyIO.Echo "</html>"
End Sub

Private Sub setTime(ByVal x)
    Dim i
    MyIO.Echo "<select name=""Year" & x & """>"
    For i = 2005 To Year(Now())
        MyIO.Echo "<option value=""" & i & """" & setSelected(i = clsTime(x).tmYear) & ">" & i & "</option>"
    Next
    MyIO.Echo "</select>"
    MyIO.Echo "<select name=""Month" & x & """>"
    For i = 1 To 12
        MyIO.Echo "<option value=""" & i & """" & setSelected(i = clsTime(x).tmMonth) & ">" & i & "</option>"
    Next
    MyIO.Echo "</select>"
    MyIO.Echo "<select name=""Day" & x & """>"
    For i = 1 To 31
        MyIO.Echo "<option value=""" & i & """" & setSelected(i = clsTime(x).tmDay) & ">" & i & "</option>"
    Next
    MyIO.Echo "</select>"
End Sub

Private Sub doGetOption()
    Set clsTime(0) = vbsre.mocom.WAPmo.TimeImpl.newInstance()
    Set clsTime(1) = vbsre.mocom.WAPmo.TimeImpl.newInstance()
    clsTime(0).tmYear = atoi(MyIO.QueryString("Year0"))
    clsTime(0).tmMonth = atoi(MyIO.QueryString("Month0"))
    clsTime(0).tmDay = atoi(MyIO.QueryString("Day0"))
    clsTime(0).tmHour = 0
    clsTime(0).tmMinute = 0
    clsTime(0).tmSecond = 0
    clsTime(1).tmYear = atoi(MyIO.QueryString("Year1"))
    clsTime(1).tmMonth = atoi(MyIO.QueryString("Month1"))
    clsTime(1).tmDay = atoi(MyIO.QueryString("Day1"))
    clsTime(1).tmHour = 0
    clsTime(1).tmMinute = 0
    clsTime(1).tmSecond = 0
    If clsTime(0).tmYear < 1970 Then
        clsTime(0).InitDate Date
    End If
    If clsTime(1).tmYear < 1970 Then
        clsTime(1).InitDate Date
    End If
    If clsTime(0).MakeTime() = clsTime(1).MakeTime() Then
        clsTime(1).InitDate DateAdd("d", 1, clsTime(0).MakeDate)
    End If
    MyIO.Echo "<form id=""frmMain"" onsubmit=""return(false)"">"
    Select Case MyIO.QueryString("Option")
    Case "0"
        If MyPower("ViewStapleRecord") = 0 Then
            MyIO.Echo "您没有查看栏目点击统计的权限"
        Else
            Call doGetStapleRecord
        End If
    Case "1"
        If MyPower("ViewContentRecord") = 0 Then
            MyIO.Echo "您没有查看内容点击统计的权限"
        Else
            Call doGetContentRecord
        End If
    Case "2"
        If MyPower("ViewUserRecord") = 0 Then
            MyIO.Echo "您没有查看用户访问统计的权限"
        Else
            Call doGetUserRecord
        End If
    Case "3"
        If MyPower("ViewDownloadRecord") = 0 Then
            MyIO.Echo "您没有查看文件下载统计的权限"
        Else
            Call doGetMatterRecord
        End If
    Case "4"
        If MyPower("ViewUserRecord") = 0 Then
            MyIO.Echo "您没有查看用户访问统计的权限"
        Else
            MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
            MyIO.Echo "<tr>"
            MyIO.Echo "<td colspan=""2"" class=""winT0"">"
            MyIO.Echo " <b>所有访问列表</b>"
            Call doGetTables
            MyIO.Echo " <a href=""javascript:void(0)"" class=""a1"" onclick=""jspp.Logs.doPage(jspp.Logs.page)"">刷新访问列表</a>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td colspan=""2"" id=""_list_""></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "</table>"
        End If
    Case "5"
        If MyPower("ViewMISCRecord") = 0 Then
            MyIO.Echo "您没有查看MISC下载统计的权限"
        Else
            Call doGetMISCRecord
        End If
    Case Else
    End Select
    Set clsTime(0) = Nothing
    Set clsTime(1) = Nothing
    MyIO.Echo "</form>"
End Sub

Private Sub doGetTables()
    Dim xdb
    Set xdb = WM_XMLDB("Logs")
    xdb.Sort = "@Time descending"
    MyIO.Echo " <select name=""Tables"" onchange=""jspp.Logs.table = this.value; jspp.Logs.doPage(0)"">"
    Do While Not xdb.EOF
        MyIO.Echo "<option value=""" & xdb("Name") & """>" & xdb("Time") & "</option>"
        xdb.MoveNext
    Loop
    MyIO.Echo "</select>"
    Set xdb = Nothing
End Sub

Private Sub doGetStapleRecord()
    Dim i
    strSQL = "SELECT Title,SUM(Hit) FROM $(Table) WHERE Intime>=$(Startime) AND Intime<=$(Stoptime) GROUP BY Title ORDER BY SUM(Hit) DESC"
    strSQL = Replace(strSQL, "$(Table)", T_STAPLE_LOG)
    strSQL = Replace(strSQL, "$(Startime)", clsTime(0).MakeTime)
    strSQL = Replace(strSQL, "$(Stoptime)", clsTime(1).MakeTime)
    Set rs = MyKernel.DB.Exec2(strSQL)
    MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td width=""10%"" class=""winT0""><b>排行</b></td>"
    MyIO.Echo "<td width=""60%"" class=""winT0""><b>栏目名称</b></td>"
    MyIO.Echo "<td width=""30%"" class=""winT0""><b>点击次数</b></td>"
    MyIO.Echo "</tr>"
    i = 1
    Do While rs.EOF = False
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>" & i & "</td>"
        MyIO.Echo "<td>" & rs(0) & "</td>"
        MyIO.Echo "<td align=""right"">" & rs(1) & "</td>"
        MyIO.Echo "</tr>"
        rs.MoveNext
        i = i + 1
    Loop
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td colspan=""2"">起始时间</td>"
    MyIO.Echo "<td>"
    Call setTime(0)
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td colspan=""2"">结束时间</td>"
    MyIO.Echo "<td>"
    Call setTime(1)
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT2"">"
    MyIO.Echo "<td colspan=""3"">"
    MyIO.Echo " <input type=""button"" value=""今日"" class=""btn"" onclick=""FastRecord(this.form, 0)"" />"
    MyIO.Echo " <input type=""button"" value=""昨日"" class=""btn"" onclick=""FastRecord(this.form, 1)"" />"
    MyIO.Echo " <input type=""button"" value=""本周"" class=""btn"" onclick=""FastRecord(this.form, 2)"" />"
    MyIO.Echo " <input type=""button"" value=""上周"" class=""btn"" onclick=""FastRecord(this.form, 3)"" />"
    MyIO.Echo " <input type=""button"" value=""本月"" class=""btn"" onclick=""FastRecord(this.form, 4)"" />"
    MyIO.Echo " <input type=""button"" value=""上月"" class=""btn"" onclick=""FastRecord(this.form, 5)"" />"
    MyIO.Echo " <input type=""button"" value=""所有"" class=""btn"" onclick=""FastRecord(this.form, 6)"" />"
    MyIO.Echo " <input type=""button"" value=""生成统计"" class=""btn"" onclick=""FastRecord(this.form, 100)"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    rs.Close
    Set rs = Nothing
End Sub

Private Sub doGetContentRecord()
    Dim intTotal
    Dim i
    intTotal = atoi(MyIO.QueryString("Total"))
    If intTotal <= 0 Then intTotal = 50
    strSQL = MyKernel.DB.GetLimitSQL(intTotal, "ContentTitle,SUM(Hit)", T_CONTENT_LOG, "Intime>=" & clsTime(0).MakeTime & " AND Intime<=" & clsTime(1).MakeTime, "CONTENTTITLE", "SUM(Hit) DESC")
    Set rs = MyKernel.DB.Exec2(strSQL)
    MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td width=""10%"" class=""winT0""><b>排行</b></td>"
    MyIO.Echo "<td width=""60%"" class=""winT0""><b>内容标题</b></td>"
    MyIO.Echo "<td width=""30%"" class=""winT0""><b>点击次数</b></td>"
    MyIO.Echo "</tr>"
    i = 1
    Do While rs.EOF = False
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>" & i & "</td>"
        MyIO.Echo "<td>" & rs(0) & "</td>"
        MyIO.Echo "<td align=""right"">" & rs(1) & "</td>"
        MyIO.Echo "</tr>"
        rs.MoveNext
        i = i + 1
    Loop
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td colspan=""2"">统计个数</td>"
    MyIO.Echo "<td><input type=""text"" name=""Total"" value=""" & intTotal & """ class=""txt"" maxlength=""3"" /></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td colspan=""2"">起始时间</td>"
    MyIO.Echo "<td>"
    Call setTime(0)
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td colspan=""2"">结束时间</td>"
    MyIO.Echo "<td>"
    Call setTime(1)
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT2"">"
    MyIO.Echo "<td colspan=""3"">"
    MyIO.Echo " <input type=""button"" value=""今日"" class=""btn"" onclick=""FastRecord(this.form, 0)"" />"
    MyIO.Echo " <input type=""button"" value=""昨日"" class=""btn"" onclick=""FastRecord(this.form, 1)"" />"
    MyIO.Echo " <input type=""button"" value=""本周"" class=""btn"" onclick=""FastRecord(this.form, 2)"" />"
    MyIO.Echo " <input type=""button"" value=""上周"" class=""btn"" onclick=""FastRecord(this.form, 3)"" />"
    MyIO.Echo " <input type=""button"" value=""本月"" class=""btn"" onclick=""FastRecord(this.form, 4)"" />"
    MyIO.Echo " <input type=""button"" value=""上月"" class=""btn"" onclick=""FastRecord(this.form, 5)"" />"
    MyIO.Echo " <input type=""button"" value=""所有"" class=""btn"" onclick=""FastRecord(this.form, 6)"" />"
    MyIO.Echo " <input type=""button"" value=""生成统计"" class=""btn"" onclick=""FastRecord(this.form, 100)"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    rs.Close
    Set rs = Nothing
End Sub

Private Sub doGetUserRecord()
    strSQL = "SELECT COUNT(USERID),SUM(SHIT),SUM(CHIT),SUM(VHIT),SUM(DHIT) FROM $(Table) WHERE INTIME>=$(Startime) AND INTIME<=$(Stoptime)"
    strSQL = Replace(strSQL, "$(Table)", T_USER_LOG)
    strSQL = Replace(strSQL, "$(Startime)", clsTime(0).MakeTime)
    strSQL = Replace(strSQL, "$(Stoptime)", clsTime(1).MakeTime)
    Set rs = MyKernel.DB.Exec2(strSQL)
    MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td colspan=""2"" class=""winT0""><b>用户访问统计</b></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td width=""70%"">访问总人数</td>"
    MyIO.Echo "<td width=""30%"" align=""right"">" & rs(0) & "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td>栏目点击总数</td>"
    MyIO.Echo "<td align=""right"">" & rs(1) & "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td>内容点击总数</td>"
    MyIO.Echo "<td align=""right"">" & rs(2) & "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td>图片访问总数</td>"
    MyIO.Echo "<td align=""right"">" & rs(3) & "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td>文件下载总数</td>"
    MyIO.Echo "<td align=""right"">" & rs(4) & "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td>起始时间</td>"
    MyIO.Echo "<td>"
    Call setTime(0)
    MyIO.Echo "</td>"
12

⌨️ 快捷键说明

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