📄 del.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
if Request.Form("HYID")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM DB_Member WHERE ID = '" +_
Replace(Request.Form("HYID"), "'", "''") + "'"
set rs=conn.execute(sql)
else
set rs=conn.execute("SELECT * FROM DB_Member")
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>注销会员！</title>
<link href="style.css" rel="stylesheet">
</head>
<body leftmargin="0" topmargin="0">
<table width="640" height="133" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td background="images/writeoff.jpg"> </td>
</tr>
</table>
<table width="640" height="341" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td valign="top" background="images/buycar_bottom.jpg">
<div align="center">
<form name="form1" method="POST">
<table width="97%" height="239" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td height="37"> <div align="center">
<table width="97%" height="58" border="0" cellpadding="-2" cellspacing="-2">
<tr>
<td height="21" colspan="2"> </td>
</tr>
<tr>
<td width="84%" height="37"><strong><font color="#C60001" size="3">
请输入要删除的会员ID号：</font></strong>
<input name="HYID" type="text" id="HYID" size="40">
</td>
<td width="16%" valign="middle">
<input name="search" type="image" id="search"
src="./images/go.gif" align="bottom" width="35"
height="25" border="0">
</td>
</tr>
</table>
<strong></strong></div></td>
</tr>
<tr>
<td height="181" valign="top"> <br>
<div align="center">
<% if NOT rs.EOF then %>
<table width="95%" height="106" border="1" align="center" cellpadding="0"
cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF"
bordercolordark="#77aaff">
<tr>
<td width="13%"> <font color="#003366">会员ID号：</font></td>
<td width="16%"> <%=(rs("ID"))%></td>
<td width="13%"> <font color="#003366">会员姓名：</font></td>
<td width="16%"> <%=(rs("mName"))%></td>
<td width="13%"> <font color="#003366">城市：</font></td>
<td width="29%"> <%=(rs("city"))%></td>
</tr>
<tr>
<td><font color="#003366"> 地址：</font></td>
<td colspan="3"> <%=(rs("address"))%></td>
<td><font color="#003366"> 邮政编码：</font></td>
<td> <%=(rs("postcode"))%></td>
</tr>
<tr>
<td><font color="#003366"> 会员等级：</font></td>
<td colspan="3"> <%=(rs("grade"))%></td>
<td> <font color="#003366">销费总额：</font></td>
<td> <%=(rs("Amount"))%></td>
</tr>
<tr>
<td><font color="#003366"> Email：</font></td>
<td colspan="3"> <%=(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"><a href="del_detail.asp?ID=<%=rs("ID")%>">
<br>
<img src="images/del.gif" width="81" height="36" border="0"></a>
<a href="manager.htm" target="_parent"><img src="images/register_back.gif" width="81" height="36" border="0"></a> </div></td>
</tr>
</table>
<% 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>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -