如和判断输入为整数？

[taylermail]

<script LANGUAGE="VBScript">
function f1_onsubmit()
Set theForm =f1
if theform.textfield.value ="" or not isnumeric(theform.textfield.value) then
msgbox "管径大小必须是整数!"
theform.textfield.focus()
f1_onsubmit = False
Exit Function
if theform.textfield.value<> int(theform.textfield.value) then
msgbox "管径大小必须是整数!"
end if
theform.textfield.focus()
f1_onsubmit=false
exit function
end if
End Function
</script>

当在文本框中输入12.qq 弹出消息框；当输入12.11时没进行判断，该如何改啊

[angelheavens]

http://www.blzx.net.cn/pweb/tweb/lzd/vbhs/QQExp027.html

[junstyle]

isnumeric()判断一下