[50·Ö]asp.net¼¶±ðURLÖØд-ÁéÒìʼþ

VB.NET code:

'Global.asax
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
'ÔÚÓ¦ÓóÌÐòÆô¶¯Ê±ÔËÐеĴúÂë
Dim RequestUrl As String = HttpContext.Current.Request.RawUrl
Dim VisualUrl As String = "^(.+)Action/(\d+)\.aspx(\?.*)*$"
Dim RealUrl As String = "$1default.aspx?action=$2"

If Regex.IsMatch(RequestUrl, VisualUrl, RegexOptions.IgnoreCase Or RegexOptions.Compiled) Then
Dim NewUrl As String = Regex.Replace(RequestUrl, VisualUrl, RealUrl, RegexOptions.Compiled Or RegexOptions.IgnoreCase)
Context.RewritePath(NewUrl)
End If
End Sub

'default.aspx
Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.Security

Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Request.QueryString("action") <> Nothing Then
Response.Write(Request.QueryString("action").ToString())
End If

End Sub
End Class


ÕâÑùдºÃºóµÚÒ»´ÎÌá½»http://127.0.0.1/Action/1187.aspx
ÄÜ´ò³ö1187 ½Ó×Åˢоͱä³ÉÁËÎÞ·¨ÕÒµ½×ÊÔ´¡£
Ì«ÓôÃÆÁË

---

µ±È»£¬Application_StartÖ»ÔÚ³ÌÐò±»Æô¶¯µÄʱºòÖ´ÐУ¬Ö®ºó²»»á±»Ö´ÐÐÁË¡£

ÓÃasp.net 3.5µÄweb.routingµÄÄ£¿éÀ´×ö°É¡£