文本输入输出处理函数

最新推荐文章于 2021-12-17 11:45:45 发布

dshpsky

最新推荐文章于 2021-12-17 11:45:45 发布

阅读量922

点赞数

分类专栏： Learning Resources 文章标签： function html 数据库

本文链接：https://blog.csdn.net/dshpsky/article/details/1412436

版权

Learning Resources 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

' ============================================
' 把字符串进行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))
sTemp = Replace(sTemp, "<br>", Chr(10))
inHTML = sTemp
End Function