'函数如下,实现在<p>
标签的结尾添加随机字符
content="<p>1,你好!</p><p>2,非常感谢!</p><p>3,你是对的!</p><br><p>4,你是对的!</p><br><p>5,你是错的!</p>";
response.write ganrao(content)
function ganrao(contents)
str=contents
dim a(5)
randomize
a(0)="<p class='white'>guoxue.mmkey.com</p>"
a(1)="<div class='white'>郭雪个人博客</div>"
a(2)="<span class='white'>国学个人博客</span>"
a(3)="<p class='White'>郭_雪_博_客</p>"
a(4)="<font color='#F5FAFE'>guoxue_mmkey_com</font>"
str=replace(str,"</P>"," </p>")
str2=split(str," </p>")
for i=0 to ubound(str2)
t=int(rnd*5)
if str2(i)<>"" then str3=str3&str2(i)&a(t)&"</p>"
next
ganrao=str3
end function