📄 admin_user.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="sqlx.asp"-->
<%
call hacker()
if session("superlogin")<>yecao then
response.Write "<script>alert('您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
elseif session("superadmin")<>"admin" then
response.Write "<script>alert('您不是超级管理员！您的权限不足！');this.location.href='index.asp';</script>"
Response.End
end if%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src=img/adminjs.js></script>
<link rel="STYLESHEET" type="text/css" href="img/admin.css"><body style="margin:0;padding:0">
<%if request("action")="del" then
Conn.Execute("Delete * From YC_user Where id="&Request.QueryString("id"))
Response.Write("<script>alert('删除成功！');this.location.href='admin_user.asp';</script>")
response.end
end if
if request.form("edit")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_user where id="&request("id")
rs.open sql,conn,1,3
rs("user_name")=request.Form("user")
if request("pass")<>"" then
rs("user_Pass")=MD5(trim(replace(request("pass"),"'","")))
end if
rs("user_question")=request.Form("question")
if request("answer")<>"" then
rs("user_answer")=MD5(trim(replace(request("answer"),"'","")))
end if
rs("user_true_name")=request.Form("truename")
rs("user_sex")=request.Form("sex")
rs("user_web")=request.Form("web")
rs("user_qq")=request.Form("qq")
rs("user_mail")=request.Form("mail")
rs("user_money")=request.Form("money")
rs("user_face")=request.Form("face")
rs("user_tel")=request.Form("tel")
rs("user_passport")=request.Form("passport")
rs("user_address")=request.Form("address")
rs("user_admin")=request.Form("admin")
rs.update
rs.close
response.Redirect"admin_user.asp"
set rs=nothing
elseif request.form("new")<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.open "YC_user",conn,1,3
rs.addnew
rs("user_name")=request.Form("user")
rs("user_pass")=MD5(trim(replace(request("pass"),"'","")))
rs("user_question")=request.Form("question")
rs("user_answer")=MD5(trim(replace(request("answer"),"'","")))
rs("user_true_name")=request.Form("truename")
rs("user_sex")=request.Form("sex")
rs("user_web")=request.Form("web")
rs("user_qq")=request.Form("qq")
rs("user_face")=request.Form("face")
rs("user_mail")=request.Form("mail")
rs("user_tel")=request.Form("tel")
rs("user_passport")=request.Form("passport")
rs("user_address")=request.Form("address")
rs("user_admin")=request.Form("admin")
rs.update
rs.close
set rs=nothing
response.write"<script>location.href='admin_user.asp';</script>"
elseif request("action")="nopass" then
Conn.Execute("update YC_user set pass=false where id="&request.querystring("id"))
response.Redirect"admin_user.asp"
elseif request("action")="pass" then
Conn.Execute("update YC_user set pass=true where id="&request.querystring("id"))
response.Redirect"admin_user.asp"
elseif request("action")=""then%>
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22" colspan="8" class=title><b> <img src=img/ie.gif border=0 width=15 height=15 align=absMiddle> 用户管理</b></td></tr>
<form method="post" name="form" id="form" action="del.asp" onsubmit="return downdel();">
<tr class=bg height="25"><td width="5%" align=center>选定</td>
<td width="25%" align=center>会员名</td>
<td width="5%"align=center>性别</td>
<td width="10%"align=center>点数</td>
<td width="10%"align=center>登陆</td>
<td width="20%"align=center>级别</td>
<td width="15%"align=center>状态</td>
<td width="10%" align=center>操作</td></tr><tr><td class="hr" colspan="8"></td></tr>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_user order by id desc"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
rs.pagesize=cint(adminpage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr height=25 class=bg onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#efefef'">
<td align=center>
<input name='SoftID' type='checkbox' onclick="unselectall()" id="SoftID" value='<%=rs("id")%>'></td>
<td><img src="<%=rs("user_face")%>" title="<img src=<%=rs("user_face")%> border=1>" width=16 height=16 border=1 align=absmiddle> <a href="?action=edit&id=<%=rs("id")%>"><%=rs("user_name")%></a></td>
<td align=center><%=rs("user_sex")%></td>
<td align=center><%=rs("user_money")%></td><td width="10%"align=center><%=rs("user_login_time")%></td>
<td align=center>
<%if rs("user_admin")="1" then
response.write "普通会员"
elseif rs("user_admin")="2" then
response.write "<font color=blue>VIP 会员</font>"
elseif rs("user_admin")="3" then
response.write "<font color=red>管理人员</font>"
else
response.write "非法会员"
end if%>
</td>
<td align=center>
<%if rs("pass")=false then%>
<a href="?action=pass&id=<%=rs("id")%>"><font color=red><b>等待通过</b></font></a>
<%else%>
<a href="?action=nopass&id=<%=rs("id")%>">取消通过</a>
<%end if%>
</td>
<td align=center> <a href="?action=edit&id=<%=rs("id")%>">编辑</a>
</td></tr><tr><td class="hr" colspan="8"></td></tr>
<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
end if
if rs.eof and rs.bof then
response.write"<tr><td colspan=6 height=100 align=center>暂时没有注册会员！</td></tr>"
else%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -