ad_addsort1.asp

来自「商品订单管理：商品分类管理添加与修改商品管理订单投诉订单反馈信息商品留」· ASP 代码 · 共 80 行

ASP

80 行

<!--#include file="conn.asp"-->
<%
   dim cmdTemp
   
   select case request.form("options")
     case "rename"
       on error resume next
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       set rs=server.createobject("adodb.recordset")
       cmdTemp.CommandText = "SELECT * FROM sort where sort_id=" & request.form("subject")
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn   
       rs.Open cmdTemp, , 1, 3
       if err.Number<>0 then
            err.clear
            response.write " <br>Fail ! "
       else
         rs("sort_name") = request.form("reTitle")
         rs.Update
         rs.Close
         set rs=nothing
         set cmdTemp=nothing
         finished
       end if
     case "del"
	Rem 删除栏目
	on error resume next
        sql="delete from sort where sort_id=" & request.form("subject")
        conn.execute sql
	Rem 删除相关栏目下子栏目
        sql="delete from Nsort where sort_id=" & request.form("subject")
        conn.execute sql
	Rem 删除相关栏目对应程序
        sql="delete from hw where sort_id=" & request.form("subject")
        conn.execute sql
	Rem 删除相关栏目对应广告
        sql="delete from logo where sort=" & request.form("subject")
        conn.execute sql
        if err.Number<>0 then
            err.clear
            response.write " <br>Fail ! "
        else
            finished
        end if
     case "new"
       on error resume next
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       set rs=server.createobject("adodb.recordset")
       cmdTemp.CommandText = "SELECT * FROM sort where (sort_id IS NULL)"
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn   
       rs.Open cmdTemp, , 1, 3
       if err.Number<>0 then
            err.clear
            response.write " <br>Fail ! "
       else
         rs.AddNew
         rs("sort_name") = request.form("newTitle")
         rs.Update
         rs.Close
         set rs=nothing
         set cmdTemp=nothing
         finished
       end if
   end select

sub finished()
     %>
<html>
<head>
<title>Successed</title>
<meta http-equiv="refresh" content='0; URL=ad_addsort.asp'>
<link rel="stylesheet" href="img/css.css">
</head>
<body>
<br><br><p align="center"><b>Successed!</b></p>

<%
 end sub
%>

ad_addsort1.asp - 源码说明

本页面展示了「商品订单管理：商品分类管理添加与修改商品管理订单投诉订单反馈信息商品留言管理管理网站用户：管理用户管理后台管理员新闻公告管理：新闻添加（支持图片新闻）修改删除首页公告设置网站常规」中的 ad_addsort1.asp 源码文件，采用 ASP 编程语言编写，共 80 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与电商管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?