'格式化出库 <% 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 %>
这下好了,哎,我太菜了,
什么地方有这样的教程让我学啊,可以介绍给我吗,
我只知道很少的,多亏有你们帮助,不然又不知道怎么办了,谢谢了
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>";
的意思讲清楚点吗,我可是看的一头雾水,因为结果好象还是以前那样!