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

📄 user.asp

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

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 "list"
        Call doGetList
    Case "detail"
        Call doGetDetail
    Case "option"
        Call doGetOption
    Case Else
        Call doGetMain
    End Select
End Sub

Private Sub doPost()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "move"
        Call doPostMove
    Case "remove"
        Call doPostRemove
    Case "send"
        Call doPostSend
    Case Else
        MyIO.Echo "未知请求"
    End Select
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_user.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 doGetOption()
    Select Case MyIO.QueryString("Option")
    Case "0"
        MyIO.Echo "<form id=""frmMain"" onsubmit=""return(false)"">"
        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>"
        MyIO.Echo " <select name=""Parent"" class=""sel"" onchange=""jspp.User.status = this.value; jspp.User.doPage(0)"">"
        MyIO.Echo "<option value=""0"">用户类型</option>"
        MyIO.Echo "<option value=""" & wmUserForbid & """>屏蔽用户</option>"
        MyIO.Echo "<option value=""" & wmUserDelete & """>删除用户</option>"
        MyIO.Echo "<option value=""" & wmUserGuest & """>访问用户</option>"
        MyIO.Echo "<option value=""" & wmUserRegister & """>注册用户</option>"
        MyIO.Echo "<option value=""" & wmUserVIP & """>VIP 用户</option>"
        MyIO.Echo "</select>"
        MyIO.Echo " <a href=""javascript:void(0)"" class=""a1"" onclick=""jspp.User.doPage(jspp.User.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>"
        MyIO.Echo "</form>"
    Case "1"
        If MyPower("ViewUserRecord") = 0 Then
            MyIO.Echo "您没有查看用户访问记录的权限"
        Else
            Dim xdb
            Set xdb = MyKernel.UserStat()
            MyIO.Echo "<form id=""frmMain"" onsubmit=""return(false)"">"
            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=""40%"" class=""winT0"">统计项</td>"
            MyIO.Echo "<td width=""30%"" class=""winT0"">统计结果</td>"
            MyIO.Echo "<td width=""30%"" class=""winT0"">最后统计时间</td>"
            MyIO.Echo "</tr>"
            Do While Not xdb.EOF
                MyIO.Echo "<tr class=""winT1"">"
                MyIO.Echo "<td>" & xdb("Name") & "</td>"
                MyIO.Echo "<td align=""right"">" & xdb("Total") & "</td>"
                MyIO.Echo "<td align=""right"">" & FormatTime(xdb("Time"), "Y-m-d H:i:s") & "</td>"
                MyIO.Echo "</tr>"
                xdb.MoveNext
            Loop
            Set xdb = Nothing
            MyIO.Echo "</table>"
            MyIO.Echo "</form>"
        End If
    Case Else
        MyIO.Echo "未知选项"
    End Select
End Sub

Private Function getUserCount(ByVal x)
    Dim lngTime(1)
    lngTime(0) = GetTime(DateAdd("d", -1, Date))
    lngTime(1) = GetTime(Date)
    If x = 0 Then
        strSQL = "SELECT COUNT(SeqId) FROM " & T_USER & " WHERE LastVisitTime>=" & lngTime(1)
    ElseIf x = 1 Then
        strSQL = "SELECT COUNT(SeqId) FROM " & T_USER_LOG & " WHERE Intime>=" & lngTime(0) & " AND Intime<=" & lngTime(1)
    End If
    getUserCount = atol(MyKernel.DB.GetRow(strSQL))
End Function

Private Function getIPCount(ByVal x)
    Dim lngTime(1)
    lngTime(0) = GetTime(DateAdd("d", -1, Date))
    lngTime(1) = GetTime(Date)
    If x = 0 Then
        strSQL = "SELECT COUNT(SeqId) FROM " & T_IPDB & " WHERE Intime>=" & lngTime(1)
    ElseIf x = 1 Then
        strSQL = "SELECT COUNT(SeqId) FROM " & T_IPDB & " WHERE Intime>=" & lngTime(0) & " AND Intime<=" & lngTime(1)
    ElseIf x = 2 Then
        strSQL = "SELECT COUNT(SeqId) FROM " & T_IPDB & " WHERE Outime>=" & (GetTime(Now()) - 15 * 60)
    ElseIf x = 3 Then
        Select Case WM_DataType
        Case adAccess
            strSQL = "SELECT COUNT(IP) FROM (SELECT DISTINCT(IPAddr) AS IP FROM " & T_IPDB & ")"
        Case Else
            strSQL = "SELECT COUNT(DISTINCT(IPAddr)) FROM " & T_IPDB
        End Select
    End If
    getIPCount = atol(MyKernel.DB.GetRow(strSQL))
End Function

Private Sub doGetList()
    If MyPower("ViewUser") = 0 Then
        MyIO.Echo "您没有查看用户的权限"
        Exit Sub
    End If
    Dim i
    Dim lngStatus
    Dim strSort
    Dim intSort
    Dim strKey
    Dim xmlNode
    lngStatus = atol(MyIO.QueryString("Status"))
    strSort = Trim(MyIO.QueryString("Sort"))
    intSort = atoi(MyIO.QueryString("SortType"))
    strKey = Trim(MyIO.QueryString("Keyword"))
    If strSort = "" Then strSort = "SeqId"
    Set objPage = vbsre.mocom.WAPmo.Page.newInstance()

    objPage.ID = atol(MyIO.QueryString("Page"))
    objPage.Size = 20
    If strSort <> "SeqId" And WM_DataType = adSqlServer Then
        objPage.DataType = adAccess
    Else
        objPage.DataType = WM_DataType
    End If
    objPage.Table = T_USER
    objPage.Where = "1=1"
    If lngStatus <> 0 Then
        objPage.Where = objPage.Where & " AND Status=" & lngStatus
    End If
    If strKey <> "" Then
        objPage.Where = objPage.Where & Replace(" AND (USERNAME LIKE '%$(Keyword)%' OR MOBILE LIKE '%$(Keyword)%'", "$(Keyword)", SafeString(strKey))
    End If
    objPage.Where = Replace(objPage.Where, "1=1 AND ", "")
    objPage.Where = Replace(objPage.Where, "1=1", "")
    objPage.Count = GetPageCount(objPage)
    objPage.Index = "SEQID"
    objPage.Sort = SafeString(strSort & IIf(intSort = 1, " DESC", " ASC"))
    objPage.SortType = intSort
    objPage.Build "users", "user"

    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=""12%"" class=""winT0"" style=""cursor:pointer"" onclick=""jspp.User.doSort(0)""><font color=""#800040""><b>昵称<b/></font>"
    If strSort = "SeqId" Then
        MyIO.Echo "<img src=""images/xw_select" & intSort & ".gif"" border=""0"" align=""absBottom"" />"
    End If
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""12%"" class=""winT0""><b>手机<b/></td>"
    MyIO.Echo "<td width=""10%"" class=""winT0""><b>类型<b/></td>"
    MyIO.Echo "<td width=""10%"" class=""winT0"" style=""cursor:pointer"" onclick=""jspp.User.doSort(1)""><font color=""#800040""><b>访问<b/></font>"
    If strSort = "PageCount" Then
        MyIO.Echo "<img src=""images/xw_select" & intSort & ".gif"" border=""0"" align=""absBottom"" />"
    End If
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""" & IIf(MyKernel.Modlist(moMISC) = 1, 14, 19) & "%"" class=""winT0"" style=""cursor:pointer"" onclick=""jspp.User.doSort(2)""><font color=""#800040""><b>注册时间<b/></font>"
    If strSort = "RegTime" Then
        MyIO.Echo "<img src=""images/xw_select" & intSort & ".gif"" border=""0"" align=""absBottom"" />"
    End If
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""" & IIf(MyKernel.Modlist(moMISC) = 1, 14, 19) & "%"" class=""winT0"" style=""cursor:pointer"" onclick=""jspp.User.doSort(3)""><font color=""#800040""><b>最后访问<b/></font>"
    If strSort = "LastVisitTime" Then
        MyIO.Echo "<img src=""images/xw_select" & intSort & ".gif"" border=""0"" align=""absBottom"" />"
    End If
    MyIO.Echo "</td>"
    If MyKernel.Modlist(moMISC) = 1 Then
        MyIO.Echo "<td width=""10%"" class=""winT0""><b>MISC状态<b/></td>"
    End If
    MyIO.Echo "<td width=""10%"" class=""winT0""><b>管理</b></td>"
    MyIO.Echo "</tr>"
    If objPage.Rows.hasChildNodes Then
        i = 0
        For Each xmlNode In objPage.Rows.childNodes
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td align=""center""><input type=""checkbox"" id=""SeqID"" name=""SeqID"" value=""" & XMLAttr(xmlNode, "userid") & """ /></td>"
            MyIO.Echo "<td>" & XMLAttr(xmlNode, "nick") & "</td>"
            MyIO.Echo "<td>" & XMLAttr(xmlNode, "mobile") & "</td>"
            MyIO.Echo "<td align=""center"">" & GetUserStatus(XMLAttr(xmlNode, "status")) & "</td>"
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "pagecount") & "</td>"
            MyIO.Echo "<td align=""right"">"
            If atol(XMLAttr(xmlNode, "registertime")) <> 0 Then
                MyIO.Echo FormatTime(XMLAttr(xmlNode, "registertime"), "Y-m-d H:i")
            End If
            MyIO.Echo "</td>"
            MyIO.Echo "<td align=""right"">"
            If XMLAttr(xmlNode, "lastusedtime") <> 0 Then
                MyIO.Echo FormatTime(XMLAttr(xmlNode, "lastusedtime"), "Y-m-d H:i")
            End If
            MyIO.Echo "</td>"
            If MyKernel.Modlist(moMISC) = 1 Then
                MyIO.Echo "<td align=""center"">" & GetMISCStatus(XMLAttr(xmlNode, "misc_actionid")) & "</td>"
            End If
            MyIO.Echo "<td align=""center"">"
            MyIO.Echo "<select class=""sel"" onchange=""jspp.User.control(this, " & XMLAttr(xmlNode, "userid") & ")"">"
            MyIO.Echo "<option value=""0"">管理</option>"
            MyIO.Echo "<option value=""1"">查看</option>"
            MyIO.Echo "<option value=""2"">移动</option>"
            MyIO.Echo "<option value=""3"">删除</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
12

⌨️ 快捷键说明

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