Как в ASP конвертировать байтовый массив в строку?

[Antonariy]

Нужно конвертировать результат операции Request.BinaryRead(Request.TotalBytes).

[RayShade]

Код: Выделить всё

var byteArray=Request.BinaryRead(Request.TotalBytes);
var myString=new String(byteArray);


?

[Antonariy]

Это если для обработки ASP-страниц использовать js. А через vbs никак?

Ну если никак, придется переписывать...

[RayShade]

Мне что то ничего в голову не приходит про VBScript на эту тему.

[Antonariy]

Все равно не пашет. Код

Код: Выделить всё

Response.AddHeader("pragma", "no-cache");
Response.AddHeader("cache-control", "private");
Response.CacheControl = "no-cache";

var byteArray=Request.BinaryRead(Request.TotalBytes);
var myString=new String(byteArray);
Response.write(myString);

возвращает такое:

Код: Выделить всё

поскипано

<li>???:<br>
Я идиот! Убейте меня, кто-нибудь!? Microsoft JScript (0x800A138D)<br><b>"byteArray" - Я идиот! Убейте меня, кто-нибудь! ??</b><br><b>/test/connect2.asp, line 27</b><br>
</li>

поскипано


line 27 это var myString=new String(byteArray);
Работаю через MSXML2.XMLHTTP, поэтому выяснить, что скрывается за вопросительными знаками, не могу.

[RayShade]

Странные вещи пишут про эту ошибку, 0x800A138D



http://groups.google.com/group/microsof ... 1%26&fwc=1

[RayShade]

И кстати, JS case-sensitive, поэтому не Response.wrie, а Response.Write

[Antonariy]

Байтовый массив собственно содержит строку <root></root>. Отправляю так:

Код: Выделить всё

Public Sub QueryServer(Request As MSXML2.XMLHTTP, Data() As Byte, ErrNumber As Long, ErrDesc As String)
Dim RespStr As String
    On Error GoTo errh:
    Request.open "POST", lAddress, True
    Request.setRequestHeader "Content-Type", "image/gif;"
    Request.send Data
    Exit Sub
errh:
    ErrNumber = Err.Number
    ErrDesc = Err.Description
End Sub

Каким еще образом можно отправить на сервер xml-документ и там загрузить его в DomDocument?

[RayShade]

Отсылать его не как image/gif?

[Gloom]

Код: Выделить всё

lngCount = Request.TotalBytes
If lngCount > 0 Then
   Set Stream = CreateObject("ADODB.Stream")
   Stream.Type = 1 'adTypeBinary
   Stream.Open
   Stream.Write Request.BinaryRead(lngCount)
   Stream.Position = 0
   Stream.Type = 2 'adTypeText
   Stream.Charset = "windows-1251"
   Response.Write Stream.ReadText
End If

[Antonariy]

Gloom
Уже пробовал, не пашет.

ADD: Пробовал без Charset. Вот где собака порылась...

RayShade
А как? И как его потом выдрать из Response? Там же только BinaryRead.

[ALX_2002]

В pure asp upload и в motobit компоненте есть пример решения без спец компонен.

А я делал проще. Через StrConv с vbUnicode

[Antonariy]

В vbscript нет StrConv

[ALX_2002]

2 Antonariy:

В vbscript нет StrConv

Дык а я о чём !

В pure asp upload и в motobit компоненте есть пример решения без спец компонен.

А я делал проще. Через StrConv с vbUnicode

Аааа... Виноват, не развёрнуто написал ответ. Имелось в виду, что те компоненты, которые я описал выше как раз не используют сторонних DLL, а я как раз решил не париться и сделать свою компоненту с StrConv

[Antonariy]

По условиям задачи левых компонент быть не должно.