一段asp高亮关键字代码

载入中

<%
'==================================================
'函数名：Nkey
'作  用：关键字高亮
'参  数：Key ---- 关键字 title标题
'用  法：Nkey(“关键字”,“标题”)
'==================================================
Function Nkey(Key,title)
Dim LenKey,i,newkey
LenKey=Len(Key)
    For i=1 To LenKey
      NewKey=Mid(Key,i,1)
      title=replace(title,NewKey,"<font color=red>"&NewKey&"</font>")
    Next
Response.Write title
End Function
%>

<%
word = "热雨,落伍,网站"
hotlt="热雨欢迎落伍的兄弟到他的网站"
title=Nkey(word,hotlt)
%>

文章来源:YuZhe@Name

 给文章部分内容增加权限[类似论坛购买贴][11-09]

 留言本仿论坛模板及部分功能[11-08]

 雨哲自定义表单系统 For SiteWeaver[11-07]

 在线支付模板管理[11-07]

 全站搜索 For SiteWeaver 通用[11-07]

 企业会员展示系统[11-07]