Sample:
Dim Con As HttpContext = HttpContext.Current
Dim Tpage As Pager = New Pager
Tpage.Geturl(Con.Request)
'*******************************************************************
Friend Sub Geturl(ByVal Request As HttpRequest)
关于上下文:
http://www.microsoft.com/china/msdn/archives/library/dnaspnet/html/asp01242002.asp