[此贴子已经被作者于2006-6-23 11:16:27编辑过]
<% Dim Test Test="123" On Error Resume Next IF VarType(Cint(Test))<>2 Then Response.Write "是整数数字" Else Response.Write "非整数或非数字" End IF
%>