del.asp

ASP编写的网站

<% Option Explicit %>
<%response.buffer=true%>
<!--#include file="Inc_common.asp"-->
<%
'**************************************
'**    Del.asp
'**
'** 文件说明：留言删除页面
'** 修改日期：2004-11-12
'** 作者：HACKer007
'** 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
  errinfo="<li>您未登陆或已经退出登陆，不能进入该页。"
  call error()
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
    rs.close
    set rs=nothing
    errinfo="<li>该留言不存在。"
    call error()
  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
%>