admin_class_del.asp

来自「演示中使用的数据库为省、市、县三级数据库 演示程序实现了省、市、县三级联动（a」· ASP 代码 · 共 36 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin_check.asp" -->
<!--#include file="conn_acc.asp" -->
<!--#include file="function.asp" -->
<%
if cint(Request.QueryString("g"))>0 then
call firste_error("必须先删除所属子分类",Request.QueryString("url"))
end if
on error resume next
if cint(Request.QueryString("upid"))> 0 then
Set Command2 = Server.CreateObject ("ADODB.Command")
Command2.ActiveConnection = MM_conn_comm_STRING
Command2.CommandText = "UPDATE firste_city  SET f_grade =f_grade-1  WHERE fid ="&Trim(Request.QueryString("upid"))
Command2.CommandType = 1
Command2.CommandTimeout = 0
Command2.Prepared = true
Command2.Execute()
end if
%>
<%

Set Command1 = Server.CreateObject ("ADODB.Command")
Command1.ActiveConnection = MM_conn_comm_STRING
Command1.CommandText = "DELETE FROM firste_city  WHERE fid ="&Trim(Request.QueryString("delid"))
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
if err then
call firste_error("错误的操作！",Request.QueryString("url"))
else
response.Redirect Request.QueryString("url")
end if

%>