📄 admin_member.asp
字号:
<!-- #include file="function.asp" -->
<!-- #include file="MD5.asp" -->
<!-- #include file="admin_cookie.asp" -->
<%
dim delid, count, TotalPage, PageCount,wheresearch
myfilename="admin_member.asp"
thisttime=Now()
set rs=server.createobject("ADODB.Recordset")
if action="member" and Request.ServerVariables("request_method") = "POST" then
if HTMLEncode(request.form("edituser"))="修改" then
memberid=int(Request.Form("memberid"))
euserpass=Trim(Request.Form("euserpass"))
eusermail=HTMLEncode(Request.Form("eusermail"))
euserface=HTMLEncode(Request.Form("euserhead"))
edistinction=HTMLEncode(Request.Form("edistinction"))
sql="select * from [user] where id="&memberid
rs.Open sql,Conn,1,3
rs("distinction")=edistinction
if euserface<>empty then rs("userface")=euserface
if eusermail<>empty then rs("usermail")=eusermail
if euserpass<>empty then rs("userpass")=md5(euserpass)
rs.update
rs.close
Set rs=Nothing
euserpass=md5(euserpass)
message="<li>用户修改成功<li><a href=admin_main.asp>返回管理首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=2;url="&myfilename&">")
Response.End
elseif HTMLEncode(request.form("deluser"))="删除" then
memberid=int(Request.Form("memberid"))
memberid=HTMLEncode(memberid)
conn.execute("delete from [user] where id="&memberid)
message="<li>用户删除成功<li><a href=admin_main.asp>返回管理首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=2;url="&myfilename&">")
Response.End
else
error("操作错误！")
Response.End
end if
Response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title> DATALL 知识库asp版 v2.0 </title>
<style type="text/css">
<!--
body {
background: #FFFFFF;
font-size: 12px;
scrollbar-base-color: #0066CC;
scrollbar-arrow-color: #FFFFFF;
margin: 0px;
padding: 0px;
border: 0px;
}
td { font-size: 12px;}
.input1 {
background: #EEEEEE;
}
-->
</style>
</head>
<body>
<!--
'┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓'
'┃ DATALL 知识库asp版 v2.0 ┃'
'┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫'
'┃ homepage:http://www.datall.com ┃'
'┃ http://www.datall.net ┃'
'┃ Q Q NO.:194088 ┃'
'┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫'
'┃ DATALL出品 ┃'
'┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛'
-->
<script>
function CheckAll(form){for (var i=0;i<form.elements.length;i++){var e = form.elements[i];if (e.name != 'chkall')e.checked = form.chkall.checked;}}
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
</script>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF">
<tr>
<td height="20" colspan="6"> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td colspan="6">
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"> <strong>用户管理</strong></td>
<form method="post" name="form" action="<%=myfilename%>">
<input type="hidden" name="action" value="search">
<td align="right">快速查找用户：
<input name="searchkey" type="text" size="15" value="<%=Request("searchkey")%>" class="input1">
<input type="submit" name="Submit" value="查找"> </td>
</form>
</tr>
</table>
</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td width="6%" height="20">头像</td>
<td width="19%">用户名</td>
<td width="19%">密码</td>
<td width="25%">E-MAIL</td>
<td width="15%">级别</td>
<td width="16%">操作</td>
</tr>
<%
wheresearch=""
searchkey=HTMLEncode(Request("searchkey"))
if searchkey<>empty then wheresearch=" where username like '%"&searchkey&"%'"
count=conn.execute("Select count(id) from [user]"&wheresearch&"")(0)
TotalPage=cint(count/20)
if TotalPage < count/20 then TotalPage=TotalPage+1
PageCount = cint(Request.QueryString("P"))
if PageCount < 1 or PageCount = empty then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
sql="select * from [user]"&wheresearch&" order by distinction Desc,id"
if PageCount>100 then
rs.Open sql,Conn,1
else
Set Rs=Conn.Execute(sql)
end if
if TotalPage>1 then RS.Move (PageCount-1) * 20
i=0
Do While Not RS.EOF and i<20
i=i+1
if Not Response.IsClientConnected then responseend
%>
<form method="post" name="form" action="<%=myfilename%>">
<input type="hidden" name="action" value="member">
<input type="hidden" name="memberid" value="<%=rs("id")%>">
<tr bgcolor="#EEEEEE" align="center">
<td height="24"><input name="euserhead" type="text" class="input1" size="2" value="<%=rs("userface")%>"></td>
<td><input name="eusername" type="text" class="input1" size="15" value="<%=rs("username")%>" disabled></td>
<td><input name="euserpass" type="text" class="input1" size="15" value=""></td>
<td><input name="eusermail" type="text" class="input1" size="20" value="<%=rs("usermail")%>"></td>
<%
dim distinctionselect
distinctionselect="<option value=0>普通会员</option><option style=color:#339933 value=3>责任编辑</option><option style=color:#ff0000 value=10>站长</option>"
distinctionselect=replace(distinctionselect,"value="&rs("distinction"),"value="&rs("distinction")&" selected")
%>
<td><select name="edistinction" class="input1"><%=distinctionselect%></select></td>
<td><input type="submit" name="edituser" value="修改"> <input type="submit" onclick="checkclick('您确定要删除该用户?');" name="deluser" value="删除"></td>
</tr>
</form>
<tr>
<td bgcolor="#FFFFFF" colspan="6" height="20"><%=rs("username")%>的注册IP是:<%=rs("userip")%></td>
</tr>
<%
RS.MoveNext
loop
RS.Close
Set RS=Nothing
%>
<tr>
<td bgcolor="#EEEEEE" colspan="6" height="20">
共有 <%=TotalPage%> 页
[<b>
<script>
TotalPage=<%=TotalPage%>
PageCount=<%=PageCount%>
for (var i=1; i <= TotalPage; i++) {
if (i <= PageCount+3 && i >= PageCount-3 || i==1 || i==TotalPage){
if (i > PageCount+4 || i < PageCount-2 && i!=1 && i!=2 ){document.write(" ... ");}
if (PageCount==i){document.write(" "+ i +" ");}
else{
document.write("<a href=?p="+i+"&searchkey=<%=Request("searchkey")%>>"+ i +"</a> ");
}
}
}
</script>
</b>]
</td>
</tr>
<tr>
<td height="20"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -