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

 1   
 2rem 检查sql字符串中是否有单引号，有则进行转化   
 3function CheckStr(str)   
 4dim tstr,l,i,ch   
 5l=len(str)   
 6for i=1 to l   
 7ch=mid(str,i,1)   
 8if ch="'" then   
 9tstr=tstr+"'"   
10end if   
11tstr=tstr+ch   
12next   
13CheckStr=tstr   
14end function