| 范文 |
代码如下:
<%
str1="关键词"
str2="文章内容文章内容文章内容文章内容文章内容文关键词章内容文章内容文章内容文章内容文章内容文章内容"
tmp=instr(str2,str1) '获取关键词在文章的位置
b=tmp-20'将该位置迁移20个字符位
if b<=0 then'如果该位置到最前了,也就是文章的开头.那从开头开始
b=1
end if
outstr=mid(str2,b,tmp+20+len(str1))'获取内容,用mid函数将关键词所在位置的40个字取出
outstr=replace(outstr,str1,"<font color=red>"&str1&"</font>")'替换为红颜色
response.Write outstr
%> |