>即時新聞-熱門

2008年12月13日星期六

VBSCRIPT - 表單傳值

<HTML>
<HEAD><TITLE>文字傳送</TITLE>
<SCRIPT LANGUAGE="VBScript"> 
<!--
Sub Submit_OnClick
  Dim MYFORM
  Set MYFORM = Document.FORM1
  If IsNumeric(MYFORM.Text1.Value) Then
     MsgBox "這是數字"
     Else
    MsgBox "請輸入數字!"
  End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>簡單的確認</H3><HR>
<FORM NAME="FORM1">
輸入 1 到 10 中的任一值:
<INPUT NAME="Text1" TYPE="TEXT" SIZE="2">
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="傳送">
</FORM>
</BODY>
</HTML>

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱