换不了行的问题！

[yzeiczw]

<textarea name="ywjwjl" cols=40 rows=5 ><%=rs.fields("ywjwjl")%>
</textarea>
我在textarea添加的时候可以换行,但是用上面的显示出来却不换行
我想请问如何让显示出来的字符自动换行,即<%=rs.fields("ywjwjl")%>显示出来能换行，而不至于仅仅一行!
谢谢！

[cshadow]

写个函数搞定
<%

Function coder(str)

Dim result,L,i

If IsNull(str) Then : coder="" : Exit Function : End If

L=Len(str) : result=""

For i = 1 to L

select case mid(str,i,1)

case "<" : result=result+"<"

case ">" : result=result+">"

case chr(34) : result=result+"""

case "&" : result=result+"&"

case chr(13) : result=result+"<br>"

case chr(9) : result=result+" "

case chr(32) : result=result+" "

case else : result=result+mid(str,i,1)

end select

Next

coder=result

End Function %>

[yzeiczw]

太麻烦了
用这个!
style="word-break:break-all"

[likecola]

同意~你要转一下，然后在存入数据库

[13617650029]

可以这样 读取的时候用
<%=replace(replace(rs.fields("ywjwjl")," ","<br>"),vbcrlf,"<br>")%>

[sxsgssgs]

录入的时候先把数据格式化，然后再插入数据库
这样在显示的时候就会还原格式了。
用下面的函数：

function DelHtml(str)
Dim tempStr
tempStr=str
If Not IsNull(tempStr) Then
tempStr=Replace(tempStr,"<","<")
tempStr=Replace(tempStr,">",">")
tempStr=Replace(tempStr,"&#","<i>&#</i>")
tempStr=Replace(tempStr,"'","'")
tempStr=Replace(tempStr,"""",""")
tempStr=Replace(tempStr,Chr(13),"")
tempStr=Replace(tempStr,Chr(10),"<br>")
tempStr=Replace(tempStr,Chr(32)," ")
tempStr=Replace(tempStr,Chr(9)," ")
DelHtml=tempStr
End If
end function

content=DelHtml(request.form("content"))
sql="insert into news(content) values('"&content&"')"

[wlz000]

不应该呀