28,391
社区成员
发帖
与我相关
我的任务
分享
Function EncodeHTML(s)
With New RegExp
.Pattern = "%([\da-f]{2})|%u([\da-f]{4})"
.IgnoreCase = True
EncodeHTML = .Replace(Escape(s), "&#x$1$2;")
End With
End Function
Response.Write EncodeHTML("有问必答网用户可直接登录")
Public Function UEncode(ByVal str)
With New RegExp
.Global = True
.Pattern = "%u([A-Fa-f0-9]{4})"
UEncode = UnEscape(.Replace(Escape(str), "&#x$1;"))
End With
End Function