'**************************************************
'函數名：JoinChar
'作用：向地址中加入?或&
'參數：strUrl----網址
'返回值：加了?或&的網址
'**************************************************
functionJoinChar(strUrl)
ifstrUrl=""then
JoinChar=""
exitfunction
endif
ifInStr(strUrl,"?")<len(strUrl)then
ifInStr(strUrl,"?")>1then
ifInStr(strUrl,"&")<len(strUrl)then
JoinChar=strUrl&"&"
Else
JoinChar=strUrl
endif
Else
JoinChar=strUrl&"?"
endif
Else
JoinChar=strUrl
endif
endfunction