Z-Blog内链关键字替换插件的修改

2021-12-27 13阅读 0评论

文章最后更新时间:2022年01月20日

 文章正文中的关键字内链插件是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

Z-Blog内链关键字替换插件的修改 第1张

 

版权声明
  本站致力于为模板爱好者提供国内外插件开发技术和模板共享,着力为用户提供优资资源。
  本站提供的所有下载文件均为网络共享资源,请于下载后的24小时内删除。如需体验更多乐趣,还请支持正版。
  我站提供用户下载的所有内容均转自互联网。如有内容侵犯您的版权或其他利益的,请编辑邮件并加以说明发送到站长邮箱。
  站长会进行审查之后,情况属实的会在三个工作日内为您删除。
文章版权声明:除非注明,否则均为天空博客原创文章,转载或复制请以超链接形式并注明出处。
您需要 登录账户 后才能发表评论

发表评论

表情:
评论列表 (暂无评论,13人围观)

还没有评论,来说两句吧...