检查sql字符串中是否有单引号,有则进行转化.
发布时间：2006-10-14 2:40:01   收集提供：gaoqian
<%
   rem 检查sql字符串中是否有单引号，有则进行转化
   function CheckStr(str)
       dim tstr,l,i,ch
   l=len(str)
   for i=1 to l
       ch=mid(str,i,1)
       if ch="'" then
      tstr=tstr+"'"
   end if
   tstr=tstr+ch
   next
   CheckStr=tstr
   end function
%>
 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50