HTML编码
- 作者: 叶子31188021
- 来源: 51数据库
- 2022-08-17
Function HTMLEncode(ByVal sVal) sReturn = "" If ((TypeName(sVal)="String") And (Not IsNull(sVal)) And (sVal<>"")) Then For i = 1 To Len(sVal) ch = Mid(sVal, i, 1) Set oRE = New RegExp : oRE.Pattern = "[ a-zA-Z0-9]" If (Not oRE.Test(ch)) Then ch = "&#" & Asc(ch) & ";" End If sReturn = sReturn & ch Set oRE = Nothing Next End If HTMLEncode = sReturn End Function HTMLEncode("This is a & test!")
推荐阅读