📄 admin_user.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/adminfunction.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'//版权所有：野草设计
'//程序作者：野草
'//当前版本：V2.0
'//联系QQ：94440079
'//官方网站：http://www.yecaoweb.com
%>
<%
call hacker()
call checkadmin("user")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script type='text/javascript' language='javascript' src='inc/adminjs.js'></script>
<link rel="STYLESHEET" type="text/css" href="img/admin.css"><body style="margin:0;padding:0">
<table width="100%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d>
<tr class="bg" height="25"><td style="line-height:150%;">
<form action="admin_user.asp?action=crazydeluser" method="POST">
间隔天数：<input type='text' class="yecao" size="10" name="mydate" title="请输入天数，则删除或锁定在这段天数以前没有登陆过的用户！" />
<input type='radio' name="delmode" value='0' checked/>删除
<input value='1' type='radio' name="delmode"/>锁定
<input type="submit" value="批量执行" name="B1" class="button" />
</form>
</td></tr></table>
<%
if request("action")="del" then
Conn.Execute("Delete * From YC_user Where id="&Request.QueryString("id"))
YC("<script>alert('删除成功！');this.location.href='admin_user.asp';</script>")
response.end
elseif request("action")="crazydeluser" then
dim mydate
mydate=cint(trim(request.form("mydate")))
delmode=trim(request.form("delmode"))
if delmode=0 then
if isnull(mydate) or mydate="" then
response.write"<script>alert('天数不得为空！');location.href='admin_user.asp';</script>"
response.end
end if
sql="delete * from [YC_user] where datediff('d',datevalue(user_last_login_time),#"&date()&"#)>"&mydate&""
conn.execute(sql)
response.write"<script>alert('成功删除"&mydate&"天没有登陆过的用户！');location.href='admin_user.asp'</script>"
response.end
else
if isnull(delmode) or delmode="" then
response.write"<script>alert('天数不得为空！');location.href='admin_user.asp';</script>"
response.end
end if
sql="update [YC_user] set pass=0 where datediff('d',datevalue(user_last_login_time),#"&date()&"#)>"&mydate&""
conn.execute(sql)
response.write"<script>alert('成功锁定"&mydate&"天没有登陆过的用户！');location.href='admin_user.asp'</script>"
response.end
end if
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
if request("code")<>"" then
rs("user_code")=MD5(trim(replace(request("code"),"'","")))
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_exper")=request.Form("exper")
rs("user_face")=request.Form("face")
rs("user_address")=request.Form("address")
rs("user_admin")=request.Form("admin")
rs("user_about")=request.Form("about")
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_code")=MD5(trim(replace(request("code"),"'","")))
rs("user_exper")=request.Form("exper")
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_address")=request.Form("address")
rs("user_admin")=request.Form("admin")
rs("user_about")=request.Form("about")
rs("pass")=1
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=0 where id="&request.querystring("id"))
response.Redirect"admin_user.asp"
elseif request("action")="pass" then
Conn.Execute("update YC_user set pass=1 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="9" 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="15%"align=center>性别</td>
<td width="10%"align=center>积分</td>
<td width="10%"align=center>登陆</td>
<td width="10%"align=center>级别</td>
<td width="15%"align=center>状态</td>
<td width="10%" align=center>操作</td></tr><tr><td class="hr" colspan="9"></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")%>>" width=16 height=16 border="0" 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_exper")%></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>收费用户</font>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -