學電腦,學計算機 | 手機訪問 | 加入收藏 | 設為首頁 | 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目錄

發表評論 共有條評論
驗證碼:
湖北省福彩30选5开奖