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
%>