网站制作学习网经验与学习→正文:去除html函数
字体:

去除html函数

经验与学习 2008/9/7 18:50:27  点击:不统计

Function myReplace(myString)'

myString=Replace(myString,"&","& amp;") '替换&为字符实体&

myString=Replace(myString,"<","& lt;") '替换<为字符实体<

myString=Replace(myString,">","& gt;") '替换>为字符实体>

myString=Replace(myString,chr(13),"<br>") '替换回车符为换行标记<br>

myString=Replace(myString,chr(32),"& nbsp;") '替换空格符为字符实体

myString=Replace(myString,chr(9)," & nbsp;& nbsp;& nbsp;& nbsp;") '替换Tab缩进符为

myString=Replace(myString,chr(39),"& acute;") '替换单引号为字符实体′

myString=Replace(myString,chr(34),"& quot;") '替换双引号为字符实体"

myReplace=myString '返回函数值

End Function

·上一篇:双系统默认启动项更改 >>    ·下一篇:asp防采集 >>
推荐文章
最新文章