menu.ascx

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

<%@ OutputCache Duration="300" VaryByParam="menuID" %>
<Script Runat="Server">

Dim strMenuID As String

Sub Page_Load
  strMenuID = Request.Params( "menuID" )
  If strMenuID = Nothing Then
    strMenuID = "0"
  End If
End Sub
</Script>

<table border="2" bordercolor="black"
  cellpadding="5" cellspacing="0"
  bgcolor="#eeeeee">
<tr>
  <td>
  <% If strMenuID = "0" Then %>
  <b>Our Company</b>
  <% Else %>
  <a href="ourcompany.aspx?menuID=0">Our Company</a>
  <% End If %>
  </td>
  <td>
  <% If strMenuID = "1" Then %>
  <b>Our Services</b>
  <% Else %>
  <a href="ourservices.aspx?menuID=1">Our Services</a>
  <% End If %>
  </td>
  <td>
  <% If strMenuID = "2" Then %>
  <b>Our Products</b>
  <% Else %>
  <a href="ourproducts.aspx?menuID=2">Our Products</a>
  <% End If %>
  </td>
</tr>
</table>
(menu generated: <%=Now() %> )