manage.asp 超文本多用户论坛程序 1.1 - ASP源码程序

www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/manage.asp
    <!--#include file="conn.asp"-->
<!--#include file="gyhs.asp"-->
<head>
<title><%=request.cookies("mc")%></title>
<meta name="keywords" content="<%=request.cookies("gjz")%>">
</head>
<body topmargin=0>
<!--#include file="gyym.asp"-->
<%
wbfz
'判断登陆
if dlhs=true then
%>
<script  language=vbscript>
<!--
window.alert"对不起！你还没有登陆"
window.location="index.asp?ltbh=<%=ltbh%>"
-->
</script>
<%end if%>

<%
sub czcg'表单处理
response.write "<script language='javascript'>alert ('操作成功');history.go(-1);</script>" 
end sub
%>

<%
menu=request("menu")
ids=request("ids")'帖子id
id=request("id")'板块id
dluser=request.cookies("username")

sqlzz="select ltbh from zwuser where cnuser='"&dluser&"'"
set zzsj=conn.execute(sqlzz)
ltbhs=zzsj("ltbh")
zzsj.close
set zzsj=nothing

if sfbz(id,dluser)=true or ltbh=ltbhs then'判断是否有权限管理


if menu="untop" then '取消总置顶
sql="update zwtizi set cnzd=0 where id="&ids&""
conn.execute(sql)
czcg
end if

if menu="toptopic" then '主题置顶
sql="update zwtizi set cnzd=1 where id="&ids&""
conn.execute(sql)
czcg
end if

if menu="goodtopic" then '添加到精华区
sql="update zwtizi set cnjh=1 where id="&ids&""
conn.execute(sql)
czcg
end if

if menu="badtopic" then '取消精华
sql="update zwtizi set cnjh=0 where id="&ids&""
conn.execute(sql)
czcg
end if

if menu="deltopic" then '删除主题
sql="delete*from zwtizi where id="&ids&"" '删除主题
conn.execute(sql)

sql1="delete*from zwhtz where tzid='"&ids&"' and ltbh='"&ltbh&"'"
conn.execute(sql1)
%>
<script language=vbscript>
<!--
window.alert"操作成功!"
window.location="zbm.asp?id=<%=id%>&ltbh=<%=ltbh%>"
-->
</script>
<%
end if
else
%>
<script language=vbscript>
<!--
window.alert"你还没有此权限管理论坛帖子操作!"
window.location="index.asp?ltbh=<%=ltbh%>"
-->
</script>
<%
end if 
%>
<%dbclose%>