dept_delete.asp

来自「用ASP写的电子购物系统」· ASP 代码 · 共 76 行

ASP
76 行
字号 
<%@ LANGUAGE = VBScript %>
<!--#INCLUDE FILE="include/manager.asp" -->
<% REM ######################################################################### %>
<% REM                                                                           %>
<% REM   DEPT_DELETE.ASP                                                         %>
<% REM   Microsoft Commerce Server v3.00                                         %>
<% REM                                                                           %>
<% REM   Copyright (c) 1996-98 Microsoft Corporation.  All rights reserved.      %>
<% REM                                                                           %>
<% REM ######################################################################### %>

<% REM   header: %>
<% pageTitle = "删除商品分类" %>
<%functionno=1%>
<!--#INCLUDE FILE="checkuser.asp" -->
<HTML>
<HEAD>
    <TITLE> <% = pageTitle %> </TITLE>
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html"; charset="gb2312">
    <LINK REL=stylesheet HREF="manager.css" TYPE="text/css">
    <% stdListRange = 15 %>
</HEAD>
<body topmargin="0" >
<!--#INCLUDE FILE = "include/header.asp" -->

<table border="0" width="770" height="423" cellspacing="0" cellpadding="0">
  <tr>
    <td width="140"  valign="top" >
    <!--#INCLUDE FILE = "include/menu.asp" -->
    </td>
    <td width="1" bgcolor="#000000" ></td>
    <td width="600" height="423" align="center" valign="top" class="main">
	<br>


<% REM   body: %>
<%
cmdTemp.CommandText = "SELECT count(product_id) as num FROM product where level_id = '" & Request.Form("dept_id") & "'"
Set rsList = Server.CreateObject("ADODB.Recordset")
rsList.CacheSize = stdListRange
rsList.Open cmdTemp, , adOpenStatic, adLockReadOnly

On Error Resume Next
If rsList.BOF And rsList.EOF Then EmptyRecordset = True
On Error Goto 0
If Err Then EmptyRecordset = True


REM -- act on pagemove instruction (from form)
If Not EmptyRecordset Then
    If rsList("num") > 0 then   %>
    <P>有产品在目录 <B><%= Request.Form("name") %></B>中。您应该先把该目录中的商品删掉。
    <FORM>
        <INPUT TYPE=BUTTON   VALUE="返回" onClick="history.back()"> 
    </FORM>
    <% else %>
         删除商品分类 '<% = Request.Form("name") %>'? 

        <FORM METHOD="POST"
            ACTION="xt_data_delete.asp">
            <INPUT TYPE="HIDDEN" NAME="type"    VALUE="department">
            <INPUT TYPE="HIDDEN" NAME="goto"    VALUE="dept_list.asp">
            <INPUT TYPE="HIDDEN" NAME="dept_id" VALUE="<% = Request.Form("dept_id") %>">
            <INPUT TYPE="SUBMIT" VALUE="删除">
            <INPUT TYPE="BUTTON" VALUE="放弃" onClick="history.back()"> 
        </FORM>
    <% end if %>
<% end if %>
</td>
</table>
<% REM   footer: %>
<!--#INCLUDE FILE="include/copyright.asp" -->

</body>
</html>

dept_delete.asp - 源码说明

本页面展示了「用ASP写的电子购物系统」中的 dept_delete.asp 源码文件，采用 ASP 编程语言编写，共 76 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?