📄 admin_user.asp

📁 多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
        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
        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"">　<font COLOR=#FF0000>"
        Response.Write Rs("username")
        Response.Write "</font></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">真实姓名：</td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　"
        Response.Write Rs("truename")
        Response.Write " </td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">联系电话：</td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　"
        Response.Write Rs("usertel")
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">OICQ： </td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　"
        Response.Write Rs("oicq")
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">邮政编码：</td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　"
        Response.Write Rs("postcode")
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">联系地址：</td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　"
        Response.Write Rs("address")
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">登陆次数： </td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　<font COLOR=#FF0000>"
        Response.Write Rs("loginum")
        Response.Write "</font> 次</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">最后登陆IP地址： </td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　<font COLOR=#FF0000>"
        Response.Write Rs("userip")
        Response.Write "</font></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">最后登陆时间： </td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　<font COLOR=#FF0000>"
        Response.Write Rs("logintime")
        Response.Write "</font> </td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户注册时间： </td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　"
        Response.Write Rs("regtime")
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户状态： </td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　<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
        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 height=""22"" align=""right"" nowrap class=""forumRowHighlight"">账户身份： </td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　<select name=""grade"">" & vbCrLf
        Set Rs1 = Server.CreateObject("adodb.recordset")
        Set Rs1 = conn.Execute("select * from NC_UserGroup order by groupid")
        Do While Not Rs1.EOF
                Response.Write "<option value="""
                Response.Write Rs1("Grades")
                Response.Write """ "
                If Trim(Rs1("grades")) = "" & Rs("Grade") & "" Then
                        Response.Write " selected"
                End If
                Response.Write ">"
                Response.Write Rs1("GroupName")
                Response.Write "</option>" & vbCrLf
                Rs1.movenext
        Loop
        Rs1.Close
        Set Rs1 = Nothing
        Response.Write " </select></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">账户点数： </td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　<input name=""money"" type=""text"" size=""10"" value="""
        Response.Write Rs("money")
        Response.Write """></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户邮箱：</td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　<input name=""usermail"" type=""text"" size=""25"" value="""
        Response.Write Rs("usermail")
        Response.Write """></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户答案：</td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　<input name=""answer"" type=""text"" size=""25"" value=""""></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">用户密码：</td>" & vbCrLf
        Response.Write " <td class=""forumRow"">　<input name=""password"" type=""text"" size=""25"" value=""""></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""center"" colspan=""2"" class=""forumRow"">" & vbCrLf
        Response.Write "<INPUT type=hidden name=userid value="""
        Response.Write Rs("userid")
        Response.Write """>" & vbCrLf
        Response.Write "<INPUT type=hidden name=username value="""
        Response.Write Rs("username")
        Response.Write """>　" & vbCrLf
        Response.Write "<INPUT onclick=javascript:history.go(-1) type=button value="" 返回上一页"" class=button>　" & vbCrLf
        Response.Write "<input type=""submit"" name=""Submit"" class=button value=""确认修改""></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write "</table></form>" & vbCrLf
        Rs.Close
End Sub


Private Sub saveModify()
        If founderr = False Then
                SQL = "select * from [NC_user] where userid=" & Request("userid")
                Rs.Open SQL, conn, 1, 3
                If Request.Form("password") <> "" Then
                        Rs("password") = NC_Encode.md5(Request.Form("password"))
                End If
                If Request.Form("grade") <> "" Then
                        Rs("grade") = Request.Form("grade")
                End If
                If Request.Form("money") <> "" Then
                        Rs("money") = Request.Form("money")
                End If
                If Request.Form("usermail") <> "" Then
                        Rs("usermail") = Request.Form("usermail")
                End If
                If Request.Form("answer") <> "" Then
                        Rs("answer") = NC_Encode.md5(Request.Form("answer"))
                End If
                Rs.update
                Rs.Close
                Set Rs = Nothing
                NC_Admin.Succeed_Msg ("<li>用户 " & Request.Form("username") & " 的资料已经修改成功!</li>")
                Err.Raise -19691969
        End If
End Sub


Private Sub addMoney()
        If founderr = False Then
                SQL = "select * from [NC_user] where userid=" & Request("userid")
                Rs.Open SQL, conn, 1, 3
                If Request.Form("money") <> "" Then
                        Rs("money") = Request.Form("money")
                End If
                Rs.update
                Rs.Close
                Set Rs = Nothing
                NC_Admin.Succeed_Msg ("<li>您已经在 " & Request.Form("username") & " 的账户上面成功添加点数:" & Request.Form("money") & " </li>")
                Err.Raise -19691969
        End If
End Sub


Private Sub userMoney()
        SQL = "select * from [NC_user] where userid=" & Request("userid")
        Rs.Open SQL, conn, 1, 1
        Response.Write "<form method=Post name=""myform"" action=""admin_user.asp?action=add"">" & 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=""30%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">请输入要添加的金钱数</td>" & vbCrLf
        Response.Write " <td width=""70%"" class=""forumRow"">　<input name=""money"" type=""text"" size=""10"" value="""
        Response.Write Rs("money")
        Response.Write """> 元</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""center"" colspan=""2"" class=""forumRow"">" & vbCrLf
        Response.Write "<INPUT type=hidden name=userid value="""
        Response.Write Rs("userid")
        Response.Write """>" & vbCrLf
        Response.Write "<INPUT type=hidden name=username value="""
        Response.Write Rs("username")
        Response.Write """>　" & vbCrLf
        Response.Write "<INPUT onclick=javascript:history.go(-1) type=button value="" 返回上一页"" class=button>　" & vbCrLf
        Response.Write "<input type=""submit"" name=""Submit"" class=button value=""确认添加""></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write "</table></form>" & vbCrLf
        Rs.Close
End Sub
%>
上一页 12
⌨️ 快捷键说明

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