Кодировка + Jscript

[23i]

Кодировка + Jscript

Пару дней назад здесь обсуждал вопрос подгружаемых списков. Решение тогда нашлось, сделал мне необходимую обертку к ним и батс - бъётся кодировка - т.е. русский ен воспроизводится првильно, с латиницей же всё ок.
Все посроено вокруг -

var xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");

вот этой вот строчки jscript кода.
что тут можно прдпринять чтобы текст был читаемый?

 

[23i]

выяснилось что Microsoft.XMLHTTP возврашает русский текст в виде UTF-8, теперь вопрос, как его преобразовать в win или koi

 

[fixxxer]

ну в крутых майкрософтовских джаваскриптах наверняка что нить такое есть.
с другой стороны, ты можешь выводить всю страницу в UTF-8.
а вообще, я просто хотел сделать замечание, что такой подход - годится только для intranet.

 

[23i]

что такой подход - годится только для intranet.

а у меня и есть интранет система, поэтому я и не парюсь
тут подкинули ф-цию но на vbscript, которое это дело перекодирует

Function RSBinaryToString(xBinary)
    LBinary = LenB(xBinary)
    If LBinary>0 Then
        Dim RS, LBinary
        Const adLongVarChar = 201
        Set RS = CreateObject("ADODB.Recordset")
        RS.Fields.Append "mBinary", adLongVarChar, LBinary
        RS.Open
        RS.AddNew
        RS("mBinary").AppendChunk xBinary
        RS.Update
        RSBinaryToString = RS("mBinary")
        Set RS = Nothing
    Else
        RSBinaryToString = ""
    End If
End Function

вот надо как-нибуть это дело переписать на jscript

сейчас этим и займусь

 

[fixxxer]

Если используешь ActiveX и JScript, то можешь спокойно юзать и VBScript.

 

[23i]

и как это скрестить???

 

[fixxxer]

я msie вообще не юзаю, но насколько я понимаю если объявить <script language="JScript"> то можно вызывать оттуда ф-ции VBScript и наоборот...

 

[Линк]

верно. Можно их скрещивать

<SCRIPT language="VBScript">
sub bo
msgbox "boo"
end sub
</SCRIPT>


<SCRIPT language="JavaScript">
bo();
</SCRIPT>