📄 wzgl_03.asp
字号:
<!--#include file="function/m_conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="power.asp"-->
<%
if len(session("login_name"))=0 then
%>
<script language="javascript">
alert("您没有权限访问,请登陆!")
top.location="../../System_manage/memlogin.asp"
</script>
<%
end if
if trim(request("action"))="delete" then
k=request("deleteid")
deleteid=split(request("deleteid"))
for i=0 to ubound(deleteid)
deleteid(i)=replace(deleteid(i),",","")
set us=server.createobject("adodb.recordset")
sql="select * from tmember where mem_id = "&deleteid(i)
us.open sql,conn,3,1
mem_own=us("mem_loginname")
us.close
sql="delete from tmember where mem_id ="&deleteid(i)
conn.execute(sql)
sqlr="delete from mem_money where mon_own = '"&mem_own&"'"
conn.execute(sqlr)
next
action=""
msg_ok="群组删除成功！id共"&i&"个，分别是"&k
end if
%>
<!--#include file="../../config.asp"--><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=ZXLCompanyStr%>后台管理会员管理——VIP会员</title>
<link href="RLimages/user.css" rel="stylesheet" type="text/css">
<script language="javascript">
function open_win(aa,id){
url="xiugai.asp?action="+aa+"&mem_id="+id;
var width = 500;
var height = 300;
var left = (screen.width-width)/2;
var top = (screen.height-height)/2;
window.open(url,'对<%=ZXLCompanyStr%>币的操作','scrollbars=1,resizable=yes,left='+left+',top='+top+',width='+width+',height='+height);
}
function dele(){
if(!confirm('已经确认需要删除选中的会员吗？')) return false;
myform.submit();
}
function modify(aa){
modify_mem.mem_id.value=aa;
modify_mem.submit();
}
function sltall(){
var nn=self.document.all.item("deleteid");
for(j=0;j<nn.length;j++){
self.document.all.item("deleteid",j).checked=true;
}
}
function escall(){
var nn=self.document.all.item("deleteid");
for(j=0;j<nn.length;j++){
self.document.all.item("deleteid",j).checked=false;
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {font-weight: bold}
-->
</style>
</head>
<body >
<%
search_type=trim(request("search_type"))
search_word=trim(request("search_word"))
set rs=server.CreateObject("adodb.recordset")
if search_word="" then
sql="select * from tmember where mem_grade = 2 order by mem_id desc"
else
if search_type="" then
sql="select * from tmember where mem_name like '%"&search_word&"%' and mem_grade = 2 order by mem_id desc"
else
sql="select * from tmember where "&search_type&" like '%"&search_word&"%' and mem_grade = 2 order by mem_id desc"
end if
end if
rs.open sql,conn,3,1
page_flag="false"
if rs.recordcount>0 then
page_flag="true"
rs.pagesize=20
ipage=trim(request("page"))
if not isnumeric(ipage) then ipage=1
if ipage<1 then ipage=1
if cint(ipage)>rs.pagecount then ipage=rs.pagecount
rs.movefirst
for i=1 to rs.pagesize*(ipage-1)
rs.movenext
next
end if
%>
<form action="wzgl_03.asp" method="post" name="frmsearch" id="frmsearch" style="margin:0px;">
<table cellpadding="5" cellspacing="0">
<tr>
<td width="22%" bgcolor="#99CCFF"> 查找类别：
<select name="search_type">
<option value="Mem_Name" <%if search_type="Mem_Name" then response.write "selected"%> >会员姓名</option>
<option value="mem_company" <%if search_type="mem_company" then response.write "selected"%> >公司名称</option>
<option value="mem_loginname" <%if search_type="mem_loginname" then response.write "selected"%> >会员账号</option>
<option value="mem_zip" <%if search_type="mem_zip" then response.write "selected"%> >用户区号</option>
<option value="mem_addr" <%if search_type="mem_addr" then response.write "selected"%> >用户地址</option>
<option value="mem_city" <%if search_type="mem_city" then response.write "selected"%> >用户城市</option>
</select> </td>
<td width="51%" bgcolor="#99CCFF">
<span class="style1">关键字</span>：
<input name="search_word" type="text" class="bok" id="search_word" size="15" maxlength="15" >
<input type="submit" name="Submit" value="查找"> </td>
<td width="27%" align="right" bgcolor="#99CCFF"><a style="cursor:hand" HREF onClick="modify('')">添加会员 </a></td>
</tr>
</table>
</form>
<form action="wzgl_03.asp" method="post" name="myform" id="myform" style="margin:0px;">
<table cellpadding="3" cellspacing="1">
<tr align="center" >
<td width="6%" height="25" bgcolor="#518BCB" class="white"><strong>操作</strong></td>
<td width="6%" bgcolor="#518BCB" class="white"><strong>序号</strong></td>
<td width="10%" bgcolor="#518BCB" class="white"><strong>会员姓名</strong></td>
<td width="11%" bgcolor="#518BCB" class="white"><strong>会员帐号</strong></td>
<td width="31%" bgcolor="#518BCB" class="white"><strong>公司名称</strong></td>
<td width="10%" bgcolor="#518BCB" class="white"><strong>用户积分</strong></td>
<td width="11%" bgcolor="#518BCB" class="white"><strong>积分操作</strong></td>
<td width="15%" bgcolor="#518BCB" class="white"><strong>查看/升级/操作</strong></td>
</tr>
<%
if page_flag="false" then
%>
<tr align="center">
<td height="25" colspan="8" bgcolor="#FFFFFF"><font color="#FF0000">没有数据</font></td>
</tr>
<%else
for i=1 to rs.pagesize
if rs.eof then exit for
mem_id=rs("mem_id") %>
<tr align="center">
<td height="25" bgcolor="#FFFFFF"><input type="checkbox" value="<%=mem_id%>" name="deleteid"> </td>
<td bgcolor="#FFFFFF"><%=(ipage-1)*rs.pagesize+i%></td>
<td bgcolor="#FFFFFF"><%=rs("mem_name")%></td>
<td bgcolor="#FFFFFF"><%=rs("mem_loginname")%></td>
<td bgcolor="#FFFFFF"><%=rs("mem_company")%></td>
<td bgcolor="#FFFFFF"><%=rs("Mem_money")%></td>
<td bgcolor="#FFFFFF"><a href style="cursor:hand;" onClick="open_win('add',<%=mem_id%>)" title="只有超级管理员有此权利，要慎用！">增加</a> <a href style="cursor:hand;" onClick="open_win('dec',<%=mem_id%>)" title="只有超级管理员有此权利，要慎用！">减少</a></td>
<td bgcolor="#FFFFFF"><a style="cursor:hand" HREF onClick="modify(<%=mem_id%>)">查看/升级/修改</a></td>
</tr>
<%
rs.movenext
next
end if %>
</table>
<input type="hidden" name="page" value="<%=ipage%>">
<input type="hidden" name="search_type" value="<%=search_type%>">
<input type="hidden" name="search_word" value="<%=search_word%>">
<input type="hidden" name="action" value="delete">
<table cellpadding="0" cellspacing="0">
<tr>
<td height="32" bgcolor="#99CCFF" ><%if trim(admin_Remark_bak)<>"low" then%>
<input type="button" value=" 全 选 " onClick="sltall()">
<input type="button" value="全不选" onClick="escall()" >
<input type="button" onClick="return dele()" value="删除">
<%end if%></td>
</tr>
</table>
</form>
<table cellpadding="0" cellspacing="0">
<tr>
<td ><%=pages()%></td>
</tr>
</table>
</body>
</html>
<form method="post" name="productsearch" action="wzgl_03.asp">
<input type="hidden" name="page" value="<%=ipage%>">
<input type="hidden" name="search_type" value="<%=search_type%>">
<input type="hidden" name="search_word" value="<%=search_word%>">
</form>
<form method="post" name="modify_mem" action="modify.asp">
<input type="hidden" name="filename" value="wzgl_03.asp">
<input type="hidden" name="mem_id" value="">
<input type="hidden" name="page" value="<%=ipage%>">
<input type="hidden" name="search_type" value="<%=search_type%>">
<input type="hidden" name="search_word" value="<%=search_word%>">
</form>
<%
'us.close
set us=nothing
rs.close
set rs=nothing
call conn_close()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -