在asp取文本内容用下函数作格式化。
<%
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 %>
然后在<td><%=coder(rs1("col_lob"))%></td>
当然,取clob时用to_clob(col_lob)函数;
如:select to_clob(col_lob) col_lob from table_name;
<%
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 %>
然后在<td><%=coder(rs1("col_lob"))%></td>
当然,取clob时用to_clob(col_lob)函数;
如:select to_clob(col_lob) col_lob from table_name;
还有你把文本读入的时候文本本身有格式符吗?有的话,是怎样表示的?
用java的话,你必须把他们在输出到html之前过滤一下,将空格表示成
将<表示成<等等,特殊字符必须经过html过滤器,否则显示不出来的。
我没有进行转换,但是在同一篇文章中我加的<br>是能用的呀,该换行的他就换行了
不过<pre></pre>中的换行和空格要转吗,如果转的话,怎么转,因为在<pre></pre>的换行和空格在html代码中是看不出来的