mobilecapabilities.aspx

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

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

<Script Runat="Server">

Sub Page_Load
  Dim caps AS system.Web.Mobile.MobileCapabilities

  caps = Request.Browser
  lblBrowser.Text = caps.Browser
  lblType.Text = caps.Type
  lblPreferredRenderingType.Text = caps.PreferredRenderingType
  lblScreenCharactersWidth.Text = caps.ScreenCharactersWidth
  lblScreenCharactersHeight.Text = caps.ScreenCharactersHeight
End Sub

</Script>

<Mobile:Form runat="Server">

<b>Browser:</b>
<Mobile:Label
  id="lblBrowser"
  Runat="Server"/>
<br/>

<b>Type:</b>
<Mobile:Label
  id="lblType"
  Runat="Server"/>
<br/>

<b>PreferredRenderingType:</b>
<Mobile:Label
  id="lblPreferredRenderingType"
  Runat="Server"/>
<br/>

<b>ScreenCharactersWidth:</b>
<Mobile:Label
  id="lblScreenCharactersWidth"
  Runat="Server"/>
<br/>

<b>ScreenCharactersHeight:</b>
<Mobile:Label
  id="lblScreenCharactersHeight"
  Runat="Server"/>

</Mobile:Form>