asp循环获取URL地址中的所有变量参数值

'==================================================================
'GetURLA 得到当前的URL
'更据URL参数不同，获取不同的结果 '
'==================================================================
Function GetURLA()
Dim RequestItem,ParaList
For Each RequestItem In Request.QueryString
 if RequestItem <> "FileName" And RequestItem <> "PageTitle" then
  if ParaList = "" then
   ParaList = "?"&RequestItem & "=" & Server.URLEncode(Request.QueryString(RequestItem))
  else
   ParaList = ParaList & "&" & RequestItem & "=" & Server.URLEncode(Request.QueryString(RequestItem))
  end if
 end if
Next
GetURLA=ParaList
End Function