asp 格式化sql中的like字符串

1. <%  
2. '******************************  
3. '函数：formatQueryStr(str)  
4. '参数：str,SQL语句  
5. '作者：阿里西西  
6. '日期：2007/7/13  
7. '描述：格式化sql中的like字符串  
8. '示例：<%=formatQueryStr(str)%>  
9. '******************************  
10. function formatQueryStr(str)   
11.  dim nstr  
12.  nstr = str  
13.  nstr = replace(nstr,chr(0),"")  
14.  nstr = replace(nstr,"'","''")  
15.  nstr = replace(nstr,"[","[[]")  
16.  nstr = replace(nstr,"%","[%]")  
17.  formatQueryStr = nstr  
18. end function  
19. %>