'*******************************************************
'Имя функции: JoinChar
'Функция: добавить к адресу? или&
'Параметры: Strurl ----- Веб-сайт
'Возвращение: добавлено? или и URL
'*******************************************************
functionjoinchar (strurl)
ifstrurl = "" Затем
JOINCHAR = ""
Выходная функция
эндиф
Ifinstr (Strurl, "?") <Len (Strurl) Then
Ifinstr (Strurl, "?")> 1then
Ifinstr (Strurl, "&") <Len (Strurl) Then
JOINCHAR = Strurl & "&"
Еще
JOINCHAR = Strurl
эндиф
Еще
JOINCHAR = Strurl & "?"
эндиф
Еще
JOINCHAR = Strurl
эндиф
конечная функция