参考了玄猫的正则表达式,结合自己的经历写这个东西。前些天百度的大规模封站估计很多人还心有余悸,单纯采集的站已经极度危险的地步了,考虑变通下。很多人觉得修改标题是一个办法,当然还可以结合修改内容来搞,让搜索引擎认为是原创的,这样会获得良好的排名。参考玄猫提供的关键词词频修正表达式,试了下,非常有用,特转过来。
‘词频修正函数
Function Original(str)
Dim temparr,ltemp,ltemp2
str = Replace(str,vbCrLf,”")
temparr = ”"
If Trim(temparr) = ”" Then temparr = doReExec(str,”<p[^>]*>([^<]+)</p>”)
If Trim(temparr) = ”" Then temparr = doReExec(str,”<br>([^<]+)<br>”)
If Trim(temparr) = ”" Then temparr = doReExec(str,”<div [^>]*>([^<]+)</div>”)
If Trim(temparr) = ”" Then temparr = doReExec(str,”<span [^>]*>([^<]+)</span>”)
If Trim(temparr) = ”" Then Original = str : Exit Function
temparr = Split(temparr,”,”)
randomize
ltemp = Int(Rnd()*UBound(temparr))+1
ltemp2 = Timer Mod UBound(temparr)
Original = ”<div id=”"correct”"><b>gannyle.cn本文摘要</b>:<br />” & temparr(ltemp) & temparr(ltemp2) & ”</div>” & str
End Function








最新评论
春节快乐啊^_^兄弟
呵呵,路过,顶一下。
老衲已阅
不错的站,路过看下
来拜访啦,呵呵,留名纪念
闲逛到此,留下印记。顶一下。
路过~~留痕
多少支持一下