showquote.aspx

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

<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage" %>

<Script Runat="Server">

Sub Page_Load
  Dim myRand As New Random
  Select Case myRand.Next( 3 )
   Case 0
     ActiveForm = form0
   Case 1
     ActiveForm = form1
   Case 2
     ActiveForm = form2
  End Select
End Sub

</Script>

<Mobile:Form runat="server" id="form0">
<i>Look before you leap!</i>
</Mobile:Form>

<Mobile:Form runat="server" id="form1">
<i>He who hesitates is lost</i>
</Mobile:Form>

<Mobile:Form runat="server" id="form2">
<i>The early bird gets the worm</i>
</Mobile:Form>