<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.CodePage=65001%> <% Response.Charset="UTF-8" %> <% dim content_text,searchword_text
'content是內(nèi)容，searchword是要搜索的文字 sub search(content,searchword) if InStr(content,searchword) > 0 then Response.Write("找到") Else Response.Write("沒有找到") End if end sub
