del.asp

旋木留言本 v1.51 主要功能： UBB代码支持

<% Option Explicit %>
<%response.buffer=true%>

<!--#include file="Inc_common.asp"-->

<%
'**************************************
'**    Del.asp
'**
'** 文件说明：留言删除页面
'** 修改日期：2004-9-22
'** 作者：Howlion
'** Email：[e-mail]
'**************************************
dim id,page,key
id = request("id")
if Request.QueryString("p")="" then
page="1"
else
page=Request.QueryString("p")
end if
key=Request.QueryString("key")
if not session("login")="true" then
response.write " 错 误 ! !<br><br>您没有登陆或者已经退出登陆，不能进入该页。"
Response.End
else
sql="Select id from topic where id="&id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3

if rs.eof and rs.bof then
response.write " 错 误 ! !<br><br>该留言不存在。"
rs.close
set rs=nothing
Response.End
end if

rs.close
set rs=nothing

sql="delete from [topic] where id="&id
conn.execute(sql)

dim backurl
if key="" then
backurl="Index.asp?page="&page
else
backurl="search.asp?key="&key&"&page="&page
end if

%>
<meta http-equiv=refresh content="0;URL=<%=backurl%>">
<%
end if
conn.close
%>