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