<%
Function myReplace(myString)'
    myString=Replace(myString,"&","&amp;")         '替换&为字符实体&amp;
    myString=Replace(myString,"<","&lt;")          '替换<为字符实体&lt;
    myString=Replace(myString,">","&gt;")          '替换>为字符实体&gt;
    myString=Replace(myString,chr(13),"<br>")      '替换回车符为换行标记<br>  
    myString=Replace(myString,chr(32),"&nbsp;")    '替换空格符为字符实体&nbsp;
    myString=Replace(myString,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")     '替换Tab缩进符为
    myString=Replace(myString,chr(39),"&acute;")   '替换单引号为字符实体&acute;
    myString=Replace(myString,chr(34),"&quot;")    '替换双引号为字符实体&quot;
    myReplace=myString                             '返回函数值
End Function
%>

上一篇: 获取当前页面URL，以便于在另一页中跳转回来
下一篇: ASP连接13种数据库语法总结
文章来自: 网络
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志: