请问一个小问题

495177 2004-12-03 11:49:39
我想做一个网上书店
现在有一步做到图书简介
但是从数据库读出的数据不会自动换行
我想请问一下如何让简介自动换行?
是不是要规定行的宽度?
谢谢!!!
...全文
63 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过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
请问有人知道吗?
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

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