zhutidel.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>
<!--#include file="conn.asp"-->
<!--#include file="user.asp"-->
<%
'Response.Write ""&zhiwu&""
del=request("del")
if  uzhiwu<>100 then '是否正常登陆 
Response.Write "目前您不是以管理员身份登陆请<a href=index.asp>返回首页</a>"
else '是正常登陆
cl="select * from neirong where ids="&del
set rsl=server.createobject("adodb.recordset")
rsl.open cl,conn,1,1
layer=rsl("layer")

if layer>1 then '是回复贴
set rsdelh=server.createobject("adodb.recordset")
ccdelh="delete * from neirong where ids="&del
rsdelh.open ccdelh,conn,1,3
response.redirect "unzhuti.asp"
else '若是主题回复一起删
set rsdelnr=server.createobject("adodb.recordset")
ccdelnr="delete * from neirong where huiid="&del
rsdelnr.open ccdelnr,conn,1,3
response.redirect "unzhuti.asp"
end if'主题与回复完
end if'不是正常登陆
%>