📄 deserializexmlclass.aspx

📁 asp.net技术内幕的书配源码

💻 ASPX

字号:

<%@ 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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -