VBScript     . - 3GL   - 4GL   DB-

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 .

  VBScript     . - 3GL   - 4GL   DB-


, , Encapsulation - .In - + Capsula - , - - . , .




 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 -> - _.
Bourabai Research -  XXI Bourabai Research Institution