📄 youraccount.aspx
字号:
<%@ Page Language="VB" Inherits="IBuyAdventure.PageBase" src="../components/stdpage.vb" clienttarget=downlevel %>
<%@ Register TagPrefix="IBA" TagName="Header" Src="..\UserControl\Header.ascx" %>
<%@ Register TagPrefix="IBA" TagName="Categories" Src="..\UserControl\Categories.ascx" %>
<%@ Register TagPrefix="IBA" TagName="Footer" Src="..\UserControl\Footer.ascx" %>
<%@ Import Namespace="System.Data" %>
<html>
<head>
<title>IBuyAdventure Catalog</title>
</head>
<script language="VB" runat="server">
Public Sub Page_Load(sender As Object, e As EventArgs)
PopulateOrderList()
End Sub
Function GetCustomerID() As String
If User.Identity.Name <> "" Then
Return Context.User.Identity.Name
Else
If Session("AnonUID") Is Nothing Then
Session("AnonUID") = Guid.NewGuid()
End If
Return Session("AnonUID").ToString()
End If
End Function
Sub PopulateOrderList()
' Popoulate list with updated shopping cart data
Dim orders As New IBuyAdventure.OrdersDB(getConnStr())
Dim ds As DataSet = orders.GetOrdersForCustomer(GetCustomerID())
MyList.DataSource = ds
MyList.DataBind()
' Hide the clear button if there are no items to delete.
If MyList.Items.Count = 0 Then
ClearButton.Visible = false
MyList.Visible = false
Status.Text = "No orders have been placed to date."
End If
End Sub
Sub ClearOrderHistory(sender As Object, e As EventArgs)
Dim orders As New IBuyAdventure.OrdersDB(getConnStr())
orders.DeleteOrdersForCustomer( GetCustomerID() )
PopulateOrderList()
End Sub
</script>
<body background="/IBuyAdventure/images/back_sub.gif">
<form runat="server">
<font face="Verdana, Arial, Helvetica" size="2">
<table border="0" valign="top" width="100%">
<tr>
<td colspan="5">
<IBA:Header id="Header" runat="server"/>
</td>
</tr>
<!--Begin Navigational Buttons-->
<tr valign="top">
<td width="20%" align="left" valign="top">
<IBA:Categories id="Categories" runat="server"/>
</td>
<td>
</td>
<td valign="top" align="left" width="80%">
<h2>Your Account</h2>
<font face="Verdana, Arial, Helvetica" size="2">
<asp:label id="Status" runat="server">You have placed the following orders to date:</asp:label><br><br>
<asp:repeater id="MyList" runat="server" >
<headertemplate>
<table width="100%" style="font: 10pt verdana" cellpadding="3" cellspacing="0" border="0">
<tr style="background-color:800000;color:#ffffff">
<th>
Order Date
</th>
<th>
Order Value
</th>
</tr>
</headertemplate>
<itemtemplate>
<tr style="background-color:ffecd8">
<td>
<%# DataBinder.Eval(Container.DataItem, "Ordered") %>
</td>
<td>
<%# DataBinder.Eval(Container.DataItem, "TotalValue","{0:C}") %>
</td>
</tr>
</itemtemplate>
<footertemplate>
</table>
</footertemplate>
</asp:repeater>
<br>
<asp:button id="ClearButton" text="Clear Order History" onclick="ClearOrderHistory" runat="server"/>
</font>
</table>
</td>
</tr>
<tr><td><IBA:footer runat="server"/></td></tr>
</table>
</font>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -