Asp初学者常见问题之六用VS生成水印

<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'>&copy; this code writen by 帅青蛙(www.LemongTree.Net),&nbsp;&nbsp;&nbsp;"&resultChr &" </font>"

End Function

Function replaceBR(fstring)

If fstring = "" Or IsNull(fstring) Then

replaceBR = ""

Else

//replaceBR = replaceBR&replace(fstring, chr(10), "<br>" &amp; 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>