asp获取来源Url

Function     GetUrl()     
     On     Error     Resume     Next     
     Dim     strTemp     
      If     LCase(Request.ServerVariables("HTTPS"))     =     "off"     Then     
     strTemp     =     "http://"     
      Else     
      strTemp     =     "https://"     
      End     If     
     strTemp     =     strTemp     &     Request.ServerVariables("SERVER_NAME")     
     If     Request.ServerVariables("SERVER_PORT")     <>     80     Then     strTemp     =     strTemp     &     ":"     &     Request.ServerVariables("SERVER_PORT")     
     strTemp     =     strTemp     &     Request.ServerVariables("URL")     
     If     Trim(Request.QueryString)     <>     ""     Then     strTemp     =     strTemp     &     "?"     &     Trim(Request.QueryString)     
     GetUrl     =     strTemp     
End     Function

posted on 2012-10-22 14:27  逆时间生活  阅读(510)  评论(0)  编辑  收藏  举报