мне сложно ответить. Не нашёл нигде подробной инфы. Скажу так - надо тестить ) Методом экспериментов найдём ответ.

Объясню :

1) Ваш ответ выше говорит , что Вы не поняли моего вопроса от 2010-11-01 18:41:55.  Там я не спрашивал - КАК делать url-кодирование некоей процедурой, а спрашивал - в какой кодировке на ее вход должны поступать данные для url-кодирования (или точнее %-кодирования).

2) НА вход Вашей  UrlEncode поступает, как известно, строка типа WindowsUnicode1 (т.е. подмножество <=&#xFFFF;  Utf16 от текущей выполняющейся Windows)

Далее в UrlEncode она посимвольно  анализируется на допустимые символы - и возражений нет, когда выявленные т.о. допустимые символы Вы НЕ %-кодируете, а без изменения отправляете в результирующую строку (которая , конечно тоже WindowsUnicode1 типа).

Остальные символы Вашей исходной строки посимвольно  AnsiCode=Asc(Mid(Text, i, 1)) Преобразовываются в ANSI (т.е. windows-1251 по нашенски если) после чего этот Ansi код %-кодируется и обратно преобразовывается в WindowsUnicode1: "%"+Hex(AnsiCode).

В итоге на выходе имеем WindowsUnicode1 строку, состоящую из разрешенных символов и %hh-кодов. Теперь далее - эта строка при отправке методом send объекта MSXML2.XMLHTTP превращается в байты посылаемого URL, из которых каждый соотвествует одному символу url-кодированной строки
Пример :

wЮ  - UrlEncode("wЮ") ->  w%DE

Сервер примет эти 4 байта w%DE и  :
прежде всего их %-раскодирует(для этого процесса не надо знать ничего о кодировках) - получит 2 байта с кодами 77hex и DEhex и вот уже после :
ЕСЛИ ОН ЗНАЕТ что эти два байта в кодировке Windows-1251, то правильно их превратит в wЮ своей внутренней кодировки  и далее использует полученные данные для того , чтобы, скажем, найти путь к каталогу с файлами /wЮ/тар-тата/та-та.
А Если сервер не о windows-1251, а думает , скажем , что это пришло в UTF-8 кодировке, то в этом случае он после %-декодирования превратит коды 77hex и DEhex -> в один только w (т.к. после первого корректно превращенного байта в w он встретит DEhex байт , не имеющий в UTF-8 корректного символа) и соответственно при построении пути будет вместо нужного

/wЮ/тар-тата/та-та использовать /w/тар-тата/та-та.

Т.о. вывод :
Нужно учитывать (как - вопрос отдельный) то в какой кодировке данные принимаютсмя сервером и соответсвенно поступают на вход процедуры url-кодирования, которая в этом случае, конечно, сильно усложняется, вот если сервер хочет , чтобы это была UTF-8 , то - пожалйста, для этого можно использовать encodeURIComponent от JScript, но если он хочет koi-8, и более ничего , то тогда Ваша процедура не должна сработать, как и , впрочем, encodeURIComponent - нужна такая url-кодирования, которая бы учитывала кодировку, которую хочет сервер.
Вот собственно об этом я и справшивал в предыдущем своем посте - как понять , на какую кодировку следует рассчитвать в процедуре делающую url-кодирование , т.е. - как определить эту кодировку?

Function UrlEncode(Text)
    Dim i, char
    For i = 1 To Len(Text)
        char = Mid(Text, i, 1)
        If InStr(1, "0123456789abcdefghijklmnopqrstuvwxyz", char, 1) = 0 Then char = "%" & Hex(Asc(char))
        UrlEncode = UrlEncode & char
    Next
End Function

или если с учётом особенности кодировки пробела, то

Function UrlEncode(Text)
    Dim i, char
    For i = 1 To Len(Text)
        char = Mid(Text, i, 1)
        If InStr(1, "0123456789abcdefghijklmnopqrstuvwxyz", char, 1) = 0 Then 
            if char = " " Then 
                char = "+" 
            Else
                char = "%" & Hex(Asc(char))
            End if
        End if
        UrlEncode = UrlEncode & char
    Next
End Function

Не могу понять, отчего в примере ниже не работает encodeURIComponent , а работает двухцифровая %HH  URLкодировка :
' Вход на форум под логин/пароль ЮраДеточкин/123

var R = new XMLHttpRequest
R.Open ("POST", "http://yarportal.ru/index.html?act=Login&CODE=01", True)
R.setRequestHeader ("Content-Type", "application/x-www-form-urlencoded")
R.send ("referer=http%3A%2F%2Fyarportal.ru%2Findex.html%3F&UserName=" +
        EncodeURLComponent("ЮраДеточкин") + "&PassWord=123&CookieDate=1")

Этот код НЕ СРАБОТАЕТ !

Но если вместо EncodeURLComponent("ЮраДеточкин") использовать  двухцифровую %HH  URLкодировку %DE%F0%E0%C4%E5%F2%EE%F7%EA%E8%ED ,
то сработает.
Может кто-ни ответить - почему ?

Та же история на yandex, наверно и в др.местах ...

Давайте Вы не будете путать своими неопределенными вопросами и кратко и четко сформулируете Вашу проблему.

Неопределенно - это Вы изъясняетесь.
Куда уж проще объяснить - см. мой предыдущий пост, уже n-ный раз пытаюсь спросить : какую из приведенных двух функций будет правильно использовать для URL кодирования запросов , отравляемых при GET отправке формы (ну или  см. WebFormClass v.3.0. из первого поста - он взят, как конкретный пример) ?

У меня тоже. Иной раз и с Links приходится отправлять . Ничего, ручками.

Я не требую от Вас оформлять ссылку по полному заголовку (как я сделал в здесь), но обрамлять ссылку тэгом «url» считаю делом обязательным.

Public Function EncodeURLComponentUtf8(ByVal Data) 
Dim CharPosition, CharCode, oScript
Set oScript = CreateObject("ScriptControl") ' New MSScriptControl.ScriptControl
oScript.Language = "JavaScript"
EncodeURLComponentUtf8 = ""
'Data = Replace(Data, "&", "&") ' - это НЕ НУЖНО ?!
EncodeURLComponentUtf8 = oScript.Eval("this").EncodeURIcomponent(Data)
End Function

Public Function EncodeURLComponentAsc(ByVal Data) '
Dim CharPosition, CharCode
EncodeURLComponentAsc = ""
For CharPosition = 1 To Len(Data)           ' RFC 1738 dec1994 - еще нельзя было не US-ASCII в URL использовать
 CharCode = Asc(Mid(Data, CharPosition, 1)) ' <= 127 должно быть
 ' Для " " можно и "+" и %20
 Select Case CharCode                       ' http://www.blooberry.com/indexdot/html/topics/urlencoding.htm
 'Case Is <= 127 ' совпадение со строчкой ниже, кроме ~ 126 %7E
 ' EncodeURLComponentAsc = EncodeURLComponentAsc & oScript.Eval("encodeURIComponent(String.fromCharCode(" & CharCode & "))")
 Case Is <= 32, 34 To 38, 43, 44, 47, 58 To 64, 91 To 94, 96, Is >= 123
  EncodeURLComponentAsc = EncodeURLComponentAsc & "%" & Right("0" & Hex(CharCode), 2)
 Case Else
  EncodeURLComponentAsc = EncodeURLComponentAsc & Chr(CharCode)
 End Select
Next
End Function

Вот если бы Вы объяcнили , какую существенную разницу Вы имеете ввиду, тогда это было значимым высказыванием.

Давайте по порядку. Если Вам необходимо передать несколько параметров, например, строка1, число10, строка2 и их соответствующие значения "длинная строка", 10, "строчка", то Вы должны сформировать строку запроса:

encodeURIComponent("строка1") & "=" & encodeURIComponent("длинная строка") & _
"&" & _
encodeURIComponent("число10") & "=" & encodeURIComponent("10") & _
"&" & _
encodeURIComponent("строка2") & "=" & encodeURIComponent("строчка")

Непонятно, как Вы считаете нужно URLкодировать ? Я еще в первом посте привел ДВА способа, о каком говорите Вы - фиг поймешь, нельзя ясно изъясняться ?
2).

Что значит "не имеет", какие Вы имеете ввиду VBS cредства ? Изъясняйтесь яснее. Я же приводил два подхода ...

Используйте нативные, документированные средства кодирования и будьте спокойны - современные серверы умеют обрабатывать нелатинские символы.

Амперсанд к данному RFC отношения не имеет -- его кодирование задокументировано в других документах - http://www.w3.org/MarkUp/html-spec/html … l#SEC9.7.1. Этот символ иммет особое значение (используется для представления сущностей) поэтому для корректного представления самого символа используется его сущность &amp;. Вы ни проиграете, и не выиграете, используя сущность вместо самого символа, и наоборот. Однако подстановка сущности будет правильнее.

Я так полагаю, VBScript не имеет своих средств URL-кодирования, коли Вы используете jscript-"инъекции"?

PS . За set this=oScript.Eval("this") спасибо, тогда использование encodeURIComponent можно упростить:

Function URLEncode(Data)
Set oScript = CreateObject("ScriptControl") ' New MSScriptControl.ScriptControl
oScript.Language = "JavaScript"
Set this = oScript.Eval("this")
URLEncode = this.encodeURIComponent(Data)
End Function