去除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防采集 >>