delreply.asp

来自「功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来」· ASP 代码 · 共 27 行

<!--#include file="check.asp"-->
<!--#include file="checkpower.asp"-->
<!--#INCLUDE FILE="connect.asp" --> 
<%
if session("type")="admin" then
dim sql
replyid=request("replyid")
replyid=CINT(replyid)
sql="delete from reply where id="&replyid
conn.execute(sql)
set rs=server.createobject("adodb.recordset")
sql="select reply from bbs where id="&request("id")
rs.open sql,conn,1,3
rs("reply")=rs("reply")-1
if rs("reply")<0 then
rs("reply")=0
end if
rs.update
rs.close
set rs=nothing
response.write("<script language=javascript>alert('删除贴子成功！');location.href='replybbs.asp?id="&request("id")&"';</script>")
else
response.write("<font color=red>您没有权限进入！！！</font>")
response.end
end if
%>