如何RS出access数据库中备注字段的回车

bryankoul 2010-06-03 08:10:37
在ASP中,普通的rs比如<%=rs"content"%>不能显示出数据库中备注字段的回车空行,备注写入的时候没有经过html处理,打开access查看到数据直接是回车换行的,但是rs到页面没有回车,是连着打的,请问这个如何rs,如何来处理,谢谢
...全文
75 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
scscms太阳光 2010-06-03
  • 打赏
  • 举报
回复
fString = Replace(fString, CHR(10) & CHR(10), "</p><p> ")
这里有问题,会导致标签错误,可以参考下面函数
'==================================
'=函 数 名:Formatstr()
'=功 能:格式HTML,使HTML可视化
'==================================
Function Formatstr(string)
if string="" or isnull(string) then exit function
string = replace(string, chr(32), " ")
string = replace(string, chr(10) & chr(10), "<br><br>")
string = replace(string, chr(10), "<br>")
formatstr = string
End Function
bryankoul 2010-06-03
  • 打赏
  • 举报
回复
搞定了,谢谢各位

头部加入
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</p><p> ")
fString = Replace(fString, CHR(10), "<br> ")
HTMLEncode = fString
end if
end function

调用用<%= htmlencode(rs(""))%>

28,390

社区成员

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

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