📄 user.asp
字号:
MyIO.Echo "</tr>"
i = i + 1
Next
Call ShowControl
Call ShowPage
Else
MyIO.Echo "<tr class=""winT4"">"
MyIO.Echo "<td colspan=""" & IIf(MyKernel.Modlist(moMISC) = 1, 9, 8) & """>尚无任何用户</td>"
MyIO.Echo "</tr>"
Call ShowControl
End If
MyIO.Echo "</table>"
Set objPage = Nothing
End Sub
Private Function GetMISCStatus(ByVal intAction)
Dim ret
Select Case atoi(intAction)
Case 0: ret = "未知"
Case 1: ret = "定制"
Case 2: ret = "退订"
Case 3: ret = "续订"
Case 4: ret = "暂停"
End Select
GetMISCStatus = ret
End Function
Private Sub ShowControl()
MyIO.Echo "<tr class=""winT4"">"
MyIO.Echo "<td align=""center""><input type=""checkbox"" onclick=""chkAll(this)"" /></td>"
MyIO.Echo "<td colspan=""" & IIf(MyKernel.Modlist(moMISC) = 1, 8, 7) & """>"
MyIO.Echo " <input type=""button"" class=""btn"" value=""移动"" onclick=""jspp.User.moveAll(this.form)"" />"
MyIO.Echo " <input type=""button"" class=""btn"" value=""删除"" onclick=""jspp.User.removeAll(this.form)"" />"
MyIO.Echo " <input type=""button"" class=""btn"" value=""发送系统消息"" onclick=""jspp.User.send(this.form)"" />"
MyIO.Echo " <input type=""button"" class=""btn"" value=""搜索"" onclick=""jspp.User.query(this.form)"" />"
MyIO.Echo " <input name=""Keyword"" type=""text"" class=""txt"" value=""" & MyIO.HTMLEncode(MyIO.QueryString("Keyword")) & """ />"
MyIO.Echo " <font color=""#0000FF"">手机号码为99910000000的用户是系统默认游客</font>"
MyIO.Echo "</td>"
MyIO.Echo "</tr>"
End Sub
Private Sub ShowPage()
MyIO.Echo "<tr class=""winT4"">"
MyIO.Echo "<td colspan=""" & IIf(MyKernel.Modlist(moMISC) = 1, 9, 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.User.doPage(1)"" class=""a1"" />首 页</a>"
MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.User.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.User.doPage(" & (objPage.ID + 1) & ")"" class=""a1"" />下一页</a>"
MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.User.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.User.doPage(document.getElementById('_page').value)"" />"
MyIO.Echo "</td>"
MyIO.Echo "</tr>"
End Sub
Private Sub doGetDetail()
Dim objCmd
Set objCmd = MyKernel.Command(T_USER)
objCmd.CommandType = "SELECT"
objCmd.Where = "SEQID=" & atol(MyIO.QueryString("SeqID"))
If MyPower("ViewUser") = 0 Then
ExportClose "您没有查看用户的权限"
ElseIf Not objCmd.Exec Then
ExportClose "找不到到您要查看的用户"
Else
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.using(""mocom.WAPmo.Kernel"");"
MyIO.Echo "jspp.using(""mocom.WAPmo.ImageBox"");"
MyIO.Echo "window.onload = function()"
MyIO.Echo "{"
MyIO.Echo "window.focus();"
MyIO.Echo "};"
MyIO.Echo "</script>"
MyIO.Echo "</head>"
MyIO.Echo "<body class=""system2"">"
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>" & MUST_INPUT_HINT & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td width=""20%"">用户昵称</td>"
MyIO.Echo "<td width=""80%"">" & IIf(objCmd("UserName") = "", " ", objCmd("UserName")) & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>用户ID</td>"
MyIO.Echo "<td>" & objCmd("SeqID") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>手机号码</td>"
MyIO.Echo "<td>" & objCmd("Mobile") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>用户姓名</td>"
MyIO.Echo "<td>" & IIf(objCmd("RealName") = "", " ", objCmd("RealName")) & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>注册时间</td>"
MyIO.Echo "<td>"
If objCmd("RegTime") > 0 Then
MyIO.Echo FormatTime(objCmd("RegTime"), "Y-m-d H:i:s")
End If
MyIO.Echo "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>注册IP</td>"
MyIO.Echo "<td>" & objCmd("RegIP") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>最后访问时间</td>"
MyIO.Echo "<td>"
If objCmd("LastVisitTime") > 0 Then
MyIO.Echo FormatTime(objCmd("LastVisitTime"), "Y-m-d H:i:s")
End If
MyIO.Echo "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>最后访问IP</td>"
MyIO.Echo "<td>" & objCmd("LastVisitIP") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>首页访问次数</td>"
MyIO.Echo "<td>" & objCmd("VisitCount") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>页面访问次数</td>"
MyIO.Echo "<td>" & objCmd("PageCount") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>最后访问页面</td>"
MyIO.Echo "<td>" & objCmd("LastPage") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>首次搜索时间</td>"
MyIO.Echo "<td>"
If objCmd("FirstSearchTime") > 0 Then
MyIO.Echo FormatTime(objCmd("FirstSearchTime"), "Y-m-d H:i:s")
End If
MyIO.Echo "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>首次搜索单词</td>"
MyIO.Echo "<td>" & objCmd("FirstSearchWord") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>最后搜索时间</td>"
MyIO.Echo "<td>"
If objCmd("LastSearchTime") > 0 Then
MyIO.Echo FormatTime(objCmd("LastSearchTime"), "Y-m-d H:i:s")
End If
MyIO.Echo "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>最后搜索单词</td>"
MyIO.Echo "<td>" & objCmd("LastSearchWord") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>搜索次数</td>"
MyIO.Echo "<td>" & objCmd("SearchCount") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>首次使用UA</td>"
MyIO.Echo "<td>" & objCmd("FirstUserAgent") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>最后使用UA</td>"
MyIO.Echo "<td>" & objCmd("LastUserAgent") & "</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT2"">"
MyIO.Echo "<td colspan=""2""><input type=""button"" class=""btn"" value=""关闭窗口"" onclick=""window.close()"" /></td>"
MyIO.Echo "</tr>"
MyIO.Echo "</table>"
MyIO.Echo "</body>"
MyIO.Echo "</html>"
End If
Set objCmd = Nothing
End Sub
Private Sub doPostMove()
If MyPower("ModifyUser") = 0 Then
MyIO.Echo "您没有编辑用户的权限"
Else
Dim arr
Dim lngStatus
arr = Split(MyIO.Form("SeqID"), ",")
lngStatus = atol(MyIO.Form("Status"))
If Not IsNumericArray(arr) Then
MyIO.Echo "请选择您要移动的用户"
Else
strSQL = "UPDATE $(Table) SET Status=$(Status) WHERE SEQID IN ($(SeqID))"
strSQL = Replace(strSQL, "$(Table)", T_USER)
strSQL = Replace(strSQL, "$(Status)", lngStatus)
strSQL = Replace(strSQL, "$(SeqID)", Join(arr, ","))
MyKernel.DB.Exec strSQL
MyIO.Echo "OK"
End If
End If
End Sub
Private Sub doPostRemove()
If MyPower("DeleteUser") = 0 Then
MyIO.Echo "您没有删除用户的权限"
Else
Dim arr
arr = Split(MyIO.Form("SeqID"), ",")
If Not IsNumericArray(arr) Then
MyIO.Echo "请选择您要删除的用户"
Else
strSQL = "DELETE FROM $(Table) WHERE USERID IN ($(UserID))"
strSQL = Replace(strSQL, "$(UserID)", Join(arr, ","))
MyKernel.DB.Exec Replace(strSQL, "$(Table)", T_BOOK)
MyKernel.DB.Exec Replace(strSQL, "$(Table)", T_REMARK)
MyKernel.DB.Exec Replace(strSQL, "$(Table)", T_ARTICLE)
MyKernel.DB.Exec Replace(strSQL, "$(Table)", T_MARKER)
MyKernel.DB.Exec Replace(strSQL, "$(Table)", T_TRADE)
MyKernel.DB.Exec Replace(strSQL, "$(Table)", T_USER_LOG)
strSQL = "DELETE FROM $(Table) WHERE SEQID IN ($(SeqID))"
strSQL = Replace(strSQL, "$(SeqID)", Join(arr, ","))
MyKernel.DB.Exec Replace(strSQL, "$(Table)", T_USER)
strSQL = "DELETE FROM $(Table) WHERE SENDER IN ($(UserID)) OR SENDTO IN ($(UserID))"
strSQL = Replace(strSQL, "$(UserID)", Join(arr, ","))
MyKernel.DB.Exec Replace(strSQL, "$(Table)", T_MSGBOX)
MyIO.Echo "OK"
End If
End If
End Sub
Private Sub SetMsgCount()
SetCache "WAPmo.MsgCount", atol(MyKernel.DB.GetRow("SELECT COUNT(SeqId) FROM " & T_MSGBOX & " WHERE Sender=0"))
End Sub
Private Sub doPostSend()
Dim strTitle, strContent
strTitle = Trim(MyIO.Form("Title"))
strContent = Trim(MyIO.Form("Content"))
If strTitle = "" Then
MyIO.Echo "请输入标题"
ElseIf strContent = "" Then
MyIO.Echo "请输入内容"
Else
strSQL = "INSERT INTO $(Table) (Sender,SenderName,Sendto,SendtoName,Title,Content,Status,Intime) VALUES ($(Sender),'$(SenderName)',$(Sendto),'$(SendtoName)','$(Title)','$(Content)',0,$(Timeval))"
strSQL = Replace(strSQL, "$(Table)", T_MSGBOX)
strSQL = Replace(strSQL, "$(Sender)", 0)
strSQL = Replace(strSQL, "$(SenderName)", "站长")
strSQL = Replace(strSQL, "$(Sendto)", 0)
strSQL = Replace(strSQL, "$(SendtoName)", "用户")
strSQL = Replace(strSQL, "$(Title)", SafeString(strTitle))
strSQL = Replace(strSQL, "$(Content)", SafeString(strContent))
strSQL = Replace(strSQL, "$(Timeval)", GetTime(Now()))
MyKernel.DB.Exec strSQL
Call SetMsgCount
MyIO.Echo "OK"
End If
End Sub
Public Function newInstance()
Set newInstance = New ImplMocomWAPmoManagerUser
End Function
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -