| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > ASP > Как отправить данные в ASP, не перезагружая страни |
| Автор: Sandris 25.8.2003, 10:06 |
| Как отправить данные со страницы и переменную из клиентского скрипта в ASP, не перезагружая страницу, все "submit()" её перезагружают! Помогите, плз.! В кратце - это игра "Бинго". На серваке - ASP, у клаентов - Javascript'ы. Кто-то из клаентов хочет остановить игру, нажимая кнопку "Бинго!!!" Я должна отправить переменную - на каком по счету шарике он остановил игру и собственно "стоп-флаг". Сервер остановит выпвдение шариков у всех и "пойдет проверить..." - это понятно, как. А вот с отправкой - дело туго! |
| Автор: zckernel 25.8.2003, 18:20 |
| Ну чтож, можно поразмыслить.... Есть метод, но он будет работать только под 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 26.8.2003, 08:17 |
| Спасибо, надо поразмыслить над этим... |