'======================================================================
'Nama fungsi: DefiniteUrl
'Fungsi: Konversi alamat relatif menjadi alamat absolut
'Parameter: PrimitiveUrl --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Parameter: ConsultUrl -------- Alamat Web Saat Ini
'======================================================================
FunctionDefiniteUrl (ByValprimitiveUrl, Byvalconsulturl)
Dimcontemp, Pritemp, PI, CI, Priarray, Conarray
IfprimitiveUrl = "" orconsulturl = "" orprimitiveUrl = "$ false $" orconsulturl = "$ false $" Lalu
DefiniteUrl = "$ false $"
Fungsi keluar
Endif
Ifleft (lcase (konsultan), 7) <> "http: //" lalu
ConsultUrl = "http: //" & ConsultUrl
Endif
ConsultUrl = ganti (ConsultUrl, "/", "/")
ConsultUrl = ganti (ConsultUrl, ": //", ": //")
PrimitiveUrl = ganti (primitiveurl, "/", "/")
Ifright (konsultan, 1) <> "/" lalu
Ifinstr (ConsultUrl, "/")> 0then
Ifinstr (kanan (konsultan, len (consultUrl) -instrrev (consultUrl, "/")), ",.". ".)> 0then
Kalau tidak
ConsultUrl = ConsultUrl & "/"
Endif
Kalau tidak
ConsultUrl = ConsultUrl & "/"
Endif
Endif
Conarray = split (consultUrl, "/")
Ifleft (lcase (primitiveUrl), 7) = "http: //" lalu
DefiniteUrl = ganti (primitiveUrl, ": //", ": //")
Elshingleft (primitiveUrl, 1) = "/" lalu
DefiniteUrl = ConArray (0) & PrimitiveUrl
Elshingiftft (primitiveUrl, 2) = "./" Lalu
PrimitiveUrl = kanan (primitiveUrl, len (primitiveurl) -2)
IFRIGHT (ConsultUrl, 1) = "/" Lalu
DefiniteUrl = ConsultUrl & PrimitiveUrl
Kalau tidak
DefiniteUrl = Left (ConsultUrl, Instrrev (ConsultUrl, "/")) & PrimitiveUrl
Endif
Elshingleft (primitiveUrl, 3) = "../" Lalu