Function getServerPath() As String '获取服务器的地址 Dim Path_server, Url, Path As String Url = Request.Url.AbsoluteUri Path = Request.Url.AbsolutePath Path_server = Left(Url, InStr(Url, Path)) Return Path_server End Function
