zhiding.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>
<!--#include file="conn.asp"-->
<!--#include file="user.asp"-->
<%
zd=request("zd")
if  uidy<1 then '是否正常登陆 
Response.Write "目前您不是以管理员身份登陆请<a href=index.asp>返回首页</a>"
else '是正常登陆
czd="select * from neirong where ids="&zd
set rszd=server.createobject("adodb.recordset")
rszd.open czd,conn,1,3
zhid=rszd("zhiding")
if zhid=0 then
   zhid=1
   else
   zhid=0
   end if
huiid=rszd("huiid")
IDLW=rszd("idl")
zuozhe=rszd("zuozhe")
adc="select * from luntan where IDL="&IDLW
set rsad=server.createobject("adodb.recordset")
rsad.open adc,conn,1,1
if InStr(rsad("banzhu"),uidy)>0 or uzhiwu=100 then '是否斑竹
conn.Execute("update neirong set zhiding="&zhid&" where IDS="&zd)
if zhid=1 and zuozhe<>0 then  '是置顶给会员加级别积分
conn.Execute("update user set jibiej=jibiej+20 where idy="&zuozhe )
end if 
response.redirect "show.asp?ids="&zd&""

else '不是斑竹
Response.Write "权限不足请<a href=show.asp?IDS="&zd&">返回</a>"
end if

end if'不是正常登陆

%>