проблема с IServerXMLHTTPRequest/ServerXMLHTTP

@evgenia13 · Регистрация: 11.09.2008

Студворк — интернет-сервис помощи студентам

пожалуйста, скажите, можно ли с помощью
IServerXMLHTTPRequest/ServerXMLHTTP (msxml4):

- читать несколько заголовков с одинаковыми именами (т.е. несколько
значений Set-Cookie)
- создавать запросы (методом POST) с указанием нескольких параметров (например, параметры авторизации, значения элементов форм, несколько значений Cookie)

если можно, то как? (пожалуйста, не отсылайте меня к msdn, там я ответов не нашла)

если возможно, то хотелось бы увидеть примеры (на vbscript)

14.09.2008, 17:50

Может пригодится (будут вопросы - пиши):
Вот мой не 'мигающий' чат (сырой местами) на основе объекта XMLHTTP, причем, заставил ентот объект понимать кириллицу (грубо, но работает).
---------------------------------------------
Вот main.htm:
-----------------------------------------------------
<html><body><input type='text' id='nm' value='your name'>

<input type='text' id='txt' style='width:500' value='write here'>
<input name='snd' type='button' onclick='send()' value='send!'><hr>
<div id='dv'></div>
<script language='vbscript'>
dim hh, kk, zz, dd, i, gg, rt, ss
kk=''
set hh=createobject('microsoft.xmlhttp')
sub send()
zz=nm.value & '.' & txt.value
dd=''
for i=1 to len(zz)
ss=''
if asc(mid(zz, i, 1))<10 then
ss='00' & asc(mid(zz, i, 1))
elseif asc(mid(zz, i, 1))<100 then
ss='0' & asc(mid(zz, i, 1))
else
ss=asc(mid(zz, i, 1))
end if
dd=dd & ss & ' '
next
dd=cstr(dd)
hh.open 'post','http://ТвояМашина/zserver.asp', 0
hh.setrequestheader 'qwe', dd
'здесь лепи этих 'headers' сколько хочешь, в целевом аспе их
'поднимишь
hh.send
txt.focus()
txt.value=''
end sub
call ht()
sub ht()
hh.open 'post','http://ТвояМашина/zserver.asp', 0
hh.send
gg=''
rt=hh.responsetext
for i=1 to len(rt)/4
gg=gg & chr(cbyte(mid(rt, 4*i-3, 3)))
next
if gg<>kk then
dv.innertext=dv.innertext & chr(13) & gg
kk=gg
end if
call window.settimeout('ht',500,'vbscript')
end sub
</script>
</body></html>
---------------------------------------------------------
Вот zserver.asp:
--------------------------------------------------------
<%@ language='vbscript' %>
<%
if request.servervariables('http_qwe')<>'' then
application.lock
application('text')=request.servervariab les('http_qwe')
application.unlock
end if
response.write application('text')
%>
-----------------------------------------------------

16.09.2008, 13:15

Вот, захостил свой чат (с поправками) на
http://user1.7host.com/rattail
Критикуйте, кому интересно.

@kreek · 16.09.2008, 13:21

Мой ишак завис при обращении к твоей паге.
Win98 IE 5.50

16.09.2008, 14:22

У меня тоже зависает, если разорвать соединение с инетом,
когда находишься на этой странице. Т.е., соединения уже нету, а скрипт продолжает выполняться. Сыро ещё это. Но суть же
не в этом.

16.09.2008, 17:52

Ты, паря, прикололся, а я у тебя на поводу пошел.
Всё чудесно работает. Вот так. Скажи, что завидуешь, сам ни
хрена придумать не можешь (а я идею сам придумал), можешь только
из книжек и доки готовые самплы выдирать. Бездарь ты.
Ты бы ещё приписал, что мой скрипт твой винт форматнул.

@kreek · 16.09.2008, 19:08

Спасибо, что хоть чтение книжек и msdn за мной оставил.
А твоя пага как не отвечала, так и не отвечает, ждал 5 минут.
Если начну описывать то, что сам придумал, мне этого вечера не хватит, а в твой код я даже вникать не стал, увидев, как ты называешь переменные. Хватит флейма. Удачи.

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

@evgenia13 0 / 0 / 0 Регистрация: 11.09.2008 Сообщений: 3

	проблема с IServerXMLHTTPRequest/ServerXMLHTTP 11.09.2008, 12:49. Показов 1180. Ответов 6 Метки нет (Все метки) пожалуйста, скажите, можно ли с помощью IServerXMLHTTPRequest/ServerXMLHTTP (msxml4): - читать несколько заголовков с одинаковыми именами (т.е. несколько значений Set-Cookie) - создавать запросы (методом POST) с указанием нескольких параметров (например, параметры авторизации, значения элементов форм, несколько значений Cookie) если можно, то как? (пожалуйста, не отсылайте меня к msdn, там я ответов не нашла) если возможно, то хотелось бы увидеть примеры (на vbscript) 0

Danny
	14.09.2008, 17:50
	Может пригодится (будут вопросы - пиши): Вот мой не 'мигающий' чат (сырой местами) на основе объекта XMLHTTP, причем, заставил ентот объект понимать кириллицу (грубо, но работает). --------------------------------------------- Вот main.htm: ----------------------------------------------------- <html><body><input type='text' id='nm' value='your name'> <input type='text' id='txt' style='width:500' value='write here'> <input name='snd' type='button' onclick='send()' value='send!'><hr> <div id='dv'></div> <script language='vbscript'> dim hh, kk, zz, dd, i, gg, rt, ss kk='' set hh=createobject('microsoft.xmlhttp') sub send() zz=nm.value & '.' & txt.value dd='' for i=1 to len(zz) ss='' if asc(mid(zz, i, 1))<10 then ss='00' & asc(mid(zz, i, 1)) elseif asc(mid(zz, i, 1))<100 then ss='0' & asc(mid(zz, i, 1)) else ss=asc(mid(zz, i, 1)) end if dd=dd & ss & ' ' next dd=cstr(dd) hh.open 'post','http://ТвояМашина/zserver.asp', 0 hh.setrequestheader 'qwe', dd 'здесь лепи этих 'headers' сколько хочешь, в целевом аспе их 'поднимишь hh.send txt.focus() txt.value='' end sub call ht() sub ht() hh.open 'post','http://ТвояМашина/zserver.asp', 0 hh.send gg='' rt=hh.responsetext for i=1 to len(rt)/4 gg=gg & chr(cbyte(mid(rt, 4*i-3, 3))) next if gg<>kk then dv.innertext=dv.innertext & chr(13) & gg kk=gg end if call window.settimeout('ht',500,'vbscript') end sub </script> </body></html> --------------------------------------------------------- Вот zserver.asp: -------------------------------------------------------- <%@ language='vbscript' %> <% if request.servervariables('http_qwe')<>'' then application.lock application('text')=request.servervariab les('http_qwe') application.unlock end if response.write application('text') %> -----------------------------------------------------

Danny
	16.09.2008, 13:15
	Вот, захостил свой чат (с поправками) на http://user1.7host.com/rattail Критикуйте, кому интересно.

@kreek 0 / 0 / 1 Регистрация: 23.01.2008 Сообщений: 251
	16.09.2008, 13:21
	Мой ишак завис при обращении к твоей паге. Win98 IE 5.50 0

Danny
	16.09.2008, 14:22
	У меня тоже зависает, если разорвать соединение с инетом, когда находишься на этой странице. Т.е., соединения уже нету, а скрипт продолжает выполняться. Сыро ещё это. Но суть же не в этом.

Danny
	16.09.2008, 17:52
	Ты, паря, прикололся, а я у тебя на поводу пошел. Всё чудесно работает. Вот так. Скажи, что завидуешь, сам ни хрена придумать не можешь (а я идею сам придумал), можешь только из книжек и доки готовые самплы выдирать. Бездарь ты. Ты бы ещё приписал, что мой скрипт твой винт форматнул.

@kreek 0 / 0 / 1 Регистрация: 23.01.2008 Сообщений: 251
	16.09.2008, 19:08
	Спасибо, что хоть чтение книжек и msdn за мной оставил. А твоя пага как не отвечала, так и не отвечает, ждал 5 минут. Если начну описывать то, что сам придумал, мне этого вечера не хватит, а в твой код я даже вникать не стал, увидев, как ты называешь переменные. Хватит флейма. Удачи. 0