product_new.asp

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

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

<% REM   header: %>
<% pageTitle = "添加商品" %>


<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: %>
<FORM METHOD="POST"
    ACTION="xt_data_add_update.asp">
    <INPUT TYPE="HIDDEN" NAME="type" VALUE="product">
    <INPUT TYPE="HIDDEN" NAME="goto" VALUE="product_image.asp">

<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0>
    <TR>
        <% REM label:  %>
        <TD VALIGN=TOP class=mainleft>
            商品编号:
        </TD>

        <% REM value:  %>
        <TD VALIGN=TOP colspan=2 class=mainright>
            <INPUT  TYPE="text"
                    SIZE=32
                    MAXLENGTH=30
                    NAME="product_no">*
        </TD>
    </TR>
    <TR>
        <% REM label:  %>
        <TD VALIGN=TOP class=mainleft>
            商品名称:
        </TD>

        <% REM value:  %>
        <TD VALIGN=TOP colspan=2 class=mainright>
            <INPUT
                TYPE="text"
                SIZE=32
                MAXLENGTH="120"
                NAME="name">*
        </TD>
    </TR>
    <TR>
        <% REM label:  %>
     <TD VALIGN=TOP class=mainleft>
            供货商:
        </TD>

        <% REM value:  %>
        <TD VALIGN=TOP colspan=2 class=mainright>
            <INPUT
                TYPE="text"
                SIZE=32
                MAXLENGTH="50"
                NAME="provider">
        </TD>
    </TR>
    <TR>
        <% REM label:  %>
     <TD VALIGN=TOP class=mainleft>
            计价单位:
        </TD>

        <% REM value:  %>
        <TD VALIGN=TOP colspan=2 class=mainright>
            <INPUT
                TYPE="text"
                SIZE=3
                MAXLENGTH="2"
                NAME="unit">
        </TD>
    </TR>
     <TR>
        <% REM label:  %>
        <TD VALIGN=TOP class=mainleft>
            商品简介:
        </TD>

        <% REM value:  %>
        <TD VALIGN=TOP colspan=2 class=mainright>
            <TEXTAREA
                COLS=36
                ROWS=5
                NAME="short_description"
                WRAP = "virtual"></TEXTAREA>
        </TD>
    </TR>
    <TR>
        <% REM label:  %>
        <TD VALIGN=TOP class=mainleft>
            详细介绍:
        </TD>

        <% REM value:  %>
        <TD VALIGN=TOP colspan=2 class=mainright>
            <TEXTAREA
                COLS=36
                ROWS=5
                NAME="long_description"
                WRAP = "virtual"></TEXTAREA>
        </TD>
    </TR>              
    <TR>
        <% REM label:  %>
        <TD VALIGN=TOP class=mainleft>
            价格:
        </TD>

        <% REM value:  %>
        <TD VALIGN=TOP colspan=2 class=mainright>
            <INPUT
                TYPE="text"
                SIZE=32
                MAXLENGTH=32
                NAME="list_price">*
        </TD>
    </TR>
    <TR>
        <% REM label:  %>
        <TD VALIGN=TOP class=mainleft>
            特价:
        </TD>

        <% REM value:  %>
        <TD VALIGN=TOP colspan=2 class=mainright>
            <INPUT
                TYPE="text"
                SIZE=32
                MAXLENGTH=32
                NAME="adjusted_price">
        </TD>
    </TR>
    <TR>
                    <% REM label:  %>
       <TD VALIGN=TOP class=mainleft>
       促销:
       </TD>
              
       <% REM value:  %>
       <TD VALIGN=TOP colspan=2 class=mainright>
			<INPUT
			 TYPE="checkbox"
			 NAME="hot"
		   >
          </TD>
       </TR>
        <TR>
        <% REM label:  %>
        <TD VALIGN=TOP class=mainleft>
            商品分类:
        </TD>

        <% REM value:  %>
        <TD VALIGN=TOP colspan=2  class=mainright>
            <SELECT NAME="dept_id">
<%'             <option selected value=0>首页%>
                <% 
'                cmdTemp.CommandText = "select level_id, name from product_level"
                cmdTemp.CommandText = "select level_id, name from product_level where parent_id <> 0 "
                Set rsDept = Server.CreateObject("ADODB.Recordset")
                rsDept.Open cmdTemp, , adOpenKeyset, adLockReadOnly
                If rsDept.RecordCount > 0 Then 
                    While Not rsDept.EOF %>
                        <option value=<% = Cstr(rsDept("level_id").Value) %> ><% = rsDept("name").Value %>
                        <% rsDept.MoveNext
                    Wend
                End If
                %>
            </SELECT>*
        </TD>
    </TR>
    <TR>

    </TR>    

</TABLE>

<BR>
* 表示必须输入
<BR>
<BR>
<INPUT TYPE="submit" VALUE="添加">
</FORM>


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

product_new.asp - 源码说明

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

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

⌨️ 快捷键说明

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