深圳网站建设技术博客

'**************************检查是否含有特殊字符************************
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
    checkStr2=true
  else
    checkStr2=false
    exit for
  end if
next

end function

如果str里含有特殊字符则返回结果为true