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