dept_new.asp

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

ASP
89 行
字号 
<%@ LANGUAGE = VBScript %>
<!--#INCLUDE FILE="include/manager.asp" -->
<% REM ######################################################################### %>
<% REM                                                                           %>
<% REM   DEPT_NEW.ASP                                                            %>
<% REM   添加商品分类                                                            %>
<% REM                                                                           %>
<% REM   Copyright (c) 1999-2000 Epro 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">
<% stdListRange = 15 %>
<LINK REL=stylesheet HREF="manager.css" TYPE="text/css">
</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>

<form METHOD="POST" ACTION="xt_data_add_update.asp">
  <input type="hidden" name="type" value="department"><input type="hidden" name="goto"
  value="dept_list.asp"><table border="0" cellspacing="1" cellpadding="2">
    <tr>
<% REM  label: %>
      <td class="mainleft">分类ID: </td>
<% REM  value: %>
      <td class="mainright"><input TYPE="text" SIZE="32" MAXLENGTH="10" NAME="dept_id"> *（分类ID为1到10个数字）</td>
    </tr>
  
    <tr>
<% REM  label: %>
      <td class="mainleft">所属分类: </td>
<% REM  value: %>
      <td class="mainright"><select NAME="parent_id" size="1">
          <option selected value=0>None<% 
            cmdTemp.CommandText = "select * from product_level where parent_id = 0 order by level_id"
            Set rsParent = Server.CreateObject("ADODB.Recordset")
            rsParent.Open cmdTemp, , adOpenKeyset, adLockReadOnly
            If rsParent.RecordCount > 0 Then 
                While Not rsParent.EOF %> <option value=<%=Cstr(rsParent("level_id").Value)%>> <% = rsParent("name").Value %> <% rsParent.MoveNext
                Wend
            End If
            %> 
            </select>
            </td>
    </tr>
    <tr>
<% REM  label: %>
      <td class="mainleft">分类名称: </td>
<% REM  value: %>
      <td class="mainright"><input TYPE="text" SIZE="32" MAXLENGTH="255" NAME="name"> *（分类ID为1到25个汉字）</td>
    </tr>
    <tr>
<% REM label:  %>
      <td class="mainleft">备&nbsp;&nbsp;&nbsp; 注: </td>
<% REM value:  %>
      <td class="mainright"><textarea COLS="40" ROWS="5" NAME="description" WRAP="virtual">
            </textarea> </td>
    </tr>
  </table>
  <div align="center">
  * 表示必须输入 <br>
  <input TYPE="submit" VALUE="增加">
  <INPUT TYPE="BUTTON" VALUE="放弃" onClick="history.back()" id=BUTTON1 name=BUTTON1>
  </div>
</form>
<% REM   footer: %>
</td>
</table>
<!--#INCLUDE FILE="include/copyright.asp" -->
</body>
</html>

dept_new.asp - 源码说明

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

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

⌨️ 快捷键说明

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