类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
关键字：遵守,bb,法律
如何使搜索出来的结果中所包含的上述关键字都替换成红色的
如搜索结果标题是:遵守中华人民共和国有关法律
如何将"遵守"和"法律"两个替换为红色
网友回答：
<%
Dim strSrc,strSch,arrSch,iCnt
strSrc="遵守中华人民共遵守中华人国有关法律民和国有关法律"
strSch="遵守,bb,法律"
arrSch=Split(strSch,",")
For iCnt=LBound(arrSch) To UBound(arrSch)
If Trim(arrSch(iCnt))<>"" Then
strSrc=Replace(strSrc,Trim(arrSch(iCnt)),"<font color=red>" & Trim(arrSch(iCnt)) & "</font>")
End If
Next
Response.Write strSrc
%>