down_classdelsmall.asp

来自「网站的后台管理代码......内容比较全面....新手比较适合」· ASP 代码 · 共 22 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
if session("admin_name")="" then 
response.end
end if%>
<%
dim SmallClassID,sql
SmallClassID=trim(Request("SmallClassID"))
SmallClassName=trim(Request("SmallClassName"))
if SmallClassID<>"" then
	sql="delete from SmallClass_down where SmallClassID="&Cint(SmallClassID)&""
	conn.Execute sql
	sql="delete from download where SmallClassName='" & SmallClassName & "'"
	conn.Execute sql
end if     
response.redirect "Down_ClassManage.asp"
%>