智能化检查输入是否都是垃圾字符

'函数名： IsInput
'参 数： ---str检查的字符 ---stepNum检索的字符长度 ---count出现的次数
返回值： True or False
'功 能：智能化检查输入是否都是垃圾字符

Function IsInput(str,stepNum,Count)
Dim i
Dim iCount
iCount=0
IsInput=False
For i=2 to Len(str)-stepNum
 If Mid(str,i-1,stepNum)=Mid(str,i,stepNum) Then
  iCount=iCount+1
  response.Write(iCount&"<br>")
 End If
 If iCount=Count Then
  IsInput=True
  Exit Function
 End If
Next
End Function