代碼如下:
<%
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函數(shù)將關鍵詞所在位置的40個字取出
outstr=replace(outstr,str1,"<font color=red>"&str1&"</font>")'替換為紅顏色
response.Write outstr
%>