请问一个小问题

495177 2004-12-03 11:49:39
我想做一个网上书店
现在有一步做到图书简介
但是从数据库读出的数据不会自动换行
我想请问一下如何让简介自动换行?
是不是要规定行的宽度?
谢谢!!!
...全文
97 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ahhisoft 2004-12-03
  • 打赏
  • 举报
回复
Function CovHtml(content)
ON ERROR RESUME NEXT
CovHtml=content
IF Not IsNull(content) Then
CovHtml=Replace(CovHtml,"&","&")
CovHtml=Replace(CovHtml,"<","<")
CovHtml=Replace(CovHtml,">",">")
CovHtml=Replace(CovHtml,chr(34),""")
CovHtml=Replace(CovHtml,chr(39),"'")
End IF
IF Err.Number <>0 Then
CovHtml= "CovHtml 转换中出错请联系管理员<br>"
Err.Clear
End IF
End Function

Function unCovHtml(content)
ON ERROR RESUME NEXT
unCovHtml=content
IF Not IsNull(content) Then
unCovHtml=Replace(unCovHtml,"&","&",1,-1,1)
unCovHtml=Replace(unCovHtml," ",chr(32),1,-1,1)
unCovHtml=Replace(unCovHtml,"<","<",1,-1,1)
unCovHtml=Replace(unCovHtml,">",">",1,-1,1)
unCovHtml=Replace(unCovHtml,""",chr(34),1,-1,1)
End IF
IF Err.Number <>0 Then
unCovHtml= "unCovHtml 转换中出错请联系管理员<br>"
Err.Clear
End IF
End Function
ahhisoft 2004-12-03
  • 打赏
  • 举报
回复
写入数据库的时候使用Enhtml
读取数据的时候用Unhtml
495177 2004-12-03
  • 打赏
  • 举报
回复
请问有人知道吗?

28,409

社区成员

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

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