月光博客 » 編程開發 » Z-Blog內鏈關鍵字替換插件的修改

Z-Blog內鏈關鍵字替換插件的修改

  文章正文中的關鍵字內鏈插件是SEO常用的工具,越大的網站,越要更加重視內部鏈接結構的布局。因為良好的內部鏈接結構可以引導權值的傳遞,提高收錄,提升內頁排名。

  搜索引擎算法對網頁相關性列在很重要的位置,相關性越好的網頁,越容易獲得排名。所以,整個網站內部應該圍繞相關性來規劃網站結構。這也是網站結構規劃的最基本原則之一。

  Z-Blog的關鍵字內鏈插件有一些,我使用其中一個名為VKeyWords的插件進行內鏈替換,但是使用過程中發現一些問題。

  該插件使用全部替換的方式,如果文章包含的關鍵字很多,則會替換非常多的關鍵字,這屬于過度優化,很容易被搜索引擎懲罰,因此,我不得不對該插件進行了一些修改。

  由于該插件的替換算法比較獨特,不太好修改,因此,我主要修改的地方有以下:

  1、關鍵字最多替換4次(也可以設置為其他的數字)。

  2、某個關鍵字如果在文章里連續出現,則之后出現的均不替換。

  經過這些修改,這個插件應該就不會引起過度SEO優化的風險了。

  以下為修改方法:

  修改function.asp文件的VKeyWords,將該函數后面一部分修改為如下代碼:

Dim reg, patt, m, i, p, s, str, url
Dim maxnum, lastmatch
maxnum = 0
lastmatch = ""
str = Content
i = 0
p = 0
s = ""
patt = "<a [^>]*>[^<]*</a>|<[^>]*>|"
For i = 0 To UBound(keys)
patt = patt & keys(i) & "|"
Next
patt = Left(patt, Len(patt) - 1)
Set reg = New RegExp
reg.Global = True
reg.IgnoreCase = True
reg.Pattern = patt
Dim Matches, oMatch, j
Set Matches = reg.Execute(str)
For Each oMatch In Matches
If (Len(oMatch) > 0 And Left(oMatch, 1) <> "<") And maxnum < 4 And lastmatch <> oMatch Then
'不是a標簽的時候執行替換
For j = 0 To UBound(keys) - 1
url = ""
If (LCase(oMatch) = LCase(keys(j))) Then
'如果是需要替換的值就替換
url = "<a href=""" & urls(j) & """ title=""" & titles(j) & """ "
If (Windows(j) <> "") Then
url = url & " Target=""" & windows(j) & """ "
End If
url = url & ">" & keys(j) & "</a>"
If (oMatch.FirstIndex > 1) Then
s = s & Mid(str, p + 1, oMatch.FirstIndex - p) & url
Else
s = url
End If
p = oMatch.FirstIndex + Len(keys(j))
j = UBound(keys)
maxnum = maxnum + 1
lastmatch = oMatch
End If
Next
End If
Next
s = s & Right(str, Len(str) - p)
VKeyWords = s

頂一下 ▲()   踩一下 ▼()

相關文章

  1. 1
    歸零幻想   說道:
    是VB呢

    好懷念的感覺
    支持(0反對(0回復

發表留言


排列三和值南方双彩网