savedelete.asp

e人畅想公用日记本 v1.0

<!--#include file="top.asp"-->
<%if session("admin")="" then
response.redirect"index.asp"
elseif session("admin")="yes" then
id=request.querystring("id")
if id="" then
response.redirect"index.asp"
else
end if%>
<hr width="600" size="1" noshade>
<table width="600" border="0" cellspacing="0" cellpadding="0" class="table_pointline" align="center">
  <tr>
    <td align="center"> 
      <%set dem=conn.execute("delete*from message where id="&id&"")
	set der=conn.execute("delete*from reply where message="&id&"")
	set degr=conn.execute("delete*from guest where message="&id&"")
	set upm=conn.execute("update about set message=message-1 where id=1")
	set upm=nothing
	set degr=nothing
	set der=nothing
	set dem=nothing
	response.write"删除留言成功！"
	response.write"<a href=index.asp class=text>回到首页</a>"
	%>
    </td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
<%end if%>