📄 member_del.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/UpLoadClass.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp"-->
<!--#include file="fyasp_mange_check.asp"-->
<%
OpenDataConn
action=changechr(request("action"))
%>
<html>
<head>
<title>后台管理系统</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<script language="javascript">
function CheckAll()
{
for (var i=0;i<document.form1.elements.length;i++)
{
document.form1.elements[i].checked=document.form1.chkall.checked
}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../ht.css" type="text/css">
</head>
<body bgcolor="#d6dff7" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../inc/top.asp" -->
<br>
<%if session("member")="1" then
Select case action
Case "del"
call del
Case "add"
call add
Case "saveadd"
call saveadd
Case "edit"
call edit
Case "saveedit"
call saveedit
Case "tj"
call tj
Case else
call list
End Select
else
Response.Write "权限不足!"
Response.end
end if
sub list
%>
<div align="center">
<table border="0" width="90%" id="table1" cellspacing="0" cellpadding="0">
<tr>
<td><select name="kei" onChange="MM_jumpMenu('self',this,0)">
<option selected>选择会员类别</option>
<option value="member_del.asp?stype=0">个人</option>
<option value="member_del.asp?stype=1">中介</option>
<option value="member_del.asp?stype=-1">未审中介</option>
</select>
<strong>当前会员类型：
<%
stype=trim(request("stype"))
if stype="" then
response.write "所有类别"
elseif stype="0" then
response.write "个人会员"
elseif stype="1" then
response.write "中介会员"
elseif stype="-1" then
response.write "未审中介会员"
end if
%>
</strong> </td>
<td>
<table width="79%" border="0" cellspacing="0" cellpadding="0">
<form name="form2" method="post" action="member_del.asp"><tr>
<td width="36%"><input name="skey" type="text" id="skey" value="请输入要查询的关键字" onFocus="this.value='';"></td>
<td width="64%"><input type="submit" name="Submit" value="查询">
(只查询用户名、联系人、联系电话、E-mail)</td>
</tr></form>
</table></td>
</tr>
</table>
</div>
<div align="center">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><form method="post" action="?action=del" name="form1">
<div align="center">
<center>
<br>
<div align="center">
<center>
<table border="0" width="96%" cellspacing="1" cellpadding="0">
<tr bgcolor="#AABFEC" align="center">
<td width="32" height="28"> </td>
<td width="49" > </td>
<td width="133" >用户名</td>
<td width="82">联系人</td>
<td width="77" >联系电话</td>
<td width="137">E-mail</td>
<td width="137">修改</td>
</tr>
<%
dim curpage
if request.querystring("curpage")="" then
curpage=1
else
curpage=request.querystring("curpage")
end if
const numperpage=15
set rs=server.createobject("adodb.recordset")
stype=trim(request("stype"))
skey=trim(request("skey"))
if stype="" then
sql="select * from company "
if skey<>"" then
sql=sql & " where userid like '%"&skey&"%' or name like '%"&skey&"%' or phone like '%"&skey&"%' or email like '%"&skey&"%' "
end if
sql=sql & "order by dnt desc"
else
if stype="0" then
sql="select * from company where reg_type='0' order by dnt desc"
elseif stype="1" then
sql="select * from company where reg_type='1' order by place desc,dnt desc"
elseif stype="-1" then
sql="select * from company where reg_type='1' and zj<>'1' order by place desc,dnt desc"
end if
end if
rs.open sql,conn,1,1
if rs.eof then
response.write "<table><tr><td><br></br><center>现在还没有记录！</center><br></br></td></tr></table>"
response.end
end if
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
%>
<tr bgcolor="#DEF0FA" align="center">
<td width="32" height="28"> <input type="checkbox" name="id" value="<%=rs("id")%>" class="mul">
</td>
<td width="49"> <%if trim(rs("ismember"))="0" then response.write "非会员" else if trim(rs("ismember"))="1" then response.write "<font color=#FF0000>会员</font>" end if%> </td>
<td width="133"><%=rs("userid")%></td>
<td width="82"><%=rs("name")%></td>
<td width="77"><%=rs("phone")%></td>
<td width="137"><%=trim(rs("email"))%></td>
<td width="133"><a href="?action=edit&id=<%=trim(rs("id"))%>">修改</a> </td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
%>
<tr bgcolor="#DEF0FA">
<td width="100%" colspan="10" height="28"> <input type="checkbox" name="chkall" value="on" onClick="CheckAll()" class="mul">
选取以上全部记录
<input type="submit" value="删除" name="B2"></td>
</tr>
<tr>
<td colspan="6" align="center" height="50"><br>
<div align="center">
<% if cint(curpage)<>1 then %>
<a href="member_del.asp?curpage=1&stype=<%=stype%>">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="member_del.asp?curpage=<%=curpage-1%>&stype=<%=stype%>">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
<a href="member_del.asp?curpage=<%=curpage+1%>&stype=<%=stype%>"> 下一页
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="member_del.asp?curpage=<%=totalpages%>&stype=<%=stype%>"> 末页
<% else %>
末页
<% end if %>
</a> 第<font color="#FFCC00"><%=curpage%></font>页/共<%=totalpages%>页
<select name="menu1" onChange="MM_jumpMenu('self',this,0)">
<option value="#" selected>请选择</option>
<option>
<%
k=1
do while k<=totalpages
%>
</option>
<option>
<%
k=1
do while k<=totalpages
%>
</option>
<option>
<%
k=1
do while k<=totalpages
%>
</option>
<option value="member_del.asp?curpage=<%=k%>">第<%=k%>页</option>
<option>
<%
k=k+1
loop
%>
</option>
<option>
<%
k=k+1
loop
%>
</option>
<option>
<%
k=k+1
loop
%>
</option>
</select>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -