classdelsmall.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="conn.asp"-->
<%
if session("admin_name")="" then
        response.redirect "error.asp?error=001"
end if
%>
<%
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"
%>