asp 獲取地址欄參數代碼

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