asp 格式化sql中的like字符串

<%

'******************************

'函数：formatQueryStr(str)

'参数：str,SQL语句

'作者：阿里西西

'日期：2007/7/13

'描述：格式化sql中的like字符串

'示例：<%=formatQueryStr(str)%>

'******************************

function formatQueryStr(str) 

 dim nstr

 nstr = str

 nstr = replace(nstr,chr(0),"")

 nstr = replace(nstr,"'","''")

 nstr = replace(nstr,"[","[[]")

 nstr = replace(nstr,"%","[%]")

 formatQueryStr = nstr

end function

%>