'=========================================================================
'Имя функции: Formatremoteurl
Функция: отформатируйте полный URL -адрес текущего веб -сайта - преобразовать относительный адрес в абсолютный адрес
Аргументы: url ---- url строка
'Параметры: Currenturl --- конечно URL-адрес сайта
'Return value: форматированный URL
'=========================================================================
PublicfunctionFormatreMoteurl (Byvalurl, Byvalcurrenturl)
Dimstrurl
Iflen (url) <2orlen (url)> 255orlen (currenturl) <2Then
Formatremoteurl = vbnullstring
Выходная функция
Эндиф
Currenturl = trim (reply (replication (replace (reply (reply (replace (currenturl, "'", vbnullstring), "" "", vbnullstring), vbnewline, vbnullstring), "/", "/", "|", vbnullstring)))))
Url = trim (заменить (заменить (заменить (заменить (заменить (заменить (url, "'", vbnullstring), "" "", vbnullstring), vbnewline, vbnullstring), "/", "/", "|", vbnullstring))))
Ifinstr (9, currenturl, "/") = 0then
strurl = currenturl
Еще
strurl = left (currenturl, instr (9, currenturl, "/")-1)
Эндиф
Ifstrurl = vbnullstringthinstrurl = currenturl
SELECTCASELEFT (LCASE (URL), 6)
Case "http:/", "https:", "ftp: //", "rtsp:/", "mms: //"
Formatremoteurl = url
Выходная функция
Endselect
Ifleft (url, 1) = "/" Затем
Formatremoteurl = strurl & url
Выходная функция