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
获取服务器的地址
最新推荐文章于 2023-01-15 11:18:55 发布