检查sql字符串中是否有单引号,有则进行转化.

领测软件测试网 <%
   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
%>

文章来源于领测软件测试网 https://www.ltesting.net/