delself.asp

asp构建网站bbs.采用B/S架构

<%
'##################################################################
'# 6KSU1.1[痞子.NET]版
'# 主页 http://d9pd.51.net
'# 论坛 http://jwclub.126.com http://jwclub.9126.com[戒网俱乐部]
'# 我的QQ:283067 Email:[e-mail]
'# 如有技术问题，请到6kbbs官方论坛一起讨论 http://6k.2ya.com
'# 关于此hack版的问题可以到 http://jwclub.9126.com 中讨论 
'##################################################################
%>
<!--#include file="up.asp"-->
<br>
<%action=request.querystring("action")
htt=Request.ServerVariables("HTTP_REFERER")
bd=replace(request.querystring("bd"),"'","''")
id=replace(request.querystring("id"),"'","''")
topicid=replace(request.querystring("topicid"),"'","''")
re=request.querystring("re")
t1="<div align=center><center> <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%' height='24'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d1="<tr><td width=100% ><P style='MARGIN: 15px'>"
d2="</td></tr></table></center></div>"

ssql="select name,bd from bbs"&totable&" where id="&id&""
if re="yes" then ssql="select name,bd from bbs"&totable&" where bbsid="&id&""
set who=myconn.execute(ssql)
bd=who("bd")
upwho=who("name")
set who=nothing
function bdlist(sename)
response.write"<select size=1 style='font-size: 9pt' name="&sename&" >"
set bf=myconn.execute("select*from bdinfo where key<>'0'")
do while not bf.eof
response.write"<option value="&bf("bn")&">"&bf("bdname")&"</option>"
bf.movenext
loop
bf.close
set bf=nothing
response.write"</select>"
end function

ssql2="select name,bd from bbs"&totable&" where name='"&lgname&"' and id="&id&""
if re="yes" then ssql2="select name,bd from bbs"&totable&" where name='"&lgname&"' and bbsid="&id&""
set del1=myconn.execute(ssql2)
%>
<%if not del1.eof or not del1.bof then
dj=del1("bd")
%>
<%
select case action
case"delself"
sql1="update bdinfo set bbsnum=bbsnum-1 where bn="&bd&""
if re="yes" then
sql2="update bbsinfo set bbsnum=bbsnum-1"
sql3="update bbs"&totable&" set type=5 where bbsid="&id&""
sql4="update bbstl set bnum=bnum-1 where id="&topicid&""
myconn.execute("update bbs"&totable&" set bnum=bnum-1 where id="&topicid&"")
tex="·删除帖子---成功！！<br>·<a href="&htt&">回到帖子</a><meta http-equiv=refresh content='2;url="&htt&"'>"
elseif re="no" then
sql2="update [bbsinfo] set bbsnum=bbsnum-1,topicnum=topicnum-1"
sql3="update bbstl set type=5 where id="&id&""
sql4="update bbs"&totable&" set type=5 where id="&id&" or bid="&id&""
tex="·删除帖子---成功！！"
end if%>

<%
myconn.execute(sql1)
myconn.execute(sql2)
myconn.execute(sql3)
myconn.execute(sql4)
set sne1=myconn.execute("select top 1 id,name,zhuti,body,bid,face from bbs"&totable&" where bd="&bd&" and type<>5 order by bbsid desc")
if sne1.eof then
lastbbs=""
else
if sne1("bid")=0 then
nei=left(sne1("zhuti"),20)
idid=sne1("id")
else
nei=left(sne1("body"),20)
idid=sne1("bid")
end if
lastbbs=""&sne1("name")&"|?|"&nei&"|?|"&now&"|?|"&idid&"|?|"&sne1("face")&"|?|"&totable&""
end if
myconn.execute("update [bdinfo] set lastbbs='"&lastbbs&"' where bn="&bd&" and key<>'0'")
set sne=nothing
%>
<%=t1%>操 作 成 功 ！<%=t2&d1%><p style='margin: 15;line-height: 150%'><%=tex%></p><%=d2%>
<%
set del1=nothing
end select
%>
<%else%>
<%=t1%>操 作 失 败 ！<%=t2&d1%><p style='margin: 15'>·你不是该帖子的作者，不能操作该帖！！<%=d2%>
<meta http-equiv="refresh" content="2;url=javascript:history.go(-1)">
<%end if%><br><br><!--#include file="down.asp"-->