news_classdelsmall.asp

来自「全新后台新闻编辑器 2.全新后台下载编辑器 3.增加图片友情链接管理功能」· ASP 代码 · 共 21 行

<%@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_New where SmallClassID="&Cint(SmallClassID)&""
	conn.Execute sql
	sql="delete from NEWS where SmallClassName='" & SmallClassName & "'"
	conn.Execute sql
end if
call CloseConn()      
response.redirect "News_ClassManage.asp"
%>