admin_classbigdel.asp

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

<%
Option Explicit
Response.buffer=true
const purviewlevel=2
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<%
dim bigclassid,bigdel,bigclass,sql,sql1
bigclassid=trim(request.querystring("bigclassid"))
bigclass=trim(request("bigclass"))
bigdel=trim(request("bigdel"))
if bigdel="del" then
if bigclassid<>"" then
sql="delete from bigclass where bigclassid="&bigclassid
conn.execute sql
end if
if bigclass<>"" then
sql1="delete from smallclass where bigclass='"&bigclass&"'"
conn.execute sql1
end if
else
response.redirect("admin_ClassMan.asp")
end if
call closeconn()
response.redirect("admin_ClassMan.asp")
%>