ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript в html
14 сообщений из 14, страница 1 из 1
VBScript в html
    #33694644
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
Есть код в html-файле.

<SCRIPT LANGUAGE="VBScript"><!--
Dim Url
Function Mr(Url)
Mr(Url)=1
End function
Function Refresh()
msgbox mr("1")
End Function
</SCRIPT>

Функция Mr(Url) возвращает нужное значение.
Можно ли ее использовать после </SCRIPT>, например:
<tr><td>call Mr("2")</td></tr> или нет?
...
Рейтинг: 0 / 0
27.04.2006, 14:43
| Ответить | Цитировать | Написать  
VBScript в html
    #33694697
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
... onclick="Mr('2')">
...
Рейтинг: 0 / 0
27.04.2006, 14:55
| Ответить | Цитировать | Написать  
VBScript в html
    #33694726
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
Конечный вид должен быть такой:
<SCRIPT LANGUAGE="VBScript">
<!--
Sub window_OnLoad()
window.setTimeout "Refresh", 60000
End Sub
Function Refresh()
window.location.reload (True)
End Function
</SCRIPT>
<p align=center><font size=18>Статистика по скаченной информации<br><br></font><table border=1><tr><td align=center><b>Месяц</b></td><td align=center><b>192.168.9.251</b></td><td align=center><b>192.168.9.77</b></td><td align=center><b>192.168.9.250</b></td><td align=center><b>192.168.9.243</b></td>
<tr><td>Март 2006</td>
<td align=center>18,12</td>
<td align=center>19,72</td>
<td align=center>21,32</td>
<td align=center>5,3</td>
<tr><td>Апрель 2006</td>
<td align=center>101</td>
<td align=center>77,88</td>
<td align=center>36,96</td>
<td align=center>129,91</td>

Но в строке <td align=center>18,12</td> значение 18,12 должно считываться из функции Mr("192.168.9.251")
...
Рейтинг: 0 / 0
27.04.2006, 15:02
| Ответить | Цитировать | Написать  
VBScript в html
    #33694741
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
Что интересно, если после </script> написать:

<table border=1><tr><td>
<SCRIPT LANGUAGE="VBScript">
set fso=createobject("scripting.filesystemobject")
msgbox mr("192.168.9.251")
</script>

то выскочит сообщение со значением функции.
Если вместо msgbox mr("192.168.9.251") писать mr("192.168.9.251") , то ничего в ячейке не выводится.
...
Рейтинг: 0 / 0
27.04.2006, 15:08
| Ответить | Цитировать | Написать  
VBScript в html
    #33695242
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
document.write Mr("192.168.9.251")
...
Рейтинг: 0 / 0
27.04.2006, 16:57
| Ответить | Цитировать | Написать  
VBScript в html
    #33696231
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Что-то не пойму смысл функции:

Код: plaintext
1.
2.
Function Mr(Url)
    Mr(Url) =  1 
End function

Или ты упрощенно привел?

По вопросу. Присвой ячейке ID и задавай свойству "innerText" значение, возвращаемое функцией.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
<HTML>
<HEAD><TITLE>Page  1 </TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Function Mr(Url)
    Mr = Url
End function

Function Refresh()
    TD1.innerText = Mr("1")
End Function
-->
</SCRIPT>
</HEAD>
<BODY onload="Refresh()">
<P ALIGN=CENTER>
<FONT SIZE= 18 >Статистика по скаченной информации<BR><BR></FONT>
<TABLE BORDER= 1 >
  <TR>
    <TD ALIGN=CENTER><B>Месяц</B></TD>
    <TD ALIGN=CENTER><B> 192 . 168 . 9 . 251 </B></TD>
    <TD ALIGN=CENTER><B> 192 . 168 . 9 . 77 </B></TD>
    <TD ALIGN=CENTER><B> 192 . 168 . 9 . 250 </B></TD>
    <TD ALIGN=CENTER><B> 192 . 168 . 9 . 243 </B></TD>
  </TR>
    <TR><TD>Март  2006 </TD>
    <TD ALIGN=CENTER ID="TD1"> 18 , 12 </TD>
    <TD ALIGN=CENTER> 19 , 72 </TD>
    <TD ALIGN=CENTER> 21 , 32 </TD>
    <TD ALIGN=CENTER> 5 , 3 </TD>
  </TR>
  <TR>
    <TD>Апрель  2006 </TD>
    <TD ALIGN=CENTER> 101 </TD>
    <TD ALIGN=CENTER> 77 , 88 </TD>
    <TD ALIGN=CENTER> 36 , 96 </TD>
    <TD ALIGN=CENTER> 129 , 91 </TD>
  </TR>
</TABLE>
</BODY>
</HTML>
...
Рейтинг: 0 / 0
28.04.2006, 08:45
| Ответить | Цитировать | Написать  
VBScript в html
    #33698689
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Интересно, а как это реализовать для мозиллы, например?
Там конструкция " TD1.innerText " что-то не работает, в свое время ковырялся, ковырялся...
Сделал по-другому и очень громоздко.
Я, правда, JS юзал.
...
Рейтинг: 0 / 0
28.04.2006, 22:56
| Ответить | Цитировать | Написать  
VBScript в html
    #33698934
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
Letter_DИнтересно, а как это реализовать для мозиллы, например?
Там конструкция " TD1.innerText " что-то не работает, в свое время ковырялся, ковырялся...
Сделал по-другому и очень громоздко.
Я, правда, JS юзал.

Интересно-интересно, а неужели в мозилле появилась возможность работы с vbs?
...
Рейтинг: 0 / 0
29.04.2006, 12:25
| Ответить | Цитировать | Написать  
VBScript в html
    #33699336
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Написал же - JS.
Читай - JavaScript.
Собственно, меня интересует innerText .
...
Рейтинг: 0 / 0
29.04.2006, 21:43
| Ответить | Цитировать | Написать  
VBScript в html
    #33699657
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Для Мозиллы не в курсе. Работаю преимущественно с IE, хотя на работе вроде как стоит Мозилла, посмотрю как-нибудь.
...
Рейтинг: 0 / 0
30.04.2006, 14:18
| Ответить | Цитировать | Написать  
VBScript в html
    #33700846
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
Function Mr(Url)
Mr(Url) = 1
End function - это упрощенно.

document.write Mr("192.168.9.251")
TD1.innerText = Mr("1")

Это не пашет. В первом случае пишется строка кода вместо значения, во втором - ошибка Mr.
...
Рейтинг: 0 / 0
02.05.2006, 09:23
| Ответить | Цитировать | Написать  
VBScript в html
    #33700915
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Какой браузер? У меня на IE 6 все нормально отрабатывает.

Попробуй немного изменить.

Код: plaintext
1.
2.
3.
4.
5.
Function Refresh()
    Dim objEl

    Set objEl = document.getElementById("TD1")
    objEl.innerText = Mr("1")
End Function
...
Рейтинг: 0 / 0
02.05.2006, 10:03
| Ответить | Цитировать | Написать  
VBScript в html
    #33701046
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
Обновление страницы должно быть 1 раз в минуту.
...
Рейтинг: 0 / 0
02.05.2006, 10:59
| Ответить | Цитировать | Написать  
VBScript в html
    #33701074
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
Разобрался:
<HTML>
<HEAD><TITLE>Page 1</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Function Mr(Url)
Mr = Url
End function
Function Refresh()
Dim objEl
Set objEl = document.getElementById("TD1")
objEl.innerText = Mr(Time)
window.setTimeout "Refresh", 3000
window.location.reload (True)
End Function
-->
</SCRIPT>
</HEAD>
<BODY onload=refresh>
<P ALIGN=CENTER>
<FONT SIZE=18>Статистика по скаченной информации<BR><BR></FONT>
<TABLE BORDER=1>
<TR>
<TD ALIGN=CENTER><B>Месяц</B></TD>
<TD ALIGN=CENTER><B>192.168.9.251</B></TD>
<TD ALIGN=CENTER><B>192.168.9.77</B></TD>
<TD ALIGN=CENTER><B>192.168.9.250</B></TD>
<TD ALIGN=CENTER><B>192.168.9.243</B></TD>
</TR>
<TR><TD>Март 2006</TD>
<TD ALIGN=CENTER ID="TD1"></TD>
<TD ALIGN=CENTER>19,72</TD>
<TD ALIGN=CENTER>21,32</TD>
<TD ALIGN=CENTER>5,3</TD>
</TR>
<TR>
<TD>Апрель 2006</TD>
<TD ALIGN=CENTER>101</TD>
<TD ALIGN=CENTER>77,88</TD>
<TD ALIGN=CENTER>36,96</TD>
<TD ALIGN=CENTER>129,91</TD>
</TR>
</TABLE>
</BODY>
</HTML>
...
Рейтинг: 0 / 0
02.05.2006, 11:09
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript в html
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=282&tid=2165944]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 209ms
total:  335ms
созд. / загр.: 335ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]