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

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
……………………………………………………………………
...全文
35 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
个人认为

< > 替换成 < > 比较好
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-21 03:05
社区公告
暂无公告