📄 deluser.asp
字号:
<!--#include file="conn/conn.asp"-->
<%
if session("passed")="" or session("passed")=false then
response.write "<script language='javascript'>alert('请先登录！');</script>"
response.write "<script language='javascript'>location.href='adminlogin.asp';</script>"
end if
if Request.Form("HYID")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from tb_Member where userID='"&trim(Request("HYID"))&"'"
rs.open sql,conn,3,3
else
Sqlstr="Select * From tb_Member"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open Sqlstr,conn,3,3
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除会员！</title>
<link rel="stylesheet" href="css/style.css" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="700" height="341" border="0" align="center" cellpadding="-1" cellspacing="-1">
<tr>
<td valign="top">
<div align="center">
<form name="form1" method="POST">
<table width="99%" height="239" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td height="37"> <div align="center">
<table width="100%" height="85" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td height="30" colspan="2" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFCF00', endColorStr='#FFFFFF', gradientType='1')"> </td>
</tr>
<tr>
<td width="72%" height="55" valign="bottom"><div align="right"><strong><font color="#C60001" size="3">
<br>
</font><font size="3"><span class="style1">请输入要删除的会员ID号：</span></font></strong>
<input name="HYID" type="text" id="HYID" size="40">
</div></td>
<td width="28%" valign="bottom">
<input name="search" type="submit" id="search"
align="bottom" value="确 定" style="border:1px solid;border-color:#000000;background-color:#FFCC33;padding:2px; height:17pt;">
</td>
</tr>
</table>
<strong></strong></div></td>
</tr>
<tr>
<td height="181" valign="top"> <br>
<div align="center">
<%
if NOT rs.EOF then
rs.pagesize=2
page=CLng(request("page"))
if page="" or page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.Absolutepage=page
%>
<table width="400" border="0" align="right" cellpadding="-2" cellspacing="-2">
<tr>
<td align="left">
<div align="right">
<%
response.write " 当前： <font color=red>"&page&"/"&rs.pagecount&"</font> "
If page=1 Then
Response.Write " 第一页 "
End If
If page>1 Then
Response.Write "<a href=deluser.asp?page=1>第一页</a> "
Response.Write "<a href=deluser.asp?page="&(page-1)&">上一页</a> "
End If
If page<rs.pagecount Then
Response.Write "<a href=deluser.asp?page="&(page+1)&">下一页</a> "
Response.Write "<a href=deluser.asp?page="&rs.pagecount&">最后一页</a> "
End If
%>
</div></td>
</tr>
</table>
<br>
<%
for i=1 to rs.pagesize
if rs.eof then Exit For
%>
<table width="95%" border="1" align="center" cellpadding="0"
cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF"
bordercolordark="#77aaff">
<tr>
<td width="14%" height="25"> <font color="#003366">会员ID号：</font></td>
<td width="45%"> <%=(rs("userID"))%> </td>
<td><font color="#003366"> 会员姓名：</font></td>
<td><%=(rs("UserName"))%></td>
</tr>
<tr>
<td height="25"><font color="#003366"> 地址：</font></td>
<td> <%=(rs("address"))%></td>
<td width="15%"><font color="#003366"> 邮政编码：</font></td>
<td width="26%"> <%=(rs("postcode"))%></td>
</tr>
<tr>
<td height="25"><font color="#003366"> Email：</font></td>
<td> <%=(rs("Email"))%></td>
<td> <font color="#003366">电话：</font></td>
<td> <%=(rs("Tel"))%></td>
</tr>
</table>
<table width="95%" height="32" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td> <div align="center"><input type="button" value="删 除" onClick="return del('<%=rs("userID")%>');" style="padding:2px;border:1px solid;border-color:#000000;background-color:#FFCC33; height:17pt;">
<input type="button" value="关 闭" onClick="window.close();" style="padding:2px;border:1px solid;border-color:#000000;background-color:#FFCC33; height:17pt;"></div></td>
</tr>
</table>
<script language="javascript">
function del(id){
if (confirm("您确定要删除该会员ID吗？")){
window.location.href="del_detail.asp?ID="+id
}
return false;
}
</script>
<%
'i=i+1
rs.movenext
next
%>
<% else %>
<table width="95%" height="32" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td><div align="center"> 无符合条件的数据！</div></td>
</tr>
</table>
<% end if %>
</div></td>
</tr>
</table>
</form>
</div></td>
</tr>
</table>
<table width="100%" height="30" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td height="30" colspan="2" style="filter:progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#FFCF00', gradientType='1')"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -