dept_edit.asp

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

ASP
159 行
字号 
<%@ LANGUAGE = VBScript %>
<!--#INCLUDE FILE="include/manager.asp" -->
<% REM ######################################################################### %>
<% REM                                                                           %>
<% REM   DEPT_EDIT.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 level_id, parent_id, name, description,date_changed from product_level where level_id = " & Request("dept_id") 
Set rsDept = Server.CreateObject("ADODB.Recordset")
rsDept.Open cmdTemp, , adOpenForwardOnly, adLockReadOnly
%>

<FORM METHOD="POST" ACTION="xt_data_add_update.asp">
    
<INPUT TYPE="HIDDEN" NAME="op" VALUE="update">
<INPUT TYPE="HIDDEN" NAME="type" VALUE="department">
<INPUT TYPE="HIDDEN" NAME="goto" VALUE="dept_list.asp">

<TABLE>
    <TR>
        <% REM  label: %> 
        <TD class="mainleft"> 
            ID: 
        </TD>
        <% REM  value: %> 
        <TD class="mainright">
            <INPUT  TYPE="hidden"
                    NAME="dept_id"
                    VALUE="<% = rsDept("level_id").Value %>">
            <STRONG><% = rsDept("level_id").Value %></STRONG>
        </TD>
    </TR>

    <TR>
        <% REM  label: %>
        <TD class="mainleft"> 所属分类: </TD>

        <% REM  value: %>
        <TD class="mainright">
        <SELECT NAME="parent_id">
            <% if rsDept("parent_id").Value="0" then %>
                   <option value=0 selected> None
            <%else %>
                   <option value=0> None
            <%end if%>
            <% 
            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 %>
                    <% if cstr(rsDept("parent_id")) <> Cstr(rsParent("level_id")) then %>
                       <option value=<%=Cstr(rsParent("level_id").Value)%>> <% = rsParent("name").Value %>
                    <% else %>
                       <option selected value=<%=Cstr(rsParent("level_id").Value)%>> <% = rsParent("name").Value %>
                    <% end if %>
                    <% 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"
                NAME = "name"
                MAXLENGTH="255"
                VALUE = "<% = rsDept("name").Value %>">
        </TD>
    </TR>


    <TR>
        <% REM label:  %>
        <TD class="mainleft">
            备    注:
        </TD>

        <% REM value:  %>
        <TD class="mainright">
            <TEXTAREA
                COLS=40
                ROWS=5
                NAME="description"
                WRAP="virtual"><% = rsDept("description").Value %></TEXTAREA>
        </TD>
    </TR>

</TABLE>

<BR>
* 表示必须输入
<BR>
<BR>

<TABLE>
<TR>
    <TD>
        <INPUT TYPE="submit" VALUE="修改">
        </FORM>
    </TD>

    <TD>
        <FORM METHOD="POST"
            ACTION="dept_delete.asp">
            <INPUT TYPE="HIDDEN" NAME="name"    VALUE="<% = rsDept("name").Value %>">
            <INPUT TYPE="HIDDEN" NAME="dept_id" VALUE="<% = rsDept("level_id").Value %>">
            <INPUT TYPE="HIDDEN" NAME="goto" VALUE="dept_list.asp">
            &nbsp;&nbsp;<INPUT TYPE="SUBMIT" VALUE="删除">
        </FORM>
    </TD>
</TR>
</TABLE>

</td>
</table>
<% REM   footer: %>
<!--#INCLUDE FILE="include/copyright.asp" -->
</body>
</html>

dept_edit.asp - 源码说明

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

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

⌨️ 快捷键说明

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