请问一个小问题

[495177]

我想做一个网上书店
现在有一步做到图书简介
但是从数据库读出的数据不会自动换行
我想请问一下如何让简介自动换行?
是不是要规定行的宽度?
谢谢!!!

[495177]

请问有人知道吗?

[ahhisoft]

写入数据库的时候使用Enhtml
读取数据的时候用Unhtml

[ahhisoft]

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