动易个性化之简单的防采集修改方法
找到
If InStr(strHtml, "{$NextArticle}") > 0 Then strHtml = Replace(strHtml, "{$NextArticle}", GetNextArticle(200))
并将其替换成
If InStr(strHtml, "{$NextArticle}") > 0 Then strHtml = Replace(strHtml, "{$NextArticle}", GetNextArticle(200))
If InStr(strHtml, "{$ArticleAction_FY_FCJ}") > 0 Then strHtml = Replace(strHtml, "{$ArticleAction_FY_FCJ}", GetPrevArticle_FCJ())
再找到
'=================================================
'函数名:GetPrevArticle
'作 用:显示上一篇文章
'参 数:TitleLen ----标题最多字符数,一个汉字=两个英文字符
并在其上方加上
'=================================================
'函数名:GetPrevArticle_FCJ
'作 用:反采集函数部分 td tr table 修改
'=================================================
Private Function GetPrevArticle_FCJ()
Dim strAction_FCJ
if rsArticle("ArticleID") mod 8=1 then
strAction_FCJ="</td> </tr></table>"
elseif rsArticle("ArticleID") mod 8=2 then
strAction_FCJ="</td> </tr > </table>"
elseif rsArticle("ArticleID") mod 8=3 then
strAction_FCJ="</td > </tr> </table>"
elseif rsArticle("ArticleID") mod 8=4 then
strAction_FCJ="</td > </tr></table>"
elseif rsArticle("ArticleID") mod 8=5 then
strAction_FCJ="</td> </tr> </table>"
elseif rsArticle("ArticleID") mod 8=6 then
strAction_FCJ="</td> </tr></table >"
elseif rsArticle("ArticleID") mod 8=7 then
strAction_FCJ="</td> </tr ></table>"
else
strAction_FCJ="</td></tr></table>"
end if
GetPrevArticle_FCJ = strAction_FCJ
End Function
然后保存,上传到对应的WEB目录
第二步!!
将在文章内容模板里边的{$GetSubTitleHtml(0,1)}{$ArticleContent},注意此部 可视个人的模板情况而定!{$GetSubTitleHtml(0,1)}{$ArticleContent}之前是</td></tr> </table>,可将 </td></tr> </table> 替换成{$ArticleAction_FY_FCJ} ,然后直接生成模板就可以了!!如果不是的朋友,请看下文!!
特殊替换1:
将上面红色部分的判断代码,更换成适合你模板的代码!!如果{$GetSubTitleHtml(0,1)}{$ArticleContent}之前是
<td id=fontzoom style="WORD-BREAK: break-all" vAlign=top colSpan=2>那么您可以将上方红色部分的strAction_FCJ="</td> </tr></table>"
换成strAction_FCJ="<td id=fontzoom style=WORD-BREAK: break-all vAlign=top colSpan=2>"
并且每个strAction_FCJ等值的内容都不一样!如在里边加多个别空格或者将个别修改成大写或小写的字母等!可视个人情况来定!
注意:特殊替换1,如果您的代码中含有"的话,可以将其去掉,或者将"换成""
说下原理:
就是通过对采集固定码的干扰,来破坏采集者设定的规则!等于说,让我们每个内容页的内容都是无规则化!!