<script language="VBScript">
Function addCopy(num)
Dim ranValue, i, resultChr
resultChr = ""
for i = 1 to num
Randomize
ranValue = (9 - 0) * rnd * 10
resultChr = resultChr&Chr(ranValue)
Next
addCopy = "<font color='#FFFFFF'>© this code writen by 帅青蛙(www.LemongTree.Net), "&resultChr &" </font>"
End Function
Function replaceBR(fstring)
If fstring = "" Or IsNull(fstring) Then
replaceBR = ""
Else
//replaceBR = replaceBR&replace(fstring, chr(10), "<br>" & addCopy(3))
replaceBR = replaceBR &fstring & "<br>" &addCopy(3)
End If
End Function
for i = 1 to 3
document.write replaceBR("This code writen by 帅青蛙, you can use it free, but please keep this copyright!")
document.write ("<br>")
next
</script>
