📄 product_view.asp

📁 用ASP写的电子购物系统
💻 ASP
字号:
<%@ LANGUAGE = VBScript %>
<!--#INCLUDE FILE="include/manager.asp" -->
<% REM ######################################################################### %>
<% REM                                                                           %>
<% REM   PRODUCT_VIEW.ASP                                                        %>
<% REM   Microsoft Commerce Server v3.00                                         %>
<% REM                                                                           %>
<% REM   Copyright (c) 1996-98 Microsoft Corporation.  All rights reserved.      %>
<% REM                                                                           %>
<% REM ######################################################################### %>

<% REM   header: %>
<% pageTitle = "Product '" &  Request("pfid") & "'" %>

<HTML>
<HEAD>
    <TITLE> <% = pageTitle %> </TITLE>
    <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
    <% stdListRange = 15 %>
</HEAD>
<BODY TOPMARGIN="<% = top_margin %>" LEFTMARGIN="<% = left_margin %>" BGCOLOR="<% = bgcolor %>" TEXT="<% = text %>" LINK="<% = color_link %>" ALINK="<% = color_alink %>" VLINK="<% = color_vlink %>">
<!--#INCLUDE FILE="include/mgmt_header.asp" -->

<% REM body: %>
<%
cmdTemp.CommandText = "SELECT * FROM vc30_product_family where pfid = '" & Replace(Request("pfid"), "'", "''") & "'"
Set rsProduct = Server.CreateObject("ADODB.Recordset")
rsProduct.Open cmdTemp, , 1,1
%>

<A HREF="<% = "product_edit.asp?" & mscsPage.URLArgs("pfid", Cstr(Request("pfid"))) %>"> <H2>Edit Product</H2> </A>

<TABLE>
    <TR>
      <TD VALIGN=TOP>ID:</TD>
        <TD VALIGN=TOP><% = rsProduct("pfid").Value %></TD>
    </TR>

    <TR>
      <TD VALIGN=TOP>Name:</TD>
        <TD VALIGN=TOP><% = rsProduct("name").Value %></TD>
    </TR>

    <TR>
      <TD VALIGN=TOP>Short Description:</TD>
        <TD VALIGN=TOP><% = rsProduct("short_description").Value %></TD>

    <TR>
      <TD VALIGN=TOP>Long Description:</TD>
        <TD VALIGN=TOP><% = rsProduct("long_description").Value %></TD>

    <TR>
      <TD VALIGN=TOP>Price:</TD>
        <TD VALIGN=TOP><% = MSCSDataFunctions.Money(Cstr(rsProduct("list_price").Value)) %></TD>
    </TR>

    <TR>
      <TD VALIGN=TOP>Dept:</TD>

        <% 
        cmdTemp.CommandText = "SELECT * FROM vc30_dept where dept_id = " & rsProduct("dept_id").Value
        Set rsDept = Server.CreateObject("ADODB.Recordset")
        rsDept.Open cmdTemp, , adOpenKeyset, adLockReadOnly
        %>
        <TD VALIGN=TOP><% = rsDept("name").Value %></TD>
    </TR>

</TABLE>

<% REM   footer: %>
<!--#INCLUDE FILE="include/mgmt_footer.asp" -->
⌨️ 快捷键说明

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