如何让文本域以HTML代码存入数据库

来源：百度知道 编辑：UC知道 时间：2024/06/24 16:28:50
高手帮帮忙把
请问高手该如何将内容中的字符转换为html标记 ？谢谢啊
再说明白点

将内容中的字符转换为html标记
比如chr(10)转换为<br/>

FUNCTION txtToURL(TextValue)
Tekst_temp = TextValue

Tekst_temp = Replace(Tekst_temp,"<","<")
Tekst_temp = Replace(Tekst_temp,">",">")
Tekst_temp = Replace(Tekst_temp,"chr(13)","<BR>")
Tekst_temp = Replace(Tekst_temp,"#","<BR>")

Tekst_temp = Replace(Tekst_temp,Chr(13)," ")
Tekst_temp = Replace(Tekst_temp,"[","<B>")
Tekst_temp = Replace(Tekst_temp,"]","</B>")

Tekst_temp = Replace(Tekst_temp, CHR(32), " ") ' 
Tekst_temp = Replace(Tekst_temp, CHR(9), " ") ' 
Tekst_temp = Replace(Tekst_temp, CHR(34), """)
Tekst_temp = Replace(Tekst_temp, CHR(39), "'") '单引号过滤
Tekst_temp = Replace(Tekst_temp, CHR(10) & CHR(10), "<