字符串转换函数

2024-05-04 11:06:01

字体：大中小

来源：转载

供稿：网友

以下是代码片段：
<%
’ ============================================
’ 把字符串进行HTML解码,替换server.htmlencode
’ 去除Html格式，用于显示输出
’ ============================================
Function outHTML(str)
Dim sTemp
sTemp = str
outHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), """)
sTemp = Replace(sTemp, Chr(10), "<br>")
outHTML = sTemp
End Function
’ ============================================
’ 去除Html格式，用于从数据库中取出值填入输入框时
’ 注意：value="?"这边一定要用双引号
’ ============================================
Function inHTML(str)
Dim sTemp
sTemp = str
inHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), """)
inHTML = sTemp
End Function
%>

上一篇：判断EMAIL是否正确的程序

下一篇：时间格式化函数