📄 del.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#INCLUDE FILE="conn.asp"-->
<%
dim RS,strSQL
Num=clng(request.QueryString("Num"))
strSQL="select * from Book where Num="&Num&""
set Rs=server.CreateObject("adodb.Recordset")
Rs.source=strSQL
Rs.CursorType=3
Rs.LockType=3
Rs.ActiveConnection=Conn
Rs.open
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除记录</title>
<style type="text/css">
<!--
.style1 { font-size: 14px;
color: #6666FF;
}
.style2 {font-size: 12px}
.style4 {color: #6666FF}
a:link {
color: #6666FF;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #6666FF;
}
a:hover {
text-decoration: underline;
color: #FF00FF;
}
a:active {
text-decoration: none;
color: #9999FF;
}
body {
background-image: url(images/beijing.gif);
}
.style5 {color: #6666FF; font-size: 12px; }
.style6 {font-family: "宋体"}
-->
</style>
</head>
<body>
<div align="center">
<%if rs.eof=false and rs.bof=false then%>
<!--#INCLUDE FILE="top.asp"-->
<table width="650" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" colspan="3"><img src="images/top1.gif" width="650" height="20"></td>
</tr>
<tr>
<td height="22" colspan="3" background="images/bg.gif" class="style2"><div align="center" class="style5">这是您删除的留言！</div></td>
</tr>
<tr>
<td width="3" height="158" background="images/leftline.gif"></td>
<td width="644"><table width="600" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<td width="19" height="18"><img src="images/em38.gif" width="18" height="18"></td>
<td width="50"><p align="left" class="style2 style4">姓名：</p></td>
<td class="style4"><div align="left" class="style5"><%=rs("Name")%></div></td>
<td width="20"><img src="images/mail.gif" width="18" height="18"></td>
<td width="55"><p align="left" class="style5">Email:</p></td>
<td class="style4"><div align="left" class="style5"><%=rs("Email")%></div></td>
</tr>
<tr>
<td width="19" height="18"><img src="images/topicnew.gif" width="18" height="18"></td>
<td width="50" class="style4"><div align="left"><span class="style5">性别</span>：</div></td>
<td width="215" class="style4"><div align="left" class="style5"><%=rs("sex")%></div></td>
<td width="20"><img src="images/home.gif" width="18" height="18"></td>
<td width="55" class="style5"><div align="left">主页：</div></td>
<td width="213" class="style4"><div align="left" class="style5"><%=rs("Web")%></div></td>
</tr>
<tr>
<td><img src="images/OICQ.gif" width="18" height="18"></td>
<td class="style5"><div align="left">OICQ:</div></td>
<td class="style4"><div align="left" class="style5"><%=rs("Qq")%></div></td>
<td><img src="images/date.gif" width="18" height="18"></td>
<td class="style5"><div align="left">留言于：</div></td>
<td class="style4"><div align="left" class="style5"><%=rs("Date")%></div></td>
</tr>
<tr>
<td colspan="3"><div align="left"><img src="images/shareforum.gif" width="25" height="25"><span class="style4 style2">留言内容：</span></div></td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="52"> </td>
<td colspan="5" class="style4"><div align="left" class="style5"><%=rs("Main")%></div></td>
</tr>
</table></td>
<td width="3" background="images/rightline.gif"></td>
</tr>
<tr>
<td height="15" colspan="3"><img src="images/low.gif" width="650" height="15"></td>
</tr>
</table>
<br>
<%rs.delete
rs.update
%>
<table width="650" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" background="images/bg.gif"><div align="center" class="style1"><a href="manage.asp" class="style5">该记录已经被删除,点击返回！</a></div></td>
</tr>
</table>
<br>
<!--#INCLUDE FILE="copyright.asp"-->
<%else
Response.Write "<script Language=Javascript>alert('未找到该条记录！');location.href = 'manage.asp';</script>"
response.end
%>
<%end if%>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -