ASP防采集正文添加隐形干扰字符

'函数如下，实现在<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