文本格式控制问题！

[lingxiang]

我在后台将一篇文章在文本域中排好格式，然后用以下coder函数格式化后存如数据库文本类字段，在我前台输出页面显示的文章格式正确。但是我在后台要修改篇文章时，使用<%=rs("field")%>输出到文本域时，文章里夹带着HTML标记，如<br>，这么解决的？
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 "&" : result=result+"&"
case chr(9) : result=result+"    "
case chr(13) : result=result+"<br>"
case chr(32) : result=result+" "
case chr(34) : result=result+"""
case chr(39) : result=result+"'"
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function