获取url包括参数

2015-08-12 16:03:08来源:作者:人点击

获取url包括参数
  函数名:GetUrl
  作  用:获取url包括参数
  返回值:获取url包括参数
  '****************************************************
  Public Function GetUrl()  
   Dim strTemp    
   strTemp=Request.ServerVariables("Script_Name")     
   If  Trim(Request.QueryString)<> "" Then
    strTemp=strTemp&"?"
    For Each M_item In Request.QueryString
  strTemp=strTemp&M_item&"="&Server.UrlEncode(Trim(Request.QueryString(""&M_item&"")))
    next
   end if
   GetUrl=strTemp  
  End Function
 使用方法
 call GetUrl()

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台