'================================================================
اسم الوظيفة: formatremoteurl
"الوظيفة: تنسيق عنوان URL الكامل للموقع الحالي - تحويل العنوان النسبي إلى العنوان المطلق
'الوسائط: url ---- url string
'المعلمات: Currenturl --- بالطبع عنوان URL لموقع الويب
'قيمة الإرجاع: عنوان URL المنسق
'================================================================
publicfunctionformatremoteurl (byvalurl ، byvalcurrenturl)
Dimstrurl
iflen (url) <2orlen (url)> 255orlen (currenturl) <2then
formatremoteurl = vbnullstring
exitfunction
Endif
CurrentUrl = trim (استبدال (استبدال (استبدال (استبدال (استبدال (Currenturl ، "'" ، vbnullstring) ، "" "، vbnullstring) ، vbnewline ، vbnullstring) ،"/"،" ، "|" ، vbnullstring)))
url = trim (استبدال (استبدال (استبدال (استبدال (استبدال (url (url ، "'" ، vbnullstring) ، "" "" ، vbnullstring) ، vbnewline ، vbnullstring) ، "/" ، "،" | "، vbnullstring))))
ifinstr (9 ، currenturl ، "/") = 0then
strurl = currenturl
آخر
strurl = اليسار (currenturl ، instr (9 ، currenturl ، "/")-1)
Endif
ifstrurl = vbnullStringThinstrurl = currenturl
SelectCaseLeft (Lace (url) ، 6)
الحالة "http:/" ، "https:" ، "ftp: //" ، "rtsp:/" ، "mms: //"
formatremoteurl = url
exitfunction
endselect
ifleft (url ، 1) = "/" ثم
formatremoteurl = strurl & url
exitfunction