把换行替换成<br><form onsubmut="content.value=content.value.replace(/\r/g,'<br>')">
<textarea name="content" rows="14" clos="100"></textarea>
<textarea name="content" rows="14" clos="100"></textarea>
这下好了,哎,我太菜了,
什么地方有这样的教程让我学啊,可以介绍给我吗,
我只知道很少的,多亏有你们帮助,不然又不知道怎么办了,谢谢了
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
中间没有回车的:
显示的结果会是很长的一条aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
你的信誉分怎么那么高啊,我只能用仰视的角度看你了。佩服。
<%
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 %>
'格式公入库
<%
function kbbs(stru)
if not isnull(stru) then
stru = replace(stru, ">", ">")
stru = replace(stru, "<", "<")
stru = Replace(stru, CHR(32), " ")
stru = Replace(stru, CHR(9), " ")
stru = Replace(stru, CHR(34), """)
stru = Replace(stru, CHR(39), "'")
stru = Replace(stru, CHR(13), "")
stru = Replace(stru, CHR(10), " ")
kbbs = stru
end if
end function
%>
echo nl2br($row[content]); // 解决第一问
echo "</td>";
echo "<pre>";
echo $row[content];
echo "</pre>';
echo "</td>";
问题就解决了,呵呵
现在的问题是软回车怎么转换为<br>?
echo "<td style='width:100%; WORD-WRAP: break-word;'>"; // 解决第二问
echo nl2br($row[content]); // 解决第一问
echo "</td>";
的意思讲清楚点吗,我可是看的一头雾水,因为结果好象还是以前那样!