![]() |
|
|
![]()
|
|
| Sandris |
|
|||
![]() Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 21.8.2003 Репутация: нет Всего: нет |
Как отправить данные со страницы и переменную из клиентского скрипта в ASP, не перезагружая страницу, все "submit()" её перезагружают! Помогите, плз.!
В кратце - это игра "Бинго". На серваке - ASP, у клаентов - Javascript'ы. Кто-то из клаентов хочет остановить игру, нажимая кнопку "Бинго!!!" Я должна отправить переменную - на каком по счету шарике он остановил игру и собственно "стоп-флаг". Сервер остановит выпвдение шариков у всех и "пойдет проверить..." - это понятно, как. А вот с отправкой - дело туго! |
|||
|
||||
| zckernel |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 19 Регистрация: 25.8.2003 Репутация: нет Всего: нет |
Ну чтож, можно поразмыслить....
Есть метод, но он будет работать только под IE. InternetExplorer.Application - объект может тебе помочь. Вызываешь страницу на которой и делаешь останов. Далее пример как юзать объект '----------------------- <% Dim objIE Set objIE=CreateObject("InternetExplorer.Application") objIE.Visible=True objIE.Silent=False objIE.Navigate "http://www.rbc.ru/" Response.Write "Get info from http://www.rbc.ru/" 'Цикл до тех пор пока идет загрузка данных While CBool(objIE.Busy) Response.Write "." Wend 'Response.Write "receive, parsing..." 'Response.end Dim objDoc Set objDoc=objIE.Document 'это то что в клиентском JS называется window.document 'WScript.Echo objDoc.body.innerHTML 'получить HTML-код тега BODY можно так... Dim a 'объектная переменная для ссылки на элемент анкор (<A>) Response.write "<br>beg_parse" For Each a In objDoc.all.tags("A") 'перебираем все элементы (теги) <A> в коллекции If InStr(1, a.href, "EUR_USD.rus.shtml") Then 'если у ссылки в href= есть ссылка на данный файл 'Получаем родительсую TR и все ее TD-шки 'но помните, что все в нашем мире меняется :-) Dim TDs Set TDs=a.parentElement.parentElement.childNodes Response.Write TDs(1).innerText & " on " & TDs(2).innerText & _ " spros: " & TDs(3).innerText & " predl. " & TDs(4).innerText End If Next Response.write "<br>end_parse" objIE.Quit Set objIE=Nothing 'Выходим из приложения и очищаем память %> |
|||
|
||||
| Sandris |
|
|||
![]() Новичок Профиль Группа: Участник Сообщений: 10 Регистрация: 21.8.2003 Репутация: нет Всего: нет |
Спасибо, надо поразмыслить над этим...
|
|||
|
||||
![]()
|
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | ASP | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |