强制换行在表格里面用:<td width=* style="WORD-BREAK: break-all"> 输出写个函数吧:
<%
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+"&lt;"
case ">"     : result=result+"&gt;"
case chr(34) : result=result+"&quot;"
case "&"     : result=result+"&amp;"
case chr(13) : result=result+"<br/>"
case chr(9)  : result=result+"&nbsp; &nbsp; "
case chr(32) : result=result+"&nbsp;"
case else    : result=result+mid(str,i,1)
  end select
Next
 coder=result
End Function %>