检查是否含有特殊字符

'**************************检查是否含有特殊字符************************
function checkStr2(str)

for i=1 to len(str)
  if (asc(mid(str,i,1))>=48 and asc(mid(str,i,1))=<57) or (asc(mid(str,i,1))>=65 and asc(mid(str,i,1))=<90) or (asc(mid(str,i,1))>=97 and asc(mid(str,i,1))=<122) then
...