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

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
……………………………………………………………………
...全文
70 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
fishidea 2008-04-22
  • 打赏
  • 举报
回复
一楼正解^_^JF
live_7sky 2008-04-21
  • 打赏
  • 举报
回复


我反正是 直接 存储到数据库 中了。


显示的时候,从数据库 读取:

this.Literal1.Text = "<pre>" +Server.HtmlEncode(ds.Tables[0].Rows[0]["b"].ToString()) + "</pre>";

如果要绑定到 repeater

<asp:Repeater ID="rep" runat="server">
<HeaderTemplate><table></HeaderTemplate>
<ItemTemplate><tr><td>留言内容</td></tr>
<tr><td><%#"<pre>"+Server.HtmlEncode(Eval("b").ToString())+"</pre>"%></td></tr>
</ItemTemplate>
<FooterTemplate></table></FooterTemplate>
</asp:Repeater>
cdjl 2008-04-21
  • 打赏
  • 举报
回复
函数中是<和>
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
银狐被占用 2008-04-21
  • 打赏
  • 举报
回复
1楼正解
No_Data_Found 2008-04-21
  • 打赏
  • 举报
回复
个人认为

< > 替换成 < > 比较好

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧