28,391
社区成员
发帖
与我相关
我的任务
分享
Function GetPageUrlPath()
SERVER_NAME = Request.ServerVariables("SERVER_NAME")
SERVER_PORT = Request.ServerVariables("SERVER_PORT")
PATH_INFO = Request.ServerVariables("PATH_INFO")
PATH_TMP = Split(PATH_INFO,"/")
PATH_INFO = Replace(PATH_INFO,PATH_TMP(Ubound(PATH_TMP)),"")
URL = "http://" & SERVER_NAME
If SERVER_PORT<>80 Then URL = URL & ":" & SERVER_PORT
URL = URL & PATH_INFO
GetPageUrlPath = URL
End Function