ASP页面从ACCESS中读取类型为“备注”的字段,不能换行,如何处理?
答案:4 悬赏:30 手机版
解决时间 2021-02-08 05:29
- 提问者网友:人生佛魔见
- 2021-02-07 23:22
求高手留下QQ或邮箱,在线咨询。作为一个菜到不能再菜的菜鸟,我已经折腾一天了,网上的方法我都看不懂,希望能在线指教。多谢了。
最佳答案
- 五星知识达人网友:过活
- 2021-02-08 00:55
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),"
")
HtmlCode=Replace(HtmlCode,Chr(13),"
")
HtmlCode=Replace(HtmlCode,Chr(10),"
")
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),"
")
HtmlCode=Replace(HtmlCode,Chr(13),"
")
HtmlCode=Replace(HtmlCode,Chr(10),"
")
End Function
先将上面函数放到你的文件中,将数据库读取的内容套用一下上面的函数就可以了。
如你原来的是:
<%=Rs("Content")%>
现在改为:
<%=HtmlCode(Rs("Content"))%>
全部回答
- 1楼网友:梦中风几里
- 2021-02-08 03:26
要真不能换,就在写入时把vbcrlf换成特殊标识,读出来再替换成vbcrlf.
- 2楼网友:猎心人
- 2021-02-08 03:19
在该文本框属性-其它 里面,enter键行为,选择为 字段中新行 即可
- 3楼网友:等灯
- 2021-02-08 02:19
自己改宽度...把备注信息放到这里
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯