ASP显示HTML代码(转义)函数

Public Function XmlEncode(strText)
 Dim aryChars
 aryChars = Array(38, 60, 62, 34, 61, 39)
 Dim i
 For i = 0 To UBound(aryChars)
 strText = Replace(strText, Chr(aryChars(i)), "&#" & aryChars(i) & ";")
 Next
 strText = Replace(strText, Chr(32), " ")
 strText = Replace(strText, Chr(9), "    ")
 strText = Replace(strText, Chr(10), "<br/>")
 strText = Replace(strText, Chr(13), "<br/>") 
 strText = Replace(strText, chr(13)&chr(10) , "<br/>") 
 XmlEncode = strText
 End Function

知识共享许可协议
《ASP显示HTML代码(转义)函数》常伟华 创作。
采用 知识共享 署名-相同方式共享 3.0 中国大陆 许可协议进行许可。
相邻依据:发表时间
  • 多说评论
  • 签名
  • 新浪微博
  • 默认评论
  • Tab Header 5

2 条评论 / 点击此处发表评论

Tab Content 5

开发技术


开发平台和工具

sitemap     155.91ms