<html>
<body>
<script language="vbscript">
<!--
Sub click_sub
If IsNumeric(document.all.txt1.value) Then
msgbox "数値です"
Else
msgbox "数値ではありません"
End If
End Sub
-->
</script>
<input type="text" id=txt1 value="1234">
<input type="button" value="チェック" onclick="click_sub">
</body>
</html>
|