📄 admin_user.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="../inc/NC_MD5Cls.Asp"-->
<%
Private NC_Encode
Private Rs1
Private i
Private ID
Private selUserid
Admin_User
Public Sub Admin_User()
Set NC_Encode = New MD5Encode
NC_Admin.AdminChk = "41"
NC_Admin.Check
Newasp.admin_header
Set Rs = Server.CreateObject("adodb.recordset")
Set Rs1 = Server.CreateObject("adodb.recordset")
Select Case Trim(Request("Action"))
Case "edit"
Call userModify
Case "money"
Call userMoney
Case "save"
Call saveModify
Case "add"
Call addMoney
Case Else
Call Usermain
End Select
If founderr = True Then
NC_Admin.Error_msg (ErrMsg)
End If
Newasp.admin_footer
Set Rs = NC_Encode
End Sub
Private Sub deluser()
conn.Execute ("delete from [NC_user] where userid in (" & selUserid & ")")
End Sub ' deluser
Private Sub islock()
conn.Execute ("update [NC_user] set islock=1 where userid in (" & selUserid & ")")
End Sub
Private Sub nolock()
conn.Execute ("update [NC_user] set islock=0 where userid in (" & selUserid & ")")
End Sub
Private Sub Usermain()
Dim CurrentPage
Dim maxperpage
Dim totalnumber
Dim Pcount
Dim n
Dim keyword
Dim findword
Dim grades
Dim bookmark
Dim filename
If Not IsEmpty(Request("page")) Then
CurrentPage = CInt(Request("page"))
Else
CurrentPage = 1
End If
maxperpage = 30 '###每页显示数
If Not IsEmpty(Request("selUserid")) Then
selUserid = Request("selUserid")
If Request("action") = "删除用户" Then
Call deluser
ElseIf Request("action") = "激活用户" Then
Call nolock
ElseIf Request("action") = "锁定用户" Then
Call islock
Else
Response.Write "无效参数！"
Err.Raise -19691969
End If
End If
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tableBorder"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <th>用户管理</th></tr>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height=""23"" class=forumrow><B>说明</B>：<BR>点击用户名可以查看及修改用户信息。<BR>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
Response.Write "<form method=Post name=""myform"" action=""admin_user.asp"" onSubmit=""return Juge(this)"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=""22"" class=forumrow>查询： <input align=""absmiddle"" name=""keyword"" type=""text"" id=""keyword"" size=""30""> 查询方法:" & vbCrLf
Response.Write " <select size=""1"" name=""key"">" & vbCrLf
Response.Write " <option value=""username"">按用户名名</option>" & vbCrLf
Response.Write " <option value=""truename"">真实姓名</option>" & vbCrLf
Response.Write " <option value="""">不限查询条件</option>" & vbCrLf
Response.Write " </select>" & vbCrLf
Response.Write " <input type=""submit"" name=""Submit"" align=""absmiddle"" value=""查 询..."" class=button>" & vbCrLf
Response.Write "</td></tr></form>" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td height=""23"" align=""center"" class=forumrow>" & vbCrLf
Set Rs1 = conn.Execute("select * from NC_UserGroup order by groupid")
Rs1.movenext
Do While Not Rs1.EOF
Response.Write " <a href=admin_user.asp?grade=" & Rs1("grades") & ">" & Rs1("GroupName") & "</a> "
Rs1.movenext
Loop
Rs1.Close
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table><BR>" & vbCrLf
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tableBorder"">" & vbCrLf
Response.Write " <tr nowrap>" & vbCrLf
Response.Write " <th nowrap width=""5%"">操作</th><th width=""25%"">用户名</th><th width=""20%"">真实姓名</th><th width=""10%"">邮 箱</th><th width=""15%"">用户点数</th><th nowrap width=""12%"">增加点数</th><th nowrap width=""12%"">上次登陆时间</th><th nowrap width=""6%"">状态</th></tr>" & vbCrLf
keyword = Request("keyword")
If Not IsNumeric(Request("grade")) And Request("grade") <> "" Then
Response.Write "错误的系统参数!请输入整数"
Err.Raise -19691969
End If
If Not IsEmpty(Request("grade")) Then
grades = "where grade=" & Request("grade") & ""
Else
grades = ""
End If
If Not IsNull(keyword) And keyword <> "" Then
keyword = Replace(Replace(Replace(keyword, "'", "‘"), "<", "<"), ">", ">")
If Request("key") = "username" Then
findword = "username like '%" & keyword & "%'"
ElseIf Request("key") = "truename" Then
findword = "truename like '%" & keyword & "%'"
Else
findword = "username like '%" & keyword & "%' or truename like '%" & keyword & "%'"
End If
SQL = "select * from [NC_user] where " & findword & " "
SQL = SQL & " order by userid desc"
Else
SQL = "select * from [NC_user] " & grades & " order by userid desc"
End If
Rs.Open SQL, conn, 1, 1
If Rs.bof And Rs.EOF Then
Response.Write "<tr><td colspan=8 class=forumrow>你还没有任何数据！</td></tr>"
Else
i = 1
totalnumber = Rs.recordcount
If (totalnumber Mod maxperpage) = 0 Then
Pcount = totalnumber \ maxperpage
Else
Pcount = totalnumber \ maxperpage + 1
End If
Rs.MoveFirst
If CurrentPage > Pcount Then CurrentPage = Pcount
If CurrentPage < 1 Then CurrentPage = 1
Rs.Move (CurrentPage - 1) * maxperpage
bookmark = Rs.bookmark
i = 1
Do While Not Rs.EOF And i < CLng(maxperpage)
Response.Write " <form name=""form"" method=""post"" action="""">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td class=forumrow align=""center""><input type=""checkbox"" name=""selUserid"" value="""
Response.Write Rs("userid")
Response.Write """></td>" & vbCrLf
Response.Write " <td class=forumrow nowrap align=""center""><a href=?action=edit&userid="
Response.Write Rs("userid")
Response.Write ">"
Response.Write Rs("username")
Response.Write "<a></td>" & vbCrLf
Response.Write " <td height=""22"" align=""center"" nowrap class=""forumrow"">"
Response.Write Rs("truename")
Response.Write "</td>" & vbCrLf
Response.Write " <td class=forumrow nowrap align=""center""><a href=admin_mailist.asp?action=mail&useremail="
Response.Write Rs("usermail")
Response.Write "><img src=""images/email.gif"" border=0></a></td>" & vbCrLf
Response.Write " <td class=forumrow nowrap align=""center""><font COLOR=#FF0000>"
Response.Write Rs("money")
Response.Write "</font> 点</td>" & vbCrLf
Response.Write " <td class=forumRowHighlight nowrap align=""center""><a href=?action=money&userid="
Response.Write Rs("userid")
Response.Write ">操 作</a></td>" & vbCrLf
Response.Write " <td class=forumrow nowrap align=""center"">"
Response.Write Rs("logintime")
Response.Write "</td>" & vbCrLf
Response.Write " <td class=forumrow align=""center""><font COLOR=#FF0000>"
If Rs("isLock") = 0 Then
Response.Write "<B>√</B>"
Else
Response.Write "<B>×</B>"
End If
Response.Write "</font></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Rs.movenext
i = i + 1
Loop
End If
Rs.Close
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=""22"" colspan=""8"" class=""forumRowHighlight"">" & vbCrLf
Response.Write "管理操作：选择/反选 " & vbCrLf
Response.Write " <input type=""checkbox"" name=""checkbox"" value=""checkbox"" onclick=CheckAll(this.form)> " & vbCrLf
Response.Write " <input class=""button"" onClick=""{if(confirm('确定删除选定的用户吗?')){this.document.form.submit();return true;}return false;}"" type=submit value=""删除用户"" name=action> " & vbCrLf
Response.Write " <input class=""button"" onClick=""{if(confirm('确定激活选定的用户吗?')){this.document.form.submit();return true;}return false;}"" type=submit value=""激活用户"" name=action> " & vbCrLf
Response.Write " <input class=""button"" onClick=""{if(confirm('确定锁定选定的用户吗?')){this.document.form.submit();return true;}return false;}"" type=submit value=""锁定用户"" name=action> " & vbCrLf
Response.Write " </td></tr></form>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td height=""22"" align=""center"" colspan=""8"" class=""forumrow"">" & vbCrLf
filename = "admin_user.asp"
If totalnumber Mod maxperpage = 0 Then
n = totalnumber \ maxperpage
Else
n = totalnumber \ maxperpage + 1
End If
If CurrentPage < 2 Then
Response.Write " 共有 <font COLOR=#FF0000>" & totalnumber & "</font> 位用户 首 页 上一页 "
Else
Response.Write "共有 <font COLOR=#FF0000>" & totalnumber & "</font> 位用户 <a href=" & filename & "?page=1>首 页</a> "
Response.Write "<a href=" & filename & "?page=" & CurrentPage - 1 & ">上一页</a> "
End If
If n - CurrentPage < 1 Then
Response.Write "下一页 尾 页 "
Else
Response.Write "<a href=" & filename & "?page=" & (CurrentPage + 1) & ">下一页</a>"
Response.Write " <a href=" & filename & "?page=" & n & ">尾 页</a>"
End If
Response.Write "</td></tr></table>" & vbCrLf
End Sub
Private Sub deldata()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -