'*************************************************
'関数名:Joinchar
'機能:アドレスに追加しますか?または&
'パラメーター:Strurl ----- Webサイト
'返品値:追加しましたか?または&url
'*************************************************
functionjoinchar(strurl)
ifstrurl = "" then
joinchar = ""
exitFunction
endif
ifinstr(strurl、 "?")<len(strurl)then
ifinstr(strurl、 "?")> 1then
ifinstr(strurl、 "&")<len(strurl)then
Joinchar = strurl& "&"
それ以外
Joinchar = strurl
endif
それ以外
joinchar = strurl& "?"
endif
それ以外
Joinchar = strurl
endif
エンド機能