'==========================================================================
'Имя функции: DefineUrl
'Функция: преобразовать относительный адрес в абсолютный адрес
'Параметры: Primitiveurl -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Параметры: Consulturl -------- Текущий веб-адрес
'==========================================================================
Functiondefiniteurl (byvalprimitiationurl, byvalconsulturl)
DimContemp, Pritemp, Pi, Ci, Priarray, Conarray
IfPrimitiveUrl = "" orconsultUrl = "" orprimitiationUrl = "$ false $" orconsulturl = "$ false $" then
Defineuturl = "$ false $"
Выходная функция
Эндиф
Ifleft (lcase (Consulturl), 7) <> "http: //" then
Consulturl = "http: //" & consulturl
Эндиф
Consulturl = Reply (Consulturl, "/", "/")
Consulturl = Replyturl (Consulturl, ": //", ": //")
PrimitiveUrl = replace (Primitiveurl, "/", "/")
Ifright (Consulturl, 1) <> "/" Then
Ifinstr (Consulturl, "/")> 0then
Ifinstr (right (consulturl, len (consulturl) -instrrev (consulturl, "/")), ",.". ")> 0then
Еще
Consulturl = Consulturl & "/"
Эндиф
Еще
Consulturl = Consulturl & "/"
Эндиф
Эндиф
Conarray = split (consulturl, "/")
Ifleft (lcase (primitiveurl), 7) = "http: //" then
DeconiteUrl = reply (primitibiteurl, ": //", ": //")
Else Illerft (Primitiveurl, 1) = "/" Тогда
DeconiteUrl = conarray (0) и primitiveurl
Else Illerft (Primitiveurl, 2) = "./"
PrimitiveUrl = правый (Primitifiturl, Len (Primitityurl) -2)
Ifright (Consulturl, 1) = "/" Then
DepaniteUrl = Consulturl & Primitiveurl
Еще
DeconiteUrl = Left (Consulturl, Instrrev (Consulturl, "/")) и PrimitiveUrl
Эндиф
Else Illerft (Primitiveurl, 3) = "../" Then