包含">"字符的文本保存到数据库中的问题
cdjl 2008-04-21 03:05:02 在前台用<% 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
……………………………………………………………………