asp 擷取地址欄參數代碼

'***********************************************
'函數名：JoinChar
'作  用：向地址中加入 ? 或 &
'參  數：strUrl  ----網址
'傳回值：加了 ? 或 & 的網址
'pos=InStr(1,"abcdefg","cd")
'則pos會返回3表示尋找到並且位置為第三個字元開始。
'這就是“尋找”的實現，而“尋找下一個”功能的
'實現就是把當前位置作為起始位置繼續尋找。
'***********************************************
function JoinChar(strUrl)
 if strUrl="" then
  JoinChar=""
  exit function
 end if
 if InStr(strUrl,"?")<len(strUrl) then
  if InStr(strUrl,"?")>1 then
   if InStr(strUrl,"&")<len(strUrl) then
    JoinChar=strUrl & "&"
   else
    JoinChar=strUrl
   end if
  else
   JoinChar=strUrl & "?"
  end if
 else
  JoinChar=strUrl
 end if
end function