网站制作学习网ASP→正文:asp搜索输出中间结果
字体:

asp搜索输出中间结果

ASP 2008/10/6 10:58:49  点击:不统计

关键词:asp,asp搜索,asp搜索结果,结果显示中间内容



代码如下

<%

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

%>

·上一篇:adodb.stream 错误 '800abbc' >>    ·下一篇:[转帖] asp设置cookies过期时间 >>
推荐文章
最新文章