% Function CheckStrcn2(byVal Str) if IsNull(Str)=true then Exit Function Dim i,StrAsc,tempStr,perStr tempStr="" for i =1 to len(Str) perStr=Mid(Str,i,1) StrAsc=Asc(perStr) if StrAsc < 65 or StrAsc> 122 or (StrAsc > 90 and StrAsc< 97) then tempStr=tempStr&perStr end if next CheckStrcn2=tempStr End Function %>
|
||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||