文字后面加随机字符

0
1,120 views

很好的代码
做站时很有用

	
  • <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> 
  • 回复

    请输入你的评论!
    请在这里输入您的名字