'==========================================================================
'関数名：formatremoteurl
'機能：現在のウェブサイトの完全なURLをフォーマット - 相対アドレスを絶対アドレスに変換する
'引数：URL ---- URL文字列
'パラメーター：currenturl ---もちろんWebサイトURL
'返品値：フォーマットされたURL
'==========================================================================
publicFunctionFormatremoteurl（byvalurl、byvalcurrenturl）
dimstrurl
iflen（url）<2orlen（url）> 255orlen（currenturl）<2then
formatremoteurl = vbnullstring
exitFunction
endif
currenturl = trim（置き換え（置換（置換（置換（currenturl、 "'"、 "'"、vbnullstring）、 "" "、vbnullstring）、vbnewline、vbnullstring）、"/"、"/"、" | "、vbnullstring）））））
url = trim（置換（置換（置換（置換（url、 "'"、vbnullstring）、 "" "、vbnullstring）、vbnewline、vbnullstring）、"/"、"/"、" | "、vbnullstring）））））））
ifinstr（9、currenturl、 "/"）= 0then
strurl = currenturl
それ以外
strurl = left（currenturr、strurur（9、currenturl、 "/"）-1）
endif
ifstrurl = vbnullstringthinstrurl = currenturl
selectcaseleft（lcase（url）、6）
ケース "http：/"、 "https："、 "ftp：//"、 "rtsp：/"、 "mms：//"
formatremoteurl = url
exitFunction
EndSelect
ifleft（url、1）= "/" then
formatremoteurl = strurl＆url
exitFunction