很好的代码
做站时很有用

<script language="VBScript"> 
Function addCopy(num)  
Dim ranValue, i, resultChr  
resultChr = "" 
for i = 1 to num  
Randomize  
ranValue = (9 - 0) * rnd * 10  
resultChrresultChr = resultChr & Chr(ranValue)  
Next  
addCopy = "<font color='#FF0000'>© this code writen by 帅青蛙,   " & resultChr & " </font>"  
End Function  
 
Function replaceBR(fstring)  
If fstring = "" Or IsNull(fstring) Then  
  replaceBR = "" 
Else  
  //replaceBRreplaceBR = replaceBR & replace(fstring, chr(10), "<br>" & addCopy(3))  
  replaceBRreplaceBR = 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>