function strreplace(str)
 if str = "" then
  strreplace = str
 else
  strreplace = replace(str,"'","''")
 end if
end function
檢測(cè)數(shù)字函數(shù)
function check_num(str)
   dim i
   For i = 1 To Len(str)
  
     if  Asc(Mid(str, i, 1)) < 48  or   Asc(Mid(str, i, 1)) > 57 then
          check_num=false
    exit function
     else
       check_num=true
     end if
   Next
end function

function cutstr(str,st