global.asax

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

<%@ Import Namespace="System.IO" %>

<Script Runat="Server">

Sub Application_BeginRequest
  Dim strPageOwner As String
  Dim strCurrentPath As String
  Dim strCustomPath As String
  
  strCurrentPath = Request.Path.ToLower()
  If strCurrentPath.IndexOf( "/site/" ) = -1 _
  AND strCurrentPath.IndexOf( "userpage.aspx" ) = -1 _
  AND strCurrentPath.IndexOf( "default.aspx" ) = -1 Then
    strCustomPath = _
      String.Format( _
        "/aspnetjobs/userpage.aspx?pageowner={0}", _
        Path.GetFileNameWithoutExtension( Request.Path ) ) 
    Context.RewritePath( strCustomPath )
  End If
End Sub

</Script>