一段asp代码，高手帮忙解释下，详细点，谢谢！

函数功能：

检测参数Str1是否为数字。

注释：

function checkID(str1)
'定义四个变量
dim isOK,ch,checkOK,i
'这个IF语句块是判断Str1是否为空,为空则立即退出函数返回值为False
if trim(str1) = "" then
checkID = False
exit function
end if
'默认情况下为True即返回"Str1是数字"为真
isOK = True
'只能是0-9
checkOK = "0123456789"
'一个for循环客串中Str1的每一个字符是否为数字
For i = 1 to len(str1)
'取出Str1中第i个字符
ch = Mid(str1, i, 1)
'判断取出的字符是不是在0-9中,InStr返回0表示不在,执行if语句块
If (InStr(checkOK, ch) = 0) Then
'将返回值设为False
isOK = False
'并提前退出For循环,因为既然已经有一个字符不是数字了,没必要再判断后面的字符,可以直接退出并返回False
Exit For
End If
Next
'将checkID赋值给函数返回值isOK
checkID = isOK
end function

楼上解释的确实不错，顶一个。