包含">"字符的文本保存到数据库中的问题
在前台用<% 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
……………………………………………………………………
在后台用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
……………………………………………………………………
...全文
相关推荐
使用递归循环读取省市区json文件数据,并保存到数据库中
使用递归方法循环读取省市区的json文件数据,并保存到数据库中,经测试可以直接使用,代码里包含省市区的json文件,递归读取方法,可用作系统省市区数据初始化作用
知乎问题爬取与文本数据保存实战
Python的控制结构包括条件语句(if-elif-else)和循环结构(for和while)。控制结构通过缩进来区分不同的代码块。函数定义在Python中使用def关键字,它允许代码复用并提高代码的模块化。函数可以通过参数接收输入,并可选地返回值。Python还支持可变参数和关键字参数,这使得函数能够处理不定数量的参数。服务器有时会根据请求头中的某些信息(如User-Agent)来决定是否返回数据。requests库允许我们自定义请求头,以满足特定需求。# 设置自定义请求头。
HTML的TextArea中保存格式问题解决方法.doc
HTML的TextArea中保存格式问题解决方法.doc
深入UTF8字符编码.doc
UTF8字符编码:windows编码、文本工具的字符编码、Java编译器的字符编码、MySql的UTF8编码
图片转base64保存到数据库 , 并回显到浏览器
图片转base64保存到数据库 , 并回显到浏览器


