www.gusucode.com > 木犁IT产品管理系统 1.0 beta1码程序 > manage/ClassDelSmall.asp

    <%@language=VBScript codepage=936 %>
<%
if not session("check")="checked" then
response.Redirect "login.asp"
end if
%>
<!--#include file="conn.asp"-->
<%
dim SmallClassID,sql
SmallClassID=trim(Request("SmallClassID"))
SmallClassName=trim(Request("SmallClassName"))
if SmallClassID<>"" then
	sql="delete from SmallClass where SmallClassID="&Cint(SmallClassID)&""
	conn.Execute sql
	sql="delete from news where SmallClassName='" & SmallClassName & "'"
	conn.Execute sql
end if
call CloseConn()      
response.redirect "ClassManage.asp"
%>