如何让你的文章自动加上关键词锚文本

做我们这行的都知道锚文本的重要性,站内锚文本的做用是不可替代的,这里就不阐述站内锚文本的重要性了,今天主要给大家分享一下,如何给自己的网站增加文章自动加锚文本的功能。

我们以ASP+ACCESS为例,首先讲一下原理,在后台设置网站的关键词,包括锚文本和链接地址,然后在前台读取文章内容字段的时候使用字符查找替换功能,找到文章中的关键词替换为锚文本链接即可。

记录网站关键词的表(WebKey)图

 

后台程序我们就不展示了,有添加修改删除关键词功能即可,关键讲一下在前台如何自动生成锚文本。

这里主要用的到函数是字符串的查找与替换函数;

第一,查找关键词instr。

<%

dim content,searchword

'content是内容,searchword是要搜索的文字

sub search_key(content,searchword)

if InStr(content,searchword)> 0 then

htm = htm&("找到")

Else

htm = htm&("没有找到")

End if

end sub

%>

第二,替换功能Replace

'content是内容,searchword是关键词,keywords是锚文本

content=Replace(content,searchword,keywords)

应用上面的两个函数即可实现文章关键词变为带连接的锚文本。下面是详细的代码截图

 

上面的代码只是实现替换的核心内容,要实现多个锚文本的自动替换,还是在外面加上循环,即关键词的循环。这样你网站发布的文章就可以自动查找关键词并匹配为带连接的关键词即锚文本。

  • 留言列表: