站长之家

参考了玄猫的正则表达式，结合自己的经历写这个东西。前些天百度的大规模封站估计很多人还心有余悸，单纯采集的站已经极度危险的地步了，考虑变通下。很多人觉得修改标题是一个办法，当然还可以结合修改内容来搞，让搜索引擎认为是原创的，这样会获得良好的排名。参考玄猫提供的关键词词频修正表达式，试了下，非常有用，特转过来。

‘正则表达式函数 <br /> Function doReExec(strng,patrn) <br />   Dim regEx, Match, Matches,RetStr      ’ 创建变量。 <br />   Set regEx = New RegExp         ’ 创建正则表达式。 <br />   regEx.Pattern = patrn          ’ 设置模式。 <br />   regEx.IgnoreCase = True         ’ 设置为不区分大小写。 <br />   regEx.Global = True         ’ 设置全局适用。 <br />   Set Matches = regEx.Execute(strng)   ’ 执行搜索。 <br />   For Each Match in Matches      ’ 对 Matches 集合进行迭代。 <br />     RetStr = RetStr & Match.Value & ”,” & vbCRLF <br />   Next <br />   doReExec = RetStr <br /> End Function </p> <p>‘词频修正函数 <br /> Function Original(str) <br />          <br />         Dim temparr,ltemp,ltemp2 <br />         str = Replace(str,vbCrLf,”") <br />          <br />         temparr = ”" <br />         If Trim(temparr) = ”" Then temparr = doReExec(str,”<p[^>]*>([^<]+)</p>”) <br />         If Trim(temparr) = ”" Then temparr = doReExec(str,”<br>([^<]+)<br>”) <br />         If Trim(temparr) = ”" Then temparr = doReExec(str,”<div [^>]*>([^<]+)</div>”) <br />         If Trim(temparr) = ”" Then temparr = doReExec(str,”<span [^>]*>([^<]+)</span>”) <br />         If Trim(temparr) = ”" Then Original = str : Exit Function </p> <p>        temparr = Split(temparr,”,”) <br />         randomize <br />         ltemp = Int(Rnd()*UBound(temparr))+1 <br />         ltemp2 = Timer Mod UBound(temparr) <br />         Original = ”<div id=”"correct”"><b>gannyle.cn本文摘要</b>:<br />” & temparr(ltemp) &  temparr(ltemp2) &  ”</div>” & str <br /> End Function

作者: 博雅塔主

关注新网络媒体运营、企业网络营销。

该日志由 博雅塔主 于2008年03月24日发表在程序编程分类下，
转载请注明: 网站内容:把采集来的内容变为原创 | 站长之家
标签: 内容, 原创, 采集