ASP页面随机增加字符实现防复制的代码

<%

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

        'Date:2006-3-6

        '作者:blue2004

        '参数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) ' 产生随机数。

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!