凹丫丫网络社区 » 【网页编程】 » 一段asp高亮关键字代码

乖乖狗 发表于 2008-6-22 17:29

一段asp高亮关键字代码

<P><STRONG>&lt;%<BR>'================================================== <BR>'函数名：Nkey<BR>'作&nbsp; 用：关键字高亮 <BR>'参&nbsp; 数：Key ---- 关键字 title标题<BR>'用&nbsp; 法：Nkey(“关键字”,“标题”)<BR>'================================================== <BR>Function Nkey(Key,title)<BR>Dim LenKey,i,newkey<BR>LenKey=Len(Key)<BR>&nbsp;&nbsp;&nbsp; For i=1 To LenKey<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NewKey=Mid(Key,i,1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; title=replace(title,NewKey,"&lt;font color=red&gt;"&amp;NewKey&amp;"&lt;/font&gt;")<BR>&nbsp;&nbsp;&nbsp; Next<BR>Response.Write title<BR>End Function<BR>%&gt;</STRONG></P>
<P><STRONG>&lt;%<BR>word = "凹丫丫,</STRONG><FONT color=#800080><STRONG>网站</STRONG></FONT><STRONG>"<BR>hotlt="</STRONG>凹丫丫<FONT color=#800080><STRONG>网站</STRONG></FONT><STRONG>"<BR>title=Nkey(word,hotlt)<BR>%&gt;</STRONG></P>

稻草人 发表于 2008-6-23 19:53

以前还到处找的东西

查看完整版本: 一段asp高亮关键字代码