asp 用InStr查找特定字符串的代码

今天才发现这个函数的作用，原来可以查找特定的字符或者字符串。

下面是我写的简单例子：

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
2. <% Response.CodePage=65001%>   
3. <% Response.Charset="UTF-8" %>   
4. <%  
5. dim content_text,searchword_text  
6.  
7. 'content是内容，searchword是要搜索的文字  
8. sub search(content,searchword)  
9.         if InStr(content,searchword) > 0 then  
10.                  Response.Write("找到")  
11.         Else  
12.                  Response.Write("没有找到")  
13.         End if  
14. end sub  
15.  
16. content_text = "搜索吧收集的代码和教程为阿会楠平时学习收集，网站的目标是方便自己的同时方便大家，本网站系统采用阿会楠自己写的系统,系统已经写了半年时间，主要时间放在程序的优化上，程序一直都在更新，欢迎大家加入Q群一起讨论学习。"  
17. searchword_text = "搜索吧"  
18.  
19. call search(content_text,searchword_text)  
20. %>