down_classdelsmall.asp

唐网公司企业网站管理系统源码 双数据库 sql access 功能强大 易于扩展

<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file="Admin.asp"-->
<!-- #include file="Inc/Head.asp" -->
<%
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
call CloseConn()      
response.redirect "Down_ClassManage.asp"
%>