list_row.asp

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

<% REM ######################################################################### %>
<% REM                                                                           %>
<% REM   LIST_ROW.ASP                                                            %>
<% REM   Microsoft Commerce Server v3.00                                         %>
<% REM                                                                           %>
<% REM   Copyright (c) 1996-98 Microsoft Corporation.  All rights reserved.      %>
<% REM                                                                           %>
<% REM ######################################################################### %>

<% Select Case listElement 
    Case "products" %>
        <TD VALIGN=TOP ALIGN=CENTER> <% = RowCount %>    </TD>
        <TD VALIGN=TOP ALIGN=LEFT  > <A HREF="<% = listElemTemplate & "?" & "pfid=" &  Cstr(rsList("product_id")) %>"> <% = rsList("product_no") %> </A> </TD>
        <TD VALIGN=TOP ALIGN=LEFT  > <% = rsList("name") %>   </TD>
        <TD VALIGN=TOP ALIGN=RIGHT> ￥<% = rsList("list_price") %> </TD>

    <% Case "departments" %>
        <TD VALIGN=TOP ALIGN=LEFT> <% = rsList("level_id") %> </TD>
        <TD VALIGN=TOP ALIGN=LEFT> <% = rsList("parent_id") %> </TD>
        <TD VALIGN=TOP ALIGN=LEFT  > <A HREF="<% = listElemTemplate & "?" & "dept_id=" & Cstr(rsList("level_id"))%>"> <% = rsList("name") %></A> </TD>
        <TD VALIGN=TOP ALIGN=LEFT> <% = rsList("description") %>&nbsp; </TD>
        <TD VALIGN=TOP ALIGN=LEFT> <% = FormatDatetime(rsList("date_changed"),2) %> </TD>

    <% Case "orders" %>
        <TD VALIGN=TOP ALIGN=LEFT  > <A HREF="<% = listElemTemplate & "?" & "order_id=" &  Cstr(rsList("order_id")) %>"> <% = rsList("order_id") %> </A> </TD>
        <TD VALIGN=TOP ALIGN=CENTER> <% = rsList("Date_entered") %>    </TD> 
        <TD VALIGN=TOP ALIGN=LEFT  > <% = rsList("shoppername") %>   </TD>
        <TD VALIGN=TOP ALIGN=RIGHT> ￥<% = rsList("total") %> </TD>


    <% Case "shoppers" %>
        <TD VALIGN=TOP ALIGN=CENTER> <% = RowCount %> </TD>
        <TD VALIGN=TOP ALIGN=LEFT  > <A HREF="<% = listElemTemplate & "?" & mscsPage.URLArgs("shopper_id", Cstr(rsList("shopper_id"))) %>"> <% = rsList("shopper_id")%> </A> </TD>
        <TD VALIGN=TOP ALIGN=LEFT  > <% = rsList("name") %>   </TD>
    <% Case Else %>
        <TD ALIGN=LEFT> #ERROR# </TD>
<% End Select %>