deserializexmlclass.aspx

来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 65 行

ASPX
65
字号
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Xml.Serialization" %>

<Script runat="Server">

Public Class ShoppingCart
  Public Username As String
  Public CreditCardNumber As String
  Public CartItems() As CartItem
End Class

Public Class CartItem
  Public ProductName As String
  Public ProductPrice As Decimal
End Class

Sub Page_Load
  Dim objShoppingCart As ShoppingCart
  Dim objItem As CartItem
  Dim objStreamReader As StreamReader
  Dim objXMLSerializer As XMLSerializer

  ' Retrieve XML File
  objStreamReader = File.OpenText( MapPath( "ShoppingCart.xml" ) )
  objXMLSerializer = New XMLSerializer( GetType( ShoppingCart ) )
  objShoppingCart = CType( _
    objXMLSerializer.Deserialize( objStreamReader ), _
    ShoppingCart ) 
  objStreamReader.Close()

  ' Display Shopping Cart
  txtUsername.Text = objShoppingCart.Username
  txtCCnumber.Text = objShoppingCart.CreditCardNumber
  For Each objItem in objShoppingCart.CartItems
    lblCart.Text &= "<li>" & objItem.ProductName
    lblCart.Text &= "-" & objItem.ProductPrice.ToString( "c" )
  Next
End Sub

</Script>

<html>
<head><title>DeserializeXMLClass.aspx</title></head>
<body>
<form runat="Server">

Username:
<br><asp:Label 
  id="txtUsername" 
  runat="Server" />
<p>
Credit Card Number:
<br><asp:Label 
  id="txtCCnumber" 
  runat="Server" />
<p>
<asp:Label 
  id="lblCart" 
  Runat="Server" />

</form>
</body>
</html>

⌨️ 快捷键说明

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