📄 del.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="odbc.asp"-->
<!--#include file="head.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="keywords" content="wxdesign,无限设计留言本,guestbook,asp">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除留言</title>
<body scroll="no">
<%
if request("act")="delyes" then
call delyes()
else
call delmain
end if
sub delmain
id=request("id")
if not session("log")="true" then
errorinfo="错 误 ! !<br><br>您没有登陆或者已经退出登陆，不能进入该页。"
error(errorinfo)
exit sub
else
strsql="select * from mainbook where id="&id
set rs = server.createobject("adodb.recordset")
rs.open strsql,db,1,3
if rs.eof and rs.bof then
errorinfo="错 误 ! !<br><br>该留言不存在。"
error(errorinfo)
exit sub
end if
'response.write " <table border='0' cellpadding='0' cellspacing='0' style='border: 1px solid #495474; padding-left: 4; padding-right: 4; padding-top: '1'; padding-bottom: '1' ; width='500'><tr><td width='100%'><p align='center'>您即将删除一条留言</td></tr><tr><td width='100%' class='tablebody2'><p align='center'><a href='?act=delyes&id="&id&"'>删除</a> <a href='javascript:window.close()'>取消</a></td></tr></table>"
%>
<table border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
<tr>
<td height="40">
<p align="center">您即将删除一条留言</td>
</tr>
<tr>
<td width="500"height="40" >
<p align='center'><a href="?act=delyes&id=<%=id%>">删除</a> <a href="javascript:window.close()">取消</a></td>
</tr>
</table>
<%
end if
rs.close
set rs = nothing
db.close
set db = nothing
end sub
sub delyes()
id = request("id")
if not session("log")="true" then
errorinfo="错 误 ! !<br><br>您没有登陆或者已经退出登陆，不能进入该页。"
error(errorinfo)
exit sub
else
strsql="delete from [mainbook] where id="&id
db.execute(strsql)
%>
<script>self.opener.location.reload();</script>
<script>self.close();</script>
<%
end if
rs.close
set rs = nothing
db.close
set db = nothing
end sub
%>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<!--DWLayoutTable-->
<tr>
<td width="5" height="5"></td>
<td width="750"></td>
<td width="5"></td>
</tr>
<tr>
<td width="8" height="46"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="f2f2f2" class="tde">
<!--DWLayoutTable-->
<tr>
<td width="491" height="44"><div align="left"><font color="#75754f"> |</font>
<font color="#75754f"><span onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.dadayu.com');" style="CURSOR: hand">设为首页</span>
|
<script language="JavaScript">
function bookmarkit(){window.external.addFavorite('http://www.dadayu.com','│ DaDaYu │ 易天网络 │')}
if (document.all)document.write('<a href="#" onClick="bookmarkit()"><font color="#75754f">加入收藏</font></a>')
</script>
| <a href="mailto:www@dadayu.com">联系站长</a> | <a href="FriendSite.asp">友情链接</a>
| <a href="Copyright.asp" target="_blank">版权申明</a> | 易天留言 | </font></div></td>
</tr>
</table></td>
<td width="8"></td>
</tr>
<tr>
<td height="5"></td>
<td></td>
<td></td>
</tr>
</table>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -