400-685-0732 电话咨询送星巴克礼品
上海 · 北京 · 南京 · 广州 · 昆山 · 伦敦
关注专业seo外包公司
SEO创新会
文军营销 中国最靠谱的数字营销公司

用工具去拿来-借助工具使SEO便捷快捷化

首页  >   网站优化  > SEO每日一博  >  用工具去拿来-借助工具使SEO便捷快捷化

Rude:前段时间群里闲聊,一哥们说到自己手里有200多个站,火车头批量采集内容更新,买点外链,待网站权重上去后,卖点链接,卖卖广告,小日子过的虽然不能说美不胜收,但总归也是凑合。

说白了,其实是一些工具用的到位,可以帮助你省去很多人工。

例子:excel批量获取网页title

同事L想把自己的网站的TKD修改下,思考之后,觉得需要先把页面现有的TKD弄出来,说干就干,开始打开网址,查看源代码,将url、tkd记录在excel中。一个两个网址,不会觉得什么,其实多了,我知道,大家都会嫌烦。

那就试着用工具去做一些事情吧:

第一步,需要先把网址弄出来

获取网址,其实完全可以通过导航,网站地图等去复制源代码,然后批量替换,分列去获取网址及对应的栏目名称。

第二步,用excel里面的vba去获取TKD

打开excel,按alt+f11,在弹出的窗口中点击【插入】,插入【模块】,然后在模块中插入如下代码:

Function Title(ByVal url As String) As String
On Error Resume Next
url = “http://” & Replace(url, “http://”, “”)
With CreateObject(“Msxml2.XMLHTTP”)
.Open “get”, url, False
.send
Title = Split(Split(.responsetext, “<title>“)(1), “</title>“)(0)
End With
End Function

注意:标绿处为函数名称,标红处为你想获取内容所在代码位置前后的唯一的标识。

点击保存,然后关闭当前窗口,这时,在你的excel中就出现了一个名为title的函数。然后=title(你想要的title的网址),OK。

然后,修改标红处,你就可以批量获得keywords与description啦。

Function Keywords(ByVal url As String) As String
On Error Resume Next
url = “http://” & Replace(url, “http://”, “”)
With CreateObject(“Msxml2.XMLHTTP”)
.Open “get”, url, False
.send
Keywords = Split(Split(.responsetext, “<meta name=””keywords”” content=”””)(1), “”””)(0)
End With
End Function

Function Description(ByVal url As String) As String
On Error Resume Next
url = “http://” & Replace(url, “http://”, “”)
With CreateObject(“Msxml2.XMLHTTP”)
.Open “get”, url, False
.send
Description = Split(Split(.responsetext, “<meta name=””description”” content=”””)(1), “”””)(0)
End With
End Function

把代码用txt记下来,多用几次,记住步骤,一切都变的so easy了。

嗯?你说啥?前面说到了一个火车头?哈哈,最近我也一直在尝试着使用,待全部熟悉了,再给大家继续分享。

copyright@2015 上海文军信息技术有限公司 沪ICP备10034044号-8 网站地图

【沙龙分享活动】:12月17日下午1点至3点,请实战大牛分享《SEO项目成败关键为何》与《微信营销经验分享》,干货多多,朋友多多。即刻免费报名