'=======================================================================================
'함수 이름 : PELITITEURL
'기능 : 상대 주소를 절대 주소로 변환합니다
'Parameters: PrimitiveUrl--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'매개 변수 : ConsultUrl -------- 현재 웹 주소
'=======================================================================================
functionDefiniteUrl (byvalprimitieturl, byvalconsulturl)
DIMCONTEMP, PRITEMP, PI, CI, PRIARRAY, CONARRAY
ifprimitiveUrl = ""OrconSultUrl = ""orprimitiveUrl = "$ false $"OrconSultUrl = "$ false $"
decomiteUrl = "$ false $"
종료 기능
endif
ifleft (lcase (Consulturl), 7) <> "http : //"
ConsultUrl = "http : //"& Consulturl
endif
ConsultUrl = Replace (Consulturl, "/", "/")
ConsultUrl = Replace (ConsultUrl, ": //", ": //")
primitiveUrl = replace (primitiveUrl, "/", "/")
ifright (Consulturl, 1) <> "/"그런 다음
ifinstr (Consulturl, "/")> 0then
ifinstr (right (Consulturl, Len (ConsultUrl)-Instrev (ConsultUrl, "/")), ",.")> 0then
또 다른
ConsultUrl = ConsultUrl & "/"
endif
또 다른
ConsultUrl = ConsultUrl & "/"
endif
endif
conarray = split (Consulturl, "/")
ifleft (lcase (primitiveurl), 7) = "http : //"
decomeUrl = replace (primitiveUrl, ": //", ": //")
elseifleft (primitiveurl, 1) = "/"그런 다음
ConveliteUrl = conarray (0) & primitiveUrl
elseifleft (PrimitiveUrl, 2) = "./"그런 다음
PrimitiveUrl = Right (PrimitiveUrl, Len (PrimitiveUrl) -2)
ifright (Consulturl, 1) = "/"그런 다음
Consulturl & PrimitiveUrl
또 다른
leftiteUrl = Left (ConsultUrl, Instrev (ConsultUrl, "/")) 및 PrimitiveUrl
endif
elseifleft (primitiveurl, 3) = "../"그런 다음