半角数字チェック

使い方

if Chk_Num(1234) then flag=true
返り値:boolean

number : 数値

IsNumericだと全角数字も数値として扱うのでだめ

<%
Function Chk_Num(number)

Chk_Num = True
ChkStr = "0123456789"

For cnt = 1 To Len(number)
 Str1Chara = Mid(number, cnt, 1)

 If InStr(ChkStr, Str1Chara) = 0 Then
  Chk_Num = False
  Exit For
 End If

Next

End Function
%>