record.asp

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

    MyIO.Echo "<td>结束时间</td>"
    MyIO.Echo "<td>"
    Call setTime(1)
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT2"">"
    MyIO.Echo "<td colspan=""2"">"
    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 "<tr class=""winT1"">"
    MyIO.Echo "<td>首页点击率</td>"
    MyIO.Echo "<td align=""right"">" & getVisitCount() & "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    rs.Close
    Set rs = Nothing
End Sub

Private Sub doGetMatterRecord()
    Dim intTotal
    Dim i
    intTotal = atoi(MyIO.QueryString("Total"))
    If intTotal <= 0 Then intTotal = 50
    strSQL = MyKernel.DB.GetLimitSQL(intTotal, "Title,SUM(Hit),SUM(Download)", T_MATTER_LOG, "Intime>=" & clsTime(0).MakeTime & " AND Intime<=" & clsTime(1).MakeTime, "Title", "SUM(Download) 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=""15%"" class=""winT0""><b>点击次数</b></td>"
    MyIO.Echo "<td width=""15%"" 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 "<td align=""right"">" & rs(2) & "</td>"
        MyIO.Echo "</tr>"
        rs.MoveNext
        i = i + 1
    Loop
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td colspan=""2"">统计个数</td>"
    MyIO.Echo "<td colspan=""2""><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 colspan=""2"">"
    Call setTime(0)
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td colspan=""2"">结束时间</td>"
    MyIO.Echo "<td colspan=""2"">"
    Call setTime(1)
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT2"">"
    MyIO.Echo "<td colspan=""4"">"
    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 doGetMISCRecord()
    If MyKernel.Modlist(moMISC) = 0 Then Exit Sub
    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>MISC下载统计</b></td>"
    MyIO.Echo "</tr>"
    Call GetMISCDownloadRecord(0)
    Call GetMISCDownloadRecord(1)
    Call GetMISCDownloadRecord(2)
    Call GetMISCDownloadRecord(3)
    MyIO.Echo "</table>"
End Sub

Private Function getNextMonthFirstDay(ByVal dtmIn)
    getNextMonthFirstDay = CDate(FormatDate(DateAdd("m", 1, dtmIn), "Y-m-01 H:i:s"))
End Function

Private Function getNextWeekFirstDay(ByVal dtmIn)
    getNextWeekFirstDay = DateAdd("d", 7 - Weekday(dtmIn, 2) + 1, dtmIn)
End Function

Private Sub GetMISCDownloadRecord(ByVal intType)
    Select Case intType
    Case 0
        strSQL = "SELECT ServiceId,COUNT(SeqId) FROM $(Table) WHERE Intime>=$(Startime) GROUP BY ServiceId"
        strSQL = Replace(strSQL, "$(Startime)", GetTime(Date))
    Case 1
        strSQL = "SELECT ServiceId,COUNT(SeqId) FROM $(Table) WHERE Intime>=$(Startime) AND Intime<=$(Stoptime) GROUP BY ServiceId"
        strSQL = Replace(strSQL, "$(Startime)", GetTime(DateDiff("d", -1, Date)))
        strSQL = Replace(strSQL, "$(Stoptime)", GetTime(Date))
    Case 2
        strSQL = "SELECT ServiceId,COUNT(SeqId) FROM $(Table) WHERE Intime>=$(Startime) GROUP BY ServiceId"
        strSQL = Replace(strSQL, "$(Startime)", GetTime(FormatDate(Date, "Y-m-01")))
    Case 3
        strSQL = "SELECT ServiceId,COUNT(SeqId) FROM $(Table) GROUP BY ServiceId"
    End Select
    strSQL = Replace(strSQL, "$(Table)", T_MISC_LOG)
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td width=""70%"">"
    Select Case intType
    Case 0: MyIO.Echo "今日统计"
    Case 1: MyIO.Echo "昨日统计"
    Case 2: MyIO.Echo "本月统计"
    Case 3: MyIO.Echo "所有统计"
    End Select
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""30%"">"
    Set rs = MyKernel.DB.Exec2(strSQL)
    Do While rs.EOF = False
        MyIO.Echo "业务代码[" & rs(0) & "]下载 " & rs(1) & " 次<br/>"
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Function GetLogName(ByVal strName)
    Dim xdb
    Dim ret, tmp
    Set xdb = WM_XMLDB("Logs")
    tmp = strName
    If tmp = "" Then
        tmp = Replace("WAPMO_LOGS_$(Time)", "$(Time)", FormatDate(Now(), "Ym"))
    End If
    xdb.Filter = "@Name='" & XPathString(tmp) & "'"
    If xdb.EOF Then
        GetLogName = ""
    Else
        GetLogName = tmp
    End If
    Set xdb = Nothing
End Function

Private Sub doGetList()
    If MyPower("ViewUserRecord") = 0 Then
        MyIO.Echo "您没有查看用户访问明细的权限"
        Exit Sub
    End If
    Dim i
    Dim strKey
    Dim strName, strUA
    Dim xmlNode, xmlDoc2
    strName = GetLogName(MyIO.QueryString("Table"))
    If strName = "" Then
        MyIO.Echo "找不到日志表"
        Exit Sub
    End If
    strKey = Trim(MyIO.QueryString("Keyword"))
    Set objPage = vbsre.mocom.WAPmo.Page.newInstance()

    objPage.ID = atol(MyIO.QueryString("Page"))
    objPage.Size = 20
    objPage.DataType = WM_DataType
    objPage.Table = strName
    objPage.Count = GetPageCount(objPage)
    objPage.Index = "SEQID"
    objPage.Sort = "SEQID DESC"
    objPage.SortType = 1
    objPage.Build "logs", "log"

    MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse;word-break:break-all;word-wrap:break-word;"" bordercolor=""#000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>序号</b></td>"
    MyIO.Echo "<td width=""10%"" class=""winT0""><b>手机号码<b/></td>"
    MyIO.Echo "<td width=""10%"" class=""winT0""><b>访问时间<b/></td>"
    MyIO.Echo "<td width=""20%"" class=""winT0""><b>手机型号<b/></td>"
    MyIO.Echo "<td width=""12%"" class=""winT0""><b>操作系统<b/></td>"
    MyIO.Echo "<td width=""12%"" class=""winT0""><b>浏览器<b/></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>访问类型<b/></td>"
    MyIO.Echo "<td width=""20%"" class=""winT0""><b>访问说明<b/></td>"
    MyIO.Echo "</tr>"
    If objPage.Rows.hasChildNodes Then
        i = 0
        Set xmlDoc2 = GetUADoc(objPage.Rows.childNodes)
        For Each xmlNode In objPage.Rows.childNodes
            strUA = XMLAttr(xmlNode, "ua")
            MyIO.Echo "<tr class=""winT1"" title=""" & MyIO.HTMLEncode(strUA) & """>"
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "seqid") & "</td>"
            MyIO.Echo "<td>" & MyIO.HTMLEncode(XMLAttr(xmlNode, "mobile")) & "</td>"
            MyIO.Echo "<td align=""right"">" & FormatTime(XMLAttr(xmlNode, "intime"), "m-d H:i") & "</td>"
            MyIO.Echo "<td>" & GetUAName(xmlDoc2.documentElement, strUA) & "</td>"
            MyIO.Echo "<td>" & GetOSType(strUA) & "</td>"
            MyIO.Echo "<td>" & GetUAType(strUA) & "</td>"
            MyIO.Echo "<td>" & GetLogType(XMLAttr(xmlNode, "logtype")) & "</td>"
            If atoi(XMLAttr(xmlNode, "logtype")) <> wmLogMatter Then
                MyIO.Echo "<td><a href=""javascript:void(0)"" onclick=""jspp.Simulator.open('" & JSEncode(XMLAttr(xmlNode, "url")) & "')"">" & MyIO.HTMLEncode(XMLAttr(xmlNode, "logname")) & "</a></td>"
            Else
                MyIO.Echo "<td><a href=""javascript:void(0)"" onclick=""window.open('admin_matter.asp?Handle=Modify&SeqId=" & XMLAttr(xmlNode, "logid") & "', '_matter_modify_', 'width=400,height=300,toolbar=no,menubar=no,scrollbars=yes,resizable=no,location=no,status=no')"">" & MyIO.HTMLEncode(XMLAttr(xmlNode, "logname")) & "</a></td>"
            End If
            MyIO.Echo "</tr>"
            i = i + 1
        Next
        Set xmlDoc2 = Nothing
        Call ShowControl
        Call ShowPage
    Else
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""8"">尚无任何访问记录</td>"
        MyIO.Echo "</tr>"
        Call ShowControl
    End If
    MyIO.Echo "</table>"
    Set objPage = Nothing
End Sub

Private Sub ShowControl()
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td align=""center""></td>"
    MyIO.Echo "<td colspan=""7"">"
'    MyIO.Echo " <select name=""Category"">"
'    MyIO.Echo "<option value=""0"">选择搜索条件</option>"
'    MyIO.Echo "<option value=""1"">手机号码</option>"
'    MyIO.Echo "<option value=""2"">手机UA</option>"
'    MyIO.Echo "<option value=""3"">访问说明</option>"
'    MyIO.Echo "</select>
'    MyIO.Echo " <input name=""Keyword"" type=""text"" class=""txt"" value=""" & MyIO.HTMLEncode(MyIO.QueryString("Keyword")) & """ />"
'    MyIO.Echo " <input type=""button"" class=""btn"" value=""搜索"" onclick=""jspp.Logs.query(this.form)"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub ShowPage()
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td colspan=""8"" align=""right"">"
    MyIO.Echo "共 " & objPage.Count & " 条信息 "
    MyIO.Echo objPage.Size & " 条/页 "
    MyIO.Echo objPage.ID & "/" & objPage.Total & "页"
    If objPage.ID > 1 Then
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Logs.doPage(1)"" class=""a1"" />首  页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Logs.doPage(" & (objPage.ID - 1) & ")"" class=""a1"" />上一页</a>"
    Else
        MyIO.Echo " <a class=""a1"">首  页</a>"
        MyIO.Echo " <a class=""a1"">上一页</a>"
    End If
    If objPage.ID < objPage.Total Then
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Logs.doPage(" & (objPage.ID + 1) & ")"" class=""a1"" />下一页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Logs.doPage(" & objPage.Total & ")"" class=""a1"" />尾  页</a>"
    Else
        MyIO.Echo " <a class=""a1"">下一页</a>"
        MyIO.Echo " <a class=""a1"">尾  页</a>"
    End If
    MyIO.Echo " 跳到 <input type=""text"" id=""_page"" class=""txt"" style=""width:30px"" /> 页"
    MyIO.Echo " <input type=""button"" value=""GO"" class=""btn"" onclick=""jspp.Logs.doPage(document.getElementById('_page').value)"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Function GetLogType(ByVal intType)
    Dim ret
    Select Case atoi(intType)
    Case wmLogStaple
        ret = "<font color=""#004080"">栏目访问</font>"
    Case wmLogContent
        ret = "<font color=""#008080"">内容访问</font>"
    Case wmLogMatter
        ret = "<font color=""#FF8000"">下载文件</font>"
    Case wmLogPage
        ret = "<font color=""#8080C0"">页面访问</font>"
    End Select
    GetLogType = ret
End Function

Private Function GetUADoc(xmlRoot)
    Dim tmp, i
    ReDim tmp(xmlRoot.length - 1)
    For i = 0 To xmlRoot.length - 1
        tmp(i) = "'" & SafeString(XMLAttr(xmlRoot(i), "ua")) & "' LIKE '%'+MARK+'%'"
    Next
    Set GetUADoc = MyKernel.DB.SQLToXML("SELECT NAME,MARK FROM " & T_UA & " WHERE " & Join(tmp, " or "), "uas", "ua")
End Function

Private Function GetUAName(xmlRoot, ByVal strData)
    Dim xmlNode
    For Each xmlNode In xmlRoot.childNodes
        If InStr(LCase(strData), LCase(XMLAttr(xmlNode, "mark"))) > 0 Then
            GetUAName = XMLAttr(xmlNode, "name")
            Exit Function
        End If
    Next
    GetUAName = "未知型号"
End Function

Private Function GetOSType(ByVal strData)
    Dim xdb
    Set xdb = WM_XMLDB("OS")
    xdb.Filter = "contains('" & XPathString(strData) & "', @Mark)"
    If xdb.EOF Then
        GetOSType = "未知系统"
    Else
        GetOSType = xdb("Name")
    End If
    Set xdb = Nothing
End Function

Private Function GetUAType(ByVal strData)
    Dim xdb
    Set xdb = WM_XMLDB("UA")
    xdb.Filter = "contains('" & XPathString(strData) & "', @Mark)"
    If xdb.EOF Then
        GetUAType = "未知浏览器"
    Else
        GetUAType = xdb("Name")
    End If
    Set xdb = Nothing
End Function

Public Function newInstance()
    Set newInstance = New ImplMocomWAPmoManagerRecord
End Function
End Class
%>