b_shantie.asp

OA最新破解2008版 全新 破解 希望大家用着舒服

<!--#include file="d_tou.asp" -->
<%
	tiezi=clng(Request("tiezi"))
	set zhutie=lj.execute("select * from tiezi where xuhao="& tiezi &"")
	xuhao=zhutie("bankuai")
	set bankuai=lj.execute("select * from bankuai where xuhao="& xuhao &"")
%>
<table width="778"" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
  <tr>
    <td bordercolor="#F6F6F6" bgcolor="#FBFBFB"><img src="tupian/weizhi.gif" width="9" height="9"> <a href="b_bankuai.asp">论坛版块</a> →
    <a href="b_luntan.asp?bankuai=<%=xuhao%>"><%=server.HTMLEncode(bankuai("mingzi"))%></a> → <a href="b_kantie.asp?tiezi=<%=tiezi%>">浏览帖子</a> → 投票删除</td>
  </tr>
</table>
<table width="778"" border="1" align="center" cellpadding="20" cellspacing="0" bordercolor="#FFFFFF">
<tr><td bordercolor="#F6F6F6" bgcolor="#FBFBFB"> <div align="center">
<%
	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
%></div></td></tr></table>
<!--#include file="d_wei.asp" -->