global.asax

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

<Script Runat="Server">

Sub Application_BeginRequest
  Dim strUsername
  Dim strCustomPath As String

  If INSTR( Request.Path.ToLower, "custom" ) = 0 Then
    strUsername = Request.Path.ToLower
    strUsername = strUsername.Replace( ".aspx", "" )
    strUsername = strUsername.Remove( _
      0, _
      InstrRev( strUsername, "/" ) )
    If Request.ApplicationPath = "/" Then
    strCustomPath = _
      String.Format( _
        "/custom/default.aspx?username={0}", _
        strUsername )
    Else
    strCustomPath = _
      String.Format( _
        "{0}/custom/default.aspx?username={1}", _
        Request.ApplicationPath, _
        strUsername )
    End If 
    Context.RewritePath( strCustomPath )
  End If
End Sub

</Script>