在文章内容中随机插入网站版权文字，防止采集

''===随机生成干扰文字函数开始===
''===随机生成干扰文字函数一===
function rndk()
dim s,s1,n,n1
''随机插入你的网站版权文字，多个以|分割
s="来自：余志国网站设计工作室博客。|外贸网站建设：http://www.yuzhiguo.com。|http://www.yuzhiguo.com。|ｙｕｚｈｉｇｕｏ．ｃｏｍ。|<font style=display:none>http://www.yuzhiguo.com</font>|<span style=""display:none""><a href=http://www.yuzhiguo.com>yuzhiguo</a></span>"
s1=split(s,"|")
Randomize
n=Int((ubound(s1) - lbound(s1) + 1) * Rnd + lbound(s1))
Randomize
n1=Int((10 - 1 + 1) * Rnd + 1)
if n1<=3 then '30%概率出现
rndk=s1(n)
else
rndk=""
end if
end function
''===随机生成干扰文字函数二===
function transtr(str) '调用该函数转化
dim str1,i,k
k="<p></p>" '分割关键字
str1=split(str,k)
for i=lbound(str1) to ubound(str1)
transtr=transtr&str1(i)&rndk()&k
next
end function
''===随机生成干扰文字函数结束===