📄 admin_user.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
Dim Rs1
Dim i,ii,n
Dim ID
Dim selUserid
Dim CurrentPage
Dim maxperpage
Dim totalnumber
Dim TotalPageNum
Dim keyword
Dim findword
Dim grades
Dim bookmark
Dim filename
Dim WhereSQL
Dim Rs3
Dim SQL3
Dim Rs4
Dim SQL4
Dim Rs5
Dim SQL5
Dim Rs6
Dim SQL6
NC_Admin.AdminChk = "41"
NC_Admin.Check
DownsysClass.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
DownsysClass.admin_footer
NothingObject
Private Sub deluser()
conn.Execute ("delete from [NC_user] where userid in (" & selUserid & ")")
End Sub
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()
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 = Server.HTMLEncode(Request("keyword"))
If Not IsNumeric(Request("grade")) And Request("grade") <> "" Then
Response.Write "错误的系统参数!请输入整数"
Err.Raise -19691969
End If
If 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 = "Where username like '%" & keyword & "%'"
ElseIf Request("key") = "truename" Then
findword = "Where truename like '%" & keyword & "%'"
Else
findword = "Where username like '%" & keyword & "%' or truename like '%" & keyword & "%'"
End If
WhereSQL = findword
Else
WhereSQL = grades
End If
TotalNumber = Conn.Execute("Select count(userid) from [NC_user] "& WhereSQL &"")(0)
TotalPageNum = CInt(TotalNumber / maxperpage) '得到总页数
If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum
SQL = "select * from [NC_user] " & WhereSQL & " order by userid desc"
Rs.Open SQL, Conn, 1
If Rs.bof And Rs.EOF Then
Response.Write "<tr><td colspan=8 class=forumrow>你还没有任何数据！</td></tr>"
Else
If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
i = 0
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"">"
if Rs("Grade")=1 then
Response.Write "普通"
else
Response.Write "<font COLOR=#FF0000>VIP</tont>"
end if
Response.Write "</td>" & vbCrLf
Response.Write " <td class=forumRowHighlight nowrap align=""center"">"
Response.Write Rs("company")
Response.Write "</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><form method=Post action=?grade=" & Request("grade") & ">" & 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&grade=" & Request("grade") & ">首 页</a> "
Response.Write "<a href=" & filename & "?page=" & CurrentPage - 1 & "&grade=" & Request("grade") & ">上一页</a> "
End If
If n - CurrentPage < 1 Then
Response.Write "下一页 尾 页 "
Else
Response.Write "<a href=" & filename & "?page=" & (CurrentPage + 1) & "&grade=" & Request("grade") & ">下一页</a>"
Response.Write " <a href=" & filename & "?page=" & n & "&grade=" & Request("grade") & ">尾 页</a>"
End If
Response.Write " 转到 <select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:submit()'>" & vbCrLf
For ii = 1 To n
Response.Write "<option value='" & ii & "' "
If CurrentPage = CInt(ii) Then
Response.Write "selected "
End If
Response.Write ">第" & ii & "页</option>"
Next
Response.Write "</select> " & vbCrLf
Response.Write "</td></tr></FORM></table>" & vbCrLf
End Sub
Private Sub deldata()
conn.Execute ("delete from user where userid=" & Request.QueryString("userid"))
Response.Redirect ("admin_user.asp")
Err.Raise -19691969
End Sub
Private Sub userModify()
SQL = "select * from [NC_user] where userid=" & Request("userid")
Rs.Open SQL, conn, 1, 1
Set Rs3 = CreateObject("Adodb.recordset")
SQL3 = "select sortname from NC_SoftSort where sortid = "& Left((Rs("CategoryId")), 2) &""
Rs3.Open SQL3, Conn, 1, 1
Set Rs4 = CreateObject("Adodb.recordset")
SQL4 = "select * from MaterialClass where MaterialClassCode = "& Left((Rs("MaterialClassCode")), 2) &""
Rs4.Open SQL4, Conn, 1, 1
Set Rs5 = CreateObject("Adodb.recordset")
SQL5 = "select * from MaterialClass where MaterialClassCode = "&(Left((Rs("MaterialClassCode")), 4)) &""
Rs5.Open SQL5, Conn, 1, 1
Set Rs6 = CreateObject("Adodb.recordset")
SQL6 = "select * from MaterialClass where MaterialClassCode = "& Rs("MaterialClassCode") &""
Rs6.Open SQL6, Conn, 1, 1
Response.Write "<form method=Post name=""myform"" action=""admin_user.asp?action=save"">" & vbCrLf
Response.Write "<table width=""85%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""tableBorder"">" & vbCrLf
Response.Write " <tr> " & vbCrLf
Response.Write " <th colspan=""2"">"
Response.Write Rs("username")
Response.Write " 的详细资料</th>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr> " & vbCrLf
Response.Write " <td width=""25%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户名：</td>" & vbCrLf
Response.Write " <td width=""75%"" class=""forumRow"">"
Response.Write Rs("username")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -