'*************************************************
'関数名：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
エンド機能