del.asp

来自「一个很Q的留言板,下载不后悔 !功能说明: 支持cookies 支持少」· ASP 代码 · 共 39 行

<!--
========================================================================

/////popcorn2.0/////

copyright (c) 2004,by 521lu.com
all rights reserved
script written by h.q.
web site : http://www.521lu.com
mail : [e-mail]

========================================================================
请勿删除版权
pls don't skip the copyright annoucement
========================================================================
-->
<!--#include file="config.asp"-->
<%
if request.form("password")=password then

dim getid,id,postid
getid = split(trim(request.form("id")),",")
for each str in getid
varstr = split(str,"|")
id = varstr(0)
postid = varstr(1)
if postid = 0 then
conn.execute("delete from body where id="&id&"")
conn.execute("delete from re where post_id="&id&"")
else
conn.execute("delete from re where id="&id&"")
conn.execute("update body set recount=recount-1 where id="&postid&"")
end if
next

else
end if
response.redirect "index.asp"
%>