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" %>