powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Простой код на VBScript не выполняется
2 сообщений из 2, страница 1 из 1
Простой код на VBScript не выполняется
    #32792872
Andrey Sk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пытаюсь выполнить такую страничку примера из книги и получаю ответ от браузера
требуется объект frm
Подскажите - что не так?
Код: 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.
41.
42.
43.
44.
45.
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>Form</title>
<script language="vbscript">
Dim frml 

Sub Window_OnLoad
	Set frm = Document.MyForm
End Sub

Function IsFieldNumeric(field)
	If Not IsNumeric(field.value) Then
		field.focus
		IsFieldNumeric = False
	Else
		IsFieldNumeric = True
	End If
End Function

Function MyForm_OnSubmit
	Set ChkField = frm.price
	If Not IsFieldNumeric(ChkField) Then
	Alert "Entry must be numeric - Submit Canceled"
		MyForm_OnSubmit = False
		Exit Function
	End If
	MyForm_OnSubmit = True
End Function
</script>
</head>
<BODY> 
<form action="myhandle.asp" method="post" name="MyForm">
<table border="1" width="100%">
	<tr>
		<td>Price <font color=red>*</font></td>
		<td><input type="text" name="Price"></td>
	</tr>
</table>

<input type="submit" value="submit">

</form>
</body>
</html>
...
Рейтинг: 0 / 0
Простой код на VBScript не выполняется
    #32792966
дино
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Set frm = New Document.MyForm
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Простой код на VBScript не выполняется
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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