半角数字チェック
使い方
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
%>