'=======================================================================
'Nome da função: Definiteurl
'Função: converta o endereço relativo em endereço absoluto
Parâmetros: Primitivo --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Parâmetros: consulturl -------- endereço da web atual
'=======================================================================
FunctionDefiniteurl (ByValPrimitiveurl, ByvalConsulturl)
DimContemp, Pritemp, PI, CI, Priarray, Conarray
IfPrimitiveurl = "" Orconsulturl = "" OrPrimitiveurl = "$ false $" orconsulturl = "$ false $" então
DefinITeurl = "$ false $"
Saída de saída
Endif
Ifleft (lcase (consulturl), 7) <> "http: //" então
Consulturl = "http: //" & consulturl
Endif
Consultl = substituir (consulturl, "/", "/")
Consultl = substituir (consulturl, ": //", ": //")
Primitivo = substituir (primitivo, "/", "/")
Se bem -sucedido (consulturl, 1) <> "/" então
Ifinstr (consulturl, "/")> 0then
Ifinstr (certo (consulturl, len (consulturl) -Instrrev (consulturl, "/")), ",.". ")> 0hen
Outro
Consultl = consulturl & "/"
Endif
Outro
Consultl = consulturl & "/"
Endif
Endif
Conarray = split (consulturl, "/")
Ifleft (lcase (primitivo), 7) = "http: //" então
Definitário = substituir (primitivo, ": //", ": //")
Elseifleft (primitivo, 1) = "/" então
Definitário = conarray (0) e primitivo
Elseifleft (primitivo, 2) = "./" então
Primitivo = direita (primitivo, len (primitivo) -2)
Seright (consulturl, 1) = "/" então
Definitário = consulturl & primitivo
Outro
Definitário = esquerda (consulturl, Instrrev (consulturl, "/")) e primitivo
Endif
Elseifleft (primitivo, 3) = "../" então