admin_commentdel.asp

来自「大榕树网络文章管理系统」· ASP 代码 · 共 25 行

<%
Option Explicit
Response.buffer=true
const purviewlevel=3
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<%
dim comid,comdel,sql,id
comid=trim(request.querystring("comid"))
comdel=trim(request("comdel"))
id=trim(request.form("id"))
if comdel="del" then
if comid<>"" then
sql="delete * from comment where comid="&comid&""
conn.execute sql
else if id<>"" then
sql="delete * from comment where comid in("&id&")"
conn.execute sql
end if
end if
call closeconn()
response.redirect("admin_CommentMan.asp")
end if
%>