有关htmlcode转换

[羽毛之家]

<%
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
我把textarea输入的内容做以下代码处理存于数据库中
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 %>
但我要从数据库中读出再放于textarea中，要如何处理呢，急等！！高手指教！

[wocall]

最好的办法是，添加和修改数据库内容的时候不做处理，需要调出来的时候才作处理，这样便能方便地实现你想要的结果。而且还节省资源。

[羽毛之家]

不做处理能把所有的字符都输入进去吗？？？？？？