学电脑,学计算机 | 手机访问 | 加入收藏 | 设为首页 | RSS
当前位置:首页 > CMS教程 > 动易CMS教程 > 正文

动易系统防止采集的方法总结

发布时间:2010-03-02 18:25:16  来源:电脑技术学习网
【摘要】: 动易系统防止采集的方法总结

1,先打开Include/PowerEasy.Article.asp文件

找到

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目录

发表评论 共有条评论
验证码: