检测字符串中是否包含有除字母、数字、下划线以外的字符

'Begin--------------------------------------------------------------------------------------------------------------------------
'检测字符串中是否包含有除字母、数字、下划线以外的字符。
sub CheckStringIsValid(OriginalString)
 ValidText="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"
 ValidFlag=true
 SourceText=OriginalString

 for i=1 to len(SourceText)
  TestText=mid(SourceText,i,1)

  if InStr(ValidText,TestText)<=0 then
   ValidFlag=false
   exit for
  end if

 next

 if ValidFlag then
  'response.write "正确"
 else
  response.write "警告：非法的数据！"
  response.end
 end if

end sub
'End----------------------------------------------------------------------------------------------------------------------------