del.asp

一个美化的论坛程序

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="char.asp"-->
<!--#include file="function.asp"-->
<%
boardid=request("boardid")
if request("action")<>"bbs" and request("action")<>"reply" then 
	errmsg="<li>操作错误！"
	call error()
	response.end
else
	action=request("action")
end if
if request("id")="" then 
	errmsg="<li>请选择要删除的帖子！"
	call error()
	response.end
else
	id=request("id")
end if
conn.execute "update "&action&" set del=true where "&action&"id="&id
response.redirect "success.asp?act=edit&boardid="&boardid
%>