ASP page randomly add characters to implement anti-duplication code _ Application Tips

<%
' Function: Text anti-copying garbled function
' Date:2006-3-6
' Author: blue2004
' Parameter str is the original, str1 author is yourself, Reslut produces garbled seeds
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) ' produces random numbers.
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) ' produces random numbers.
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 ' >[" Copyright belongs to the original author and "&Str1&" jointly owned, reproduced please indicate the source]</div> "
End Function


Dim A
A= "Quack, a <br> good <p> article Oh </P><br><P> i 艹, let you steal." Wooden JJ guy, compensations. </p> "


' Only for Test
Response.Write (A)

Dim b
' To match the conversion, the size of the string A is replaced with lowercase
B=readtocode (LCase (a), "blue2004", "www.xxx.com")

' Output
Response.Write b
%>