Работа с полями ввода.
<HTML>
<HEAD>
<SCRIPT LANGUAGE="VBScript">
Sub TestB1_OnClick
Document.TestForm.TestTA.Value =Document.TestForm.TestTA.Value + _
Document.TestForm.TestT1.Value
Document.TestForm.TestT1.Value = ""
End Sub
Sub TestB2_OnClick
Document.TestForm.TestTA.Value = Document.TestForm.TestTA.Value + _
chr(13) + chr(10)
End Sub
Sub TestB3_OnClick
Document.TestForm.TestTA.Select
End Sub
Sub TestT2_OnChange
Document.TestForm.TestTA.Value = Document.TestForm.TestTA.Value + _
Document.TestForm.TestT2.Value
Document.TestForm.TeatT2.Value = ""
End Sub
</SCRIPT>
</HEAD>
<BODY BGCOLOR="white">
<FORM NAME="TestForm"> <P ALIGN= "center">
<TEXTAREA ROWS="10" COLS="30" NAME="TestTA">
</TEXTAREA>
</P>
<P ALIGN="center">
<INPUT TYPE="text" NAME="TestT1">
<FONT COLOR="Blue" SIZE="3">
<STRONG>Текстовое поле</STRONG></FONT><BR>
<INPUT TYPE="password" NAME="TestT2">
<FONT COLOR="Blue" SIZE="3">
<STRONG>Скрытое поле
(пароль)</STRONG> </FONT> <BR>
</P>
<P ALIGN="center">
<INPUT TYPE="button" NAME="TestB1"
Value="Добавьте в текстовую область текст">
<INPUT TYPE="button" NAME="TestB2" Value="Новая строка">
<INPUT TYPE="button" NAME="TestB3" Value="Выделите текстовую область">
</P>
</FORM>
</BODY>
</HTML>
Рис. 15. Работа с полями ввода
