undel.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>

<!--#include file="conn.asp"-->
<!--#include file="user.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="admingongneng.asp"-->
<%
'Response.Write ""&zhiwu&""
del=request("del")
if  uzhiwu<1 then '是否正常登陆 
Response.Write "目前您不是以管理员身份登陆请<a href=index.asp>返回首页</a>"
else '是正常登陆
exec="select * from neirong where ids="&del
set rs12=server.createobject("adodb.recordset")
rs12.open exec,conn,2,3
IDS=rs12("ids")
layer=rs12("layer")
huiid=rs12("huiid")
IDLW=rs12("idl")
huizz=rs12("huizz")
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 layer>1 then '是回复贴
conn.Execute("update neirong set shanzhu=0 where IDS="&del)
conn.Execute("update user set jibiej=jibiej+20, jingnian=jingnian+2, jinqian=jinqian+10,shantie=shantie-1 where idy="&huizz )
response.redirect "unzhuti.asp"

else '若是主题回复一起删
conn.Execute("update neirong set shanzhu=0 where huiid="&del)
conn.Execute("update user set jibiej=jibiej+100, jingnian=jingnian+10, jinqian=jinqian+100,shantie=shantie-1 where idy="&huizz )
response.redirect "unzhuti.asp"
end if'主题与回复完

'Response.Write "删除成功<a href=list.asp?IDL="&IDLW&">返回首页</a>"

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

end if'不是正常登陆
Response.Write""&asptbcopy&""
%>