VBSCRIPT - 表單傳值

＜ＨＴＭＬ＞
＜ＨＥＡＤ＞＜ＴＩＴＬＥ＞文字傳送＜／ＴＩＴＬＥ＞
＜ＳＣＲＩＰＴ　ＬＡＮＧＵＡＧＥ＝＂ＶＢＳｃｒｉｐｔ＂＞　
＜！－－
Ｓｕｂ　Ｓｕｂｍｉｔ＿ＯｎＣｌｉｃｋ
　　Ｄｉｍ　ＭＹＦＯＲＭ
　　Ｓｅｔ　ＭＹＦＯＲＭ　＝　Ｄｏｃｕｍｅｎｔ．ＦＯＲＭ１
　　Ｉｆ　ＩｓＮｕｍｅｒｉｃ（ＭＹＦＯＲＭ．Ｔｅｘｔ１．Ｖａｌｕｅ）　Ｔｈｅｎ
　　　　　ＭｓｇＢｏｘ　＂這是數字＂
　　　　　Ｅｌｓｅ
　　　　ＭｓｇＢｏｘ　＂請輸入數字！＂
　　Ｅｎｄ　Ｉｆ
Ｅｎｄ　Ｓｕｂ
－－＞
＜／ＳＣＲＩＰＴ＞
＜／ＨＥＡＤ＞
＜ＢＯＤＹ＞
＜Ｈ３＞簡單的確認＜／Ｈ３＞＜ＨＲ＞
＜ＦＯＲＭ　ＮＡＭＥ＝＂ＦＯＲＭ１＂＞
輸入　１　到　１０　中的任一值：
＜ＩＮＰＵＴ　ＮＡＭＥ＝＂Ｔｅｘｔ１＂　ＴＹＰＥ＝＂ＴＥＸＴ＂　ＳＩＺＥ＝＂２＂＞
＜ＩＮＰＵＴ　ＮＡＭＥ＝＂Ｓｕｂｍｉｔ＂　ＴＹＰＥ＝＂ＢＵＴＴＯＮ＂　ＶＡＬＵＥ＝＂傳送＂＞
＜／ＦＯＲＭ＞
＜／ＢＯＤＹ＞
＜／ＨＴＭＬ＞