web- VBScript
VBScript
VBScript . - .
. - .
, VBScript, Value . , . , . Document, -. , Document . , , , :
Document.ValidForm.Text1, TheForm . , , Set, TheForm:
set TheForm = Document.ValidForm-:
<html>
<head><title> </title>
<SCRIPT LANGUAGE="VBScript">
<!--
sub Button1_OnClick
dim TheForm
set TheForm = Document.ValidForm
if IsNumeric(TheForm.Text1.Value) then
if TheForm.Text1.Value < 1 or TheForm.Text1.Value > 10 then
MsgBox " 1 10"
else
MsgBox ""
end if
else
MsgBox " "
end if
end sub
-->
</SCRIPT>
</head>
<body>
<h3> </h3><hr>
<form NAME="ValidForm">
1 10:
<input NAME="Text1" TYPE="TEXT" SIZE="2">
<input NAME="Button1" TYPE="BUTTON" VALUE="">
</form>
</body>
</html>
. IsNumeric, TRUE, . , FALSE. . , < >.
, VBScript , .
, + () , . , Text1 1, Text2 2, :
A = Text1.Value + Text2.Value ' A "12" A = CDbl(Text1.Value) + Text2.Value ' A 3
. Submit, , . Submit , . ( ), :
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button2_OnClick
Dim TheForm
Set TheForm = Document.ValidForm
If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value < 1 Or TheForm.Text1.Value > 10 Then
MsgBox " 1 10"
Else
MsgBox ""
TheForm.Submit ' , .
End If
Else
MsgBox " "
End If
End Sub
-->
</SCRIPT>
Submit Form.
. Submit
Internet Explorer Scripting Object Model.
Microsoft
(http://www.microsoft.com).
HTML <FORM>. Internet Explorer ActiveX ( OLE) Java .
, - , . , .
 | 10.11.2021 - 12:37: - Personalias -> WHO IS WHO - - _. 10.11.2021 - 12:36: - Conscience -> . ? - _. 10.11.2021 - 12:36: , , - Upbringing, Inlightening, Education -> ... - _. 10.11.2021 - 12:35: - Ecology -> - _. 10.11.2021 - 12:34: , - War, Politics and Science -> - _. 10.11.2021 - 12:34: , - War, Politics and Science -> . - _. 10.11.2021 - 12:34: , , - Upbringing, Inlightening, Education -> , - _. 10.11.2021 - 09:18: - New Technologies -> , 5G- - _. 10.11.2021 - 09:18: - Ecology -> - _. 10.11.2021 - 09:16: - Ecology -> - _. 10.11.2021 - 09:15: , , - Upbringing, Inlightening, Education -> - _. 10.11.2021 - 09:13: , , - Upbringing, Inlightening, Education -> - _. |
|
|
 |