求一函数，如何格式化一字符串？

Question

把 chr(13)+chr(10)转换为 <br>
或用<pre><%=rs("nr")%></pre>

Answer 1

显示也用<textarea style="overflow:hidden"><%=content></textarea>

Answer 2

<table><tr><td><textarea rows=<%=Split(content).length> style="height:100%;overflow:hidden"><%=content></textarea></td></table>

Answer 3

用Server.HTMLEncode()应该可以了，如果还有问题就按楼上的将回车换行替换为<br>。

Answer 4

回车换行替换为<br>,空格替换成&nbsp;

Answer 5

<%
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 %>

Answer 6

输出时就content=coder(rs("content"))

Answer 7

<pre>
<%asp resource code%>
</pre>

Answer 8

我要用javascript写的代码。我写了一个不对，信息要显示在table中

Answer 9

try:
<textarea id=txt rows="1" cols="20" ></textarea><input type=submit onclick="coder()">
<script language="javascript">                                           
function coder(){
var str=document.all.txt.value;
var result="";
for(i=0;i<str.length;i++){
switch(str.substring(i,i+1)){
case "<": result=result+"&lt;";break
case ">": result=result+"&gt;";break
case "\"":result=result+"&quot;";break
case "&": result=result+"&amp;";break
case " ":result=result+"&nbsp;";break
case "\r":result=result+"<br>";break
default: result=result+str.substring(i,i+1);break 
}
}
document.all.td1.innerHTML=result;
}
</script><table border="1" width="200" height="200" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%" id=td1 valign=top style="word-break:break-all">　</td>
  </tr>
</table>