asp 獲取地址欄參數代碼

　　asp 獲取地址欄參數代碼
============================================

　　函數名JoinChar
作  用向地址中加入 ? 或 &
參  數strUrl  網址
返回值加了 ? 或 & 的網址
pos=InStr("abcdefg""cd")
則pos會返回表示查找到並且位置為第三個字符開始
這就是“查找”的實現而“查找下一個”功能的
實現就是把當前位置作為起始位置繼續查找
============================================

　　function JoinChar(strUrl)
 if strUrl="" then
  JoinChar=""
  exit function
 end if
 if InStr(strUrl"?")<len(strUrl) then
  if InStr(strUrl"?")> 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

From:http://tw.wingwit.com/Article/program/net/201311/14150.html