down_classdelbig.asp

来自「公司企业网站管理系统全站源码,用于企业内部对网站的管理」· ASP 代码 · 共 21 行

<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file="Admin.asp"-->
<!-- #include file="Inc/Head.asp" -->
<%
dim BigClassName,sql
BigClassName=trim(Request("BigClassName"))
if BigClassName<>"" then
	sql="delete from BigClasswy_down where BigClassName='" & BigClassName & "'"
	conn.Execute sql
	sql="delete from SmallClass_down where BigClassName='" & BigClassName & "'"
	conn.Execute sql
	sql="delete from download where BigClassName='" & BigClassName & "'"
	conn.Execute sql
end if
call CloseConn()      
response.redirect "Down_ClassManage.asp"
%>