Function inHTML(ByVal str As String)
Dim sTemp As String
sTemp = str
inHTML = ""
If sTemp = "" Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, "&;nbsp", " ")
sTemp = Replace(sTemp, """, Chr(34))
inHTML = sTemp
End Function
Dim sTemp As String
sTemp = str
inHTML = ""
If sTemp = "" Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, "&;nbsp", " ")
sTemp = Replace(sTemp, """, Chr(34))
inHTML = sTemp
End Function
本文介绍了一个用于将字符串中的HTML特殊字符进行转义处理的VBScript函数。该函数能够将预定义的HTML特殊字符替换为相应的合法HTML实体,确保字符串能在网页中正确显示。
5万+

被折叠的 条评论
为什么被折叠?



