2.8w+
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
landsky 2002-08-02
问题解决,只有楼上的这种方法通过
多谢楼上
多谢楼上
MeXP 2002-08-02
<%=replace(rs("content"),chr(13) & chr(10),"<br>")%>
MeXP 2002-08-02
<%=replace(rs("content"),vbcrlf,"<br>")%>
lanying 2002-08-02
输出前处理
str = Replace(Request("textarea1"),vbCrLf,"<BR>")
str = Replace(str," "," ")
Response.Write str
str = Replace(Request("textarea1"),vbCrLf,"<BR>")
str = Replace(str," "," ")
Response.Write str
gq 2002-08-02
function changetext(str)
str2=server.HTMLEncode(str)
str2=replace(str2,chr(13),"<br>")
doublespace=" "
for sp=2 to 20
doublespace=doublespace & " "
str2=replace(str2,space(sp),doublespace)
next
changetext=str2
end function
用该函数进行处理。
str2=server.HTMLEncode(str)
str2=replace(str2,chr(13),"<br>")
doublespace=" "
for sp=2 to 20
doublespace=doublespace & " "
str2=replace(str2,space(sp),doublespace)
next
changetext=str2
end function
用该函数进行处理。