'*********************************************************
اسم الوظيفة: Joinchar
الوظيفة: إضافة إلى العنوان؟ أو&
'المعلمات: strurl ----- موقع الويب
"قيمة الإرجاع: أضيفت؟ أو & url
'*********************************************************
وظيفة JOINCHAR (Strurl)
ifstrurl = "" ثم
Joinchar = ""
exitfunction
Endif
ifinstr (strurl ، "؟") <len (strurl) ثم
ifinstr (strurl ، "؟")> 1th
ifinstr (strurl ، "&") <len (strurl) ثم
Joinchar = Strurl & "&"
آخر
Joinchar = Strurl
Endif
آخر
Joinchar = Strurl & "؟"
Endif
آخر
Joinchar = Strurl
Endif
الوظيفية