< %@ Page language="vb"

　　%>

　　< %@ Reference Page="~/CrossPostback1.aspx" %>

　　< !DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >

　　< html>< head>

　　< title>Cross Postback Example 3< /title>

　　< /head>< body>

　　< script language="vb" runat="server">

　　Sub Page_Load()

　　Dim cppPage As CrossPostback1_aspx

　　If Not (Page.PreviousPage Is Nothing) Then

　　If Not (Page.IsCrossPagePostBack) Then

　　If (Page.PreviousPage.IsValid) ThencppPage = CType(PreviousPage, CrossPostBack1_aspx)Response.Write("Name:" cppPage.Name "< br>")Response.Write("E-mail:" cppPage.E-mailAddress)

　　End If

　　End If

　　End If

　　End Sub

　　< /script>< /body>< /html>