<rt id="reitf"><i id="reitf"></i></rt>
  • <li id="reitf"><th id="reitf"><div id="reitf"></div></th></li>
      <noscript id="reitf"></noscript>
    <strong id="reitf"><dfn id="reitf"></dfn></strong>
  • <thead id="reitf"></thead>
    <pre id="reitf"></pre>
  • <font id="reitf"><dl id="reitf"><output id="reitf"></output></dl></font>

    <font id="reitf"><dl id="reitf"><ruby id="reitf"></ruby></dl></font><tr id="reitf"><nobr id="reitf"><div id="reitf"></div></nobr></tr>
    余志國網站設計工作室是專業從事義烏網站建設、義烏外貿網站建設、義烏網站制作、義烏網站設計的專業義烏網站建設工作室,是義烏外貿網站建設專家!

    ASP搜索關鍵詞時結果用紅色顯示代碼

    分類:程序開發 Tags: asp 關鍵詞 評論:0 瀏覽:4102 最近更新時間:2015/9/22 22:03:50

    我們在使用baidu、google搜索時,搜索結果中顯示的搜索關鍵詞會顯示紅色,這是如何實現的呢?下面教大家用ASP能夠簡單實現此功能。

    <%
    response.write replace(rs("字段X"),searchname,"<font color=#FF0000>" & searchname & "</font>")
    %>

    說明:rs為記錄集對象,searchname為搜索的關鍵詞


    正則

    Function Highlight(strText, strFind, strBefore, strAfter)   
    Dim nPos   
    Dim nLen   
    Dim nLenAll   
    nLen = Len(strFind)   
    nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1   
    Highlight = strText   
    If nLen > 0 And Len(Highlight) > 0 Then  
    nPos = InStr(1, Highlight, strFind, 1)   
    Do While nPos > 0   
    Highlight = Left(Highlight, nPos - 1) & _   
    strBefore & Mid(Highlight, nPos, nLen) & strAfter & _   
    Mid(Highlight, nPos + nLen)   
    nPos = InStr(nPos + nLenAll, Highlight, strFind, 1)   
    Loop  
    End If  
    End Function  
     
    Response.Write Highlight(myText, "someword", "<font color=red>", "</font>")


    本文地址:http://www.d2ksoft.com/349/
    • 相關文章
    • 推薦文章
    • 最新文章
    發表評論





    您的IP:50.118.221.130,來自:美國

    留言

     


    免費咨詢
    建站咨詢熱線
    15967985565

    掃一掃微信咨詢
    QQ: 358758308 Skype: yuzhiguo Facebook: yuzhiguo Email
    亚洲中文字幕波多野结衣,中文字幕第一页,色悠久久久久久久综合网,免费又黄又爽又色的视频