jinghuau.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
ids=rszd("ids")
idl=rszd("idl")
zhij=rszd("jinghuau")
if zhij=0 then
   zhij=1
   else
   zhij=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"),idy)>0 or uzhiwu=100 then '是否斑竹
if zhij=1 then
conn.Execute("update neirong set jinghuau="&zhij&" where IDS="&zd)
else
conn.Execute("update neirong set jinghuau="&zhij&",html=0 where IDS="&zd)
'Set fs = CreateObject("Scripting.FileSystemObject")
'jinghuau=server.mappath("jinghuau\"&idl&"\"&ids&".htm")
'Response.Write ""&jinghuau&""
'If fs.FileExists(jinghuau) then
'fs.deleteFile(jinghuau)
'end if
end if
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'不是正常登陆

%>