请选择 进入手机版 | 继续访问电脑版
 找回密码
 立即注册

QQ登录

只需一步,快速开始

asp自定义转义符函数

解决MSSQL不能存储单引号 双引号等特殊符号

  1. Public Function XmlEncode(strText)
  2. Dim aryChars
  3. aryChars = Array(38, 60, 62, 34, 61, 39)
  4. Dim i
  5. For i = 0 To UBound(aryChars)
  6. strText = Replace(strText, Chr(aryChars(i)), "&#" & aryChars(i) & ";")
  7. Next
  8. strText = Replace(strText, Chr(32), " ")
  9. strText = Replace(strText, Chr(9), "    ")
  10. strText = Replace(strText, Chr(10), "<br/>")
  11. strText = Replace(strText, Chr(13), "<br/>")  
  12. strText = Replace(strText, chr(13)&chr(10) , "<br/>")  
  13. XmlEncode = strText
  14. End Function
复制代码



回复

使用道具 举报

大神点评2

datement 2014-2-18 18:35:24 显示全部楼层
测试下看看如何!
回复 支持 反对

使用道具 举报

test123 2014-3-17 14:33:58 显示全部楼层
嗯,代码还可以
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

    热门帖子
  • 精华
  • 新帖
快速回复 返回顶部 返回列表