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