|
<%
set shanchuushu=lj.execute("select shanchuushu from luntan")
set shangci=lj.execute("select shantie from huiyuan where mingzi='"& mingzi &"'")
set jiange=lj.execute("select shantiejiange from luntan")
if dateadd("s",jiange("shantiejiange"),shangci("shantie")) > now() then
response.Write("在"&jiange("shantiejiange")&"秒内只能投票删除帖子一次")
else
lj.execute("update tiezi set shanchu=shanchu+1 where xuhao="& tiezi &"")
set shu=lj.execute("select shanchu from tiezi where xuhao="& tiezi &"")
if shu("shanchu")=shanchuushu("shanchuushu") then
lj.execute("delete from tiezi where xuhao="& tiezi &"")
lj.execute("delete from tiezi where tiezi='"& tiezi &"'")
Response.Write("您所投票删除的帖子已经被删除了")
else
lj.execute("update huiyuan set shantie=now() where mingzi='"& mingzi &"'")
Response.Write("您是第"& shu("shanchu") &"个想删除这个帖子的人，本论坛设定需要有"& shanchuushu("shanchuushu") &"个人投票才能删除帖子。")
end if
end if
%> |
论坛版块 →
<%=server.HTMLEncode(bankuai("mingzi"))%> → 浏览帖子 → 投票删除