www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/tzsccz.asp

    <!--#include file="conn.asp"-->
<!--#include file="gyhs.asp"-->
<%
wbfz
id=request("id")
yhuser=request.cookies("username")
cnuser=request("user")
menu=request("menu")
ids=request("ids")
%>
<%
'判断登陆
if dlhs=true then
%>
<script  language=vbscript>
<!--
window.alert"对不起！你还没有登陆"
window.location="index.asp?ltbh=<%=ltbh%>"
-->
</script>
<%end if%>

<%
sub hzy
%>
<script  language=vbscript>
<!--
window.alert"帖子删除成功"
window.location="index.asp?ltbh=<%=ltbh%>"
-->
</script>
<%end sub%>

<%
if menu="zt" then '主题删除
if gly<>true or sfbz(id,yhuser)=true or yhuser=cnuser then

sql="select id from zwhtz where tzid='"&ids&"' and ltbh='"&ltbh&"'"
set rs=conn.execute(sql)
'删除程序
do while not rs.eof
id=rs("id")
sql1="delete*from zwhtz where id="&id&" and ltbh='"&ltbh&"'" '删除帖子
conn.execute(sql1)
rs.movenext
loop

sql2="delete*from zwtizi where id="&ids&" and ltbh='"&ltbh&"'" '删除主题
conn.execute(sql2)
hzy
else
%>
<script language=vbscript>
<!--
window.alert"你还没有此权限管理论坛帖子操作!"
window.location="index.asp?ltbh=<%=ltbh%>"
-->
</script>
<%
end if
end if
%>


<%
if menu="ht" then '回帖删除
if gly<>true or sfbz(id,yhuser)=true or yhuser=cnuser then
sql="delete*from zwhtz where id="&ids&""
conn.execute(sql)
response.write "<script language='javascript'>alert ('操作成功');history.go(-1);</script>" 
else
%>
<script language=vbscript>
<!--
window.alert"你还没有此权限管理论坛帖子操作!"
window.location="index.asp?ltbh=<%=ltbh%>"
-->
</script>
<%
end if
end if
rs.close
set rs=nothing
dbclose
%>