越南vps的Z-Blog內(nèi)鏈關(guān)鍵字替換插件的修改

越南vps文章正文中的關(guān)鍵字內(nèi)鏈插件是SEO常用的工具，越大的網(wǎng)站，越要更加重視內(nèi)部鏈接結(jié)構(gòu)的布局。因?yàn)榱己玫膬?nèi)部鏈接結(jié)構(gòu)可以引導(dǎo)權(quán)值的傳遞，提高收錄，提升內(nèi)頁排名。

　　搜索引擎算法對(duì)網(wǎng)頁相關(guān)性列在很重要的位置，相關(guān)性越好的網(wǎng)頁，越容易獲得排名。所以，整個(gè)網(wǎng)站內(nèi)部應(yīng)該圍繞相關(guān)性來規(guī)劃網(wǎng)站結(jié)構(gòu)。這也是網(wǎng)站結(jié)構(gòu)規(guī)劃的最基本原則之一。

　　Z-Blog的關(guān)鍵字內(nèi)鏈插件有一些，我使用其中一個(gè)名為VKeyWords的插件進(jìn)行內(nèi)鏈替換，但是使用過程中發(fā)現(xiàn)一些問題。

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

　　由于該插件的替換算法比較獨(dú)特，不太好修改，因此，我主要修改的地方有以下：

　　1、關(guān)鍵字最多替換4次（也可以設(shè)置為其他的數(shù)字）。

　　2、某個(gè)關(guān)鍵字如果在文章里連續(xù)出現(xiàn)，則之后出現(xiàn)的均不替換。

　　經(jīng)過這些修改，這個(gè)插件應(yīng)該就不會(huì)引起過度SEO優(yōu)化的風(fēng)險(xiǎn)了。

　　以下為修改方法：

　　修改function.asp文件的VKeyWords，將該函數(shù)后面一部分修改為如下代碼：

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標(biāo)簽的時(shí)候執(zhí)行替換
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