'================================================================
اسم الوظيفة: محدد
الوظيفة: تحويل العنوان النسبي إلى عنوان مطلق
'المعلمات: Primitiveurl ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'المعلمات: استشارات -------- عنوان الويب الحالي
'================================================================
FunctionDefiniteUrl (byvalprimitiveurl ، byvalconsulturl)
DimContemp ، Pritemp ، PI ، CI ، Priarray ، Conarray
ifprimitiveUrl = "" orconsulturl = "" orprimitiveUrl = "$ false $" orconsulturl = "$ false $" ثم
محدد = "$ false $"
exitfunction
Endif
ifleft (lace (consulturl) ، 7) <> "http: //" ثم
ConsultUrl = "http: //" & consulturl
Endif
Consulturl = استبدال (استشاري ، "/" ، "/")
Consulturl = استبدال (استشاري ، ": //" ، ": //")
البدائي = استبدال (بدائي ، "/" ، "/")
ifright (استشارية ، 1) <> "/" ثم
Ifinstr (استشارية ، "/")> 0then
Ifinstr (يمين (استشاري ، لين (استشاري) -instrrev (استشاري ، "/")) ، "،.". ")> 0then
آخر
Consulturl = Consulturl & "/"
Endif
آخر
Consulturl = Consulturl & "/"
Endif
Endif
conarray = انقسام (استشاري ، "/")
ifleft (lase (primitiveurl) ، 7) = "http: //" ثم
محدد = استبدال (بدائي ، ": //" ، ": //")
elseifleft (primitiveurl ، 1) = "/" ثم
محدد = conarray (0) و PrimitiveUrl
elseifleft (primitiveurl ، 2) = "./" ثم
PRIMITIVERL = يمين (بدائي ، LEN (PRIMITIVERL) -2)
ifright (استشارية ، 1) = "/" ثم
محدد = الاستشارات والبدائية
آخر
محدد = يسار (استشاري ، instrev (استشارية ، "/")) و PrimitiveUrl
Endif
elseifleft (البدائية ، 3) = "../" ثم