ASP页面中插入随机文字或者代码
- http://blog.gufang.org/
- 2011/4/15 23:21:23
- 来源:Gufang's Private Space
- 点击:
str=rs("content")
'这里str在为要实现插入随机文字或者代码的地方
dim a(5)
randomize
t=int(rnd*5)
a(0)="<font color='#FFFFFF'>qwqk.cn</font> </p>"
a(1)="<font color='#FFFFFF'>www.qwqk.cn</font> </p>"
a(2)="<font color='#FFFFFF'>权威期刊网qwqk.cn</font> </p>"
a(3)="<font color='#FFFFFF'>权威qwqk.cn期刊</font> </p>"
a(4)="<font color='#FFFFFF'>qwqk.cn 论文发表</font> </p>"
'这些随机干扰代码在实际使用时,为了修改方便,可以保存在数据库中,使用时直接调用
str=replace(str,"</p>",a(t))
response.write str
OK了。
这样的结果是,如果一篇文章中有3个</p>,那么这三个</p>会被替换为随机的一个相同随机码。
如果想实现不同的</p>被替换成不一样的随机码,则可以
str2=split(str,"</p>")
for i=0 to ubound(str2)
t=int(rnd*5)
str3=str3&str2(i)&a(t)&"</p>"
next
response.write str3
'这里str在为要实现插入随机文字或者代码的地方
dim a(5)
randomize
t=int(rnd*5)
a(0)="<font color='#FFFFFF'>qwqk.cn</font> </p>"
a(1)="<font color='#FFFFFF'>www.qwqk.cn</font> </p>"
a(2)="<font color='#FFFFFF'>权威期刊网qwqk.cn</font> </p>"
a(3)="<font color='#FFFFFF'>权威qwqk.cn期刊</font> </p>"
a(4)="<font color='#FFFFFF'>qwqk.cn 论文发表</font> </p>"
'这些随机干扰代码在实际使用时,为了修改方便,可以保存在数据库中,使用时直接调用
str=replace(str,"</p>",a(t))
response.write str
OK了。
这样的结果是,如果一篇文章中有3个</p>,那么这三个</p>会被替换为随机的一个相同随机码。
如果想实现不同的</p>被替换成不一样的随机码,则可以
str2=split(str,"</p>")
for i=0 to ubound(str2)
next
response.write str3
发表评论(0)