今天才发现这个函数的作用,原来可以查找特定的字符或者字符串。
下面是我写的简单例子:
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
- <% Response.CodePage=65001%>
- <% Response.Charset="UTF-8" %>
- <%
- dim content_text,searchword_text
- 'content是内容,searchword是要搜索的文字
- sub search(content,searchword)
- if InStr(content,searchword) > 0 then
- Response.Write("找到")
- Else
- Response.Write("没有找到")
- End if
- end sub
- content_text = "搜索吧收集的代码和教程为阿会楠平时学习收集,网站的目标是方便自己的同时方便大家,本网站系统采用阿会楠自己写的系统,系统已经写了半年时间,主要时间放在程序的优化上,程序一直都在更新,欢迎大家加入Q群一起讨论学习。"
- searchword_text = "搜索吧"
- call search(content_text,searchword_text)
- %>