listing2306.aspx

asp入门到精通的源代码

<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage" Language="VB" %>
<%@ Register TagPrefix="Mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile" %>
<%@ Import Namespace="System.ComponentModel" %>

<script runat="server">
   sub Page_Load(obj as Object, e as EventArgs)
      if not Page.IsPostBack then
         dim objProp as PropertyDescriptorCollection = _
            TypeDescriptor.GetProperties(Request.Browser)
         if not objProp is nothing then
            lCapabilities.DataSource = objProp
            lCapabilities.DataBind()
         end if
      end if
   end sub

   sub ShowProperty(obj as Object, e as ListCommandEventArgs)
      dim strName as String  = e.ListItem.Text
      lblName.Text = strName
      lblValue.Text = DataBinder.Eval(Request.Browser, _
         strName, "{0}")
      
      ActiveForm = frmProperty
   end sub
</script>

<Mobile:Form runat="server">
   <Mobile:Label runat="server" StyleReference="title" Text="Mobile Capabilities" />
   <Mobile:List runat="server" id="lCapabilities" DataTextField="Name" 
      OnItemCommand="ShowProperty"  />
</Mobile:Form>

<Mobile:Form runat="server" id="frmProperty">
   <Mobile:Label runat="server" id="lblName" StyleReference="title" />
   <Mobile:Label runat="server" id="lblValue" />
</Mobile:Form>