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

var alimama_pid="mm_10474132_546401_835202";
var alimama_titlecolor="0000FF";
var alimama_descolor ="000000";
var alimama_bgcolor="FFFFFF";
var alimama_bordercolor="E6E6E6";
var alimama_linkcolor="008000";
var alimama_bottomcolor="FFFFFF";
var alimama_anglesize="0";
var alimama_bgpic="0";
var alimama_icon="0";
var alimama_sizecode="12";
var alimama_width=468;
var alimama_height=60;
var alimama_type=2;
<%

检查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

%>