有时我们需要把一些常用的处理过程写入类中以便反复调用,实际上我们只要在它们前加入HttpContext.Current.的引用就可以访问
Function getServerPath() As String '获取服务器的地址
Dim Path_server, Url, Path As String
Url = HttpContext.Current.Request.Url.AbsoluteUri
Path = HttpContext.Current.Request.Url.AbsolutePath
Path_server = Left(Url, InStr(Url, Path))
Return Path_server
End Function