前幾天接到(dào)客戶的(de)反饋，說他(tā)的(de)站點頁面被taobao站點引用(yòng)，導緻自己服務器(qì)的(de)流量過大(dà)，需要提供對策，但(dàn)是還不能(néng)屏蔽了taobao站點，我們再三考慮分(fēn)析，可(kě)以使用(yòng)如(rú)下代碼：
一，防複制(zhì)粘貼：
<%        '作用(yòng):文(wén)字防複制(zhì)亂碼 函數
        'Date:2006-3-6
        '作者:blue2004
        '參數str 爲原文(wén),str1作者也(yě)是你(nǐ)自己,reslut産生亂碼的(de)種子
        Function ReadToCode(str,Str1,result)
                dim name
                dim i,j,k
                If isnull(str) then
                        ReadToCode=""
                        Exit Function
                End If
                Randomize
                k=instr(str,"</P>")
                Do while k>0
                        result=""
                        for i=0 to 19
                                j=Int(128 * Rnd)+1
                                if j=60 or j=62 then
                                        j=j+1
                                end if
                                result =result&chr(j) ' 産生随機數。
                            next
                        result="<span style='DISPLAY: none'>"&result&"</span>"
                        str=replace(str,"</p>",result&"<'/p