包含">"字符的文本保存到数据库中的问题

cdjl cdjl 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
在前台用<% text2html(rst("内容")) %>显示正常

在后台用value3=html2text(rst("内容"))
用textarea编辑<% =value3 %>只能显示">"符号后面的内容,但是用textarea保存这段文字到数据库后到前台显示是正常的。而在用它编辑显示就只能显示">"符号后面的内容。
如
************************************************
注:(1)、两种方式:总帐系统初始化

系统控制台——>基础设置

(2)、注意编码级次
************************************************
一开始输入到textarea中然后保存到数据库正常,并能在前台显示
但如果在后台修改这段文字,在textarea中只能显示">"符号后面的内容即
************************************************
基础设置

(2)、注意编码级次
************************************************
下面是函数
………………………………………………………………
'----------Html转换为文本:编辑时拿来做转换
Function Html2Text(Str1)
If isNULL(Str1) Then
Html2Text=""
Exit Function
End If
Str1=Replace(Str1,"<","<")
Str1=Replace(Str1,">",">")
Str1=Replace(Str1,"<br>",VBcrlf)
Str1=Replace(Str1,""",chr(34))
Str1=Replace(Str1," "," ")
Str1=Replace(Str1,"&","&")
str1=replace(str1,"'","'")
Html2Text=Str1
End Function
Function Text2Html(Str1)'报文本格式转换为html格式以便输出
If isNULL(Str1) Then
Text2Html=""
Exit Function
End If
Str1=Replace(Str1,"&","&")
Str1=Replace(Str1,"<","<")
Str1=Replace(Str1,">",">")
Str1=Replace(Str1,VBcrlf,"<br>")
Str1=Replace(Str1,chr(34),""")
Str1=Replace(Str1,chr(9)," ")
Str1=Replace(Str1," "," ")
str1=replace(str1,"'","'")
Text2Html=Str1
End Function
……………………………………………………………………
...全文

相关推荐

评论 6
收藏 已收藏
分享
返回顶部
cdjl
ASP 28,401 成员 356,940 内容