ASP页面从ACCESS中读取类型为“备注”的字段,不能换行,如何处理?
求高手留下QQ或邮箱,在线咨询。作为一个菜到不能再菜的菜鸟,我已经折腾一天了,网上的方法我都看不懂,希望能在线指教。多谢了。...
求高手留下QQ或邮箱,在线咨询。作为一个菜到不能再菜的菜鸟,我已经折腾一天了,网上的方法我都看不懂,希望能在线指教。多谢了。
展开
4个回答
展开全部
Response.Write Replace(Rs("字段"),vbcrlf,"<br>")
把备注存的内容换行替换为HTML标记
把备注存的内容换行替换为HTML标记
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
要真不能换,就在写入时把vbcrlf换成特殊标识,读出来再替换成vbcrlf.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Function HtmlCode(Con)
If Con="" Or IsNull(Con) Then
HtmlCode=""
Exit Function
End If
HtmlCode=Con
HtmlCode=Replace(HtmlCode,"<","<")
HtmlCode=Replace(HtmlCode,">",">")
HtmlCode=Replace(HtmlCode,Chr(9),"   ")
HtmlCode=Replace(HtmlCode,Chr(13)&Chr(10),"<br>")
HtmlCode=Replace(HtmlCode,Chr(13),"<br>")
HtmlCode=Replace(HtmlCode,Chr(10),"<br>")
End Function
先将上面函数放到你的文件中,将数据库读取的内容套用一下上面的函数就可以了。
如你原来的是:
<%=Rs("Content")%>
现在改为:
<%=HtmlCode(Rs("Content"))%>
If Con="" Or IsNull(Con) Then
HtmlCode=""
Exit Function
End If
HtmlCode=Con
HtmlCode=Replace(HtmlCode,"<","<")
HtmlCode=Replace(HtmlCode,">",">")
HtmlCode=Replace(HtmlCode,Chr(9),"   ")
HtmlCode=Replace(HtmlCode,Chr(13)&Chr(10),"<br>")
HtmlCode=Replace(HtmlCode,Chr(13),"<br>")
HtmlCode=Replace(HtmlCode,Chr(10),"<br>")
End Function
先将上面函数放到你的文件中,将数据库读取的内容套用一下上面的函数就可以了。
如你原来的是:
<%=Rs("Content")%>
现在改为:
<%=HtmlCode(Rs("Content"))%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
<div style="width:200px;word-wrap: break-word; word-break: break-all; "> 自己改宽度...把备注信息放到这里 </div>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询