Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript в html / 14 сообщений из 14, страница 1 из 1
27.04.2006, 14:43
    #33694644
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Есть код в 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:55
    #33694697
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Код: plaintext
... onclick="Mr('2')">
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2006, 15:02
    #33694726
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Конечный вид должен быть такой:
<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:08
    #33694741
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Что интересно, если после </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, 16:57
    #33695242
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
document.write Mr("192.168.9.251")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 08:45
    #33696231
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Что-то не пойму смысл функции:

Код: 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, 22:56
    #33698689
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Интересно, а как это реализовать для мозиллы, например?
Там конструкция " TD1.innerText " что-то не работает, в свое время ковырялся, ковырялся...
Сделал по-другому и очень громоздко.
Я, правда, JS юзал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2006, 12:25
    #33698934
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Letter_DИнтересно, а как это реализовать для мозиллы, например?
Там конструкция " TD1.innerText " что-то не работает, в свое время ковырялся, ковырялся...
Сделал по-другому и очень громоздко.
Я, правда, JS юзал.

Интересно-интересно, а неужели в мозилле появилась возможность работы с vbs?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.04.2006, 21:43
    #33699336
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Написал же - JS.
Читай - JavaScript.
Собственно, меня интересует innerText .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2006, 14:18
    #33699657
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Для Мозиллы не в курсе. Работаю преимущественно с IE, хотя на работе вроде как стоит Мозилла, посмотрю как-нибудь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2006, 09:23
    #33700846
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
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, 10:03
    #33700915
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Какой браузер? У меня на 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:59
    #33701046
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Обновление страницы должно быть 1 раз в минуту.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.05.2006, 11:09
    #33701074
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript в html
Разобрался:
<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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript в html / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 321ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165944]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 200ms
total:  321ms
x
x
Закрыть


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