📄 b_shantie.asp

📁 Asp源码交易频道可对商品的添加、修改、删除
💻 ASP
字号:
<!--#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 &"")
%>
<body background="img/1.jpg">
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
  <tr> 
    <td bordercolor="#F6F6F6" bgcolor="#FBFBFB" background="img/2XP.jpg" height="14"><img src="img/2XP.jpg" width="17" height="14"> 
    </td>
  </tr>
</table>
<table width="777" border="0" align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF">
  <tr>
    <td bordercolor="#F6F6F6" bgcolor="EFEFEF"><img src="tupian/weizhi.gif" width="9" height="9"> 
      <a href="index.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="777" border="0" cellspacing="3" align="center" bgcolor="#FAFAFA">
  <tr>
    <td>
      <table width="100%" align="center" cellpadding="20" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
        <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>
</td>
  </tr>
</table>
<table width="777" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td>
      <!--#include file="d_wei.asp" -->
    </td>
  </tr>
</table>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -