以下是代码片段： <% 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

%>