两段代码防止一般的采集以及小偷读取，加在顶部

答案：
<%

        '作用:文字防复制乱码 函数

        'Date:2006-5-17

        '作者:傲天行

        '参数str 为原文,str1作者也是你自己,reslut产生乱码的种子

        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>",1,1)

                        k=instr(str,"</p>")

                loop

                str=replace(str,"<'/p>","</p>")
                k=instr(str,"<br>")

                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,"<br>",result&"<'br>",1,1)

                        k=instr(str,"<br>")

                loop

                str=replace(str,"<'br>","<br>")

                ReadToCode=str&"<div align=right style='color=gray'>[版权归原作者及"&Str1&"共同拥有，转载请注明出处]</div>"

        End Function


Dim a 

a="嘎嘎，一篇<br>不错的好<p>文章哦</P><br><P>我艹，，让你偷。。木　JJ的家伙,嬲。。</p>"


'Only For Test

response.write (a)
Dim b

'为配合转换,字符串ａ的大小都替换成小写

b=ReadToCode(LCase(a),"blue2004","www.xxx.com")
'Output

response.write b

%>
[page_break]



'防止一般的采集以及小偷读取，加在顶部。同理，可以改造成JS脚本。


 程序代码

<% 

Dim AppealNum,AppealCount 

AppealNum=10 '同一IP60秒内请求限制10次 

AppealCount=Request.Cookies("AppealCount") 

If AppealCount="" Then 

response.Cookies("AppealCount")=1 

AppealCount=1 

response.cookies("AppealCount").expires=dat

上一个：win7下安装sql server 2000提示服务器组件在此操作系统上不受支持
下一个：如何利用asp实现在一定时间（比如7天）内弹出广告，其它时间不弹出广告