请问表单提交的文本换行显示的问题
在文本框中编辑文本,换行后提交到数据库,网页调用显示没法换行
要把一个什么值替换成<br>;我忘了那个了,能不能告诉我呢
问题点数:20、回复次数:4Top
1 楼wujl(吴天)回复于 2003-07-01 14:45:04 得分 5
要把<br>替换成chr(13)Top
2 楼zhangshengyu(Interested in:filesystem, Storage, Filter Drivers )回复于 2003-07-01 15:01:24 得分 5
文本中取ASCII码为13的数换成<BR>Top
3 楼Cooly(☆不做开发很久了......☆)回复于 2003-07-01 15:04:12 得分 5
Replace(strings,vbCrlf,"<br>")
其中 vbCrlf=Chr(13) & Chr(10)Top
4 楼yegucheng(无名)回复于 2003-07-01 15:20:07 得分 5
调用函数:
<%
Function Changechr(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, "</P><P> ", CHR(10) & CHR(10))
fString = Replace(fString, "<BR>", CHR(10))
fString = Replace(fString, "<BR>", "<br>")
Changechr = fString
End if
End function
%>
倒入时调用
<%=Changechr(request.form("名字"))%>Top



