《asp网页设计》作者沈才梁源代码,共十章

				
				If语句的使用 
				请输入一个 1 到 10 之间的数字：
				
				
				
				Sub S1_OnClick()
				  If IsNumeric(T1.Value) Then
				    If T1.Value < 1 Or T1.Value > 10 Then
				      MsgBox "请输入一个 1 到 10 之间的数字。"
				    Else
				      MsgBox "谢谢!"
				    End If
				  Else
				    MsgBox "请输入一个数字。"
				  End If
				End Sub