如何处理提交的这字符

[jianbin2001]

用textarea提交了一段话，怎么处理成html格式，也就是格式要跟打在textarea中的显示效果一样？

[chinaworker]

replace函数替换

[jianbin2001]

能不能写点具体代码，具体要把哪些替换？？

[Tal]

replace(str,chr(13)&chr(10),"<br>")

[jianbin2001]

能不能写全点

[yymzzl]

function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode = fString
end if
end function


用HTMLEcode 把 textarea 的内容转换一下就可以了

[liuyangxuan]

劝楼主用UBB代码，很全的！

[liuyangxuan]

function dvHTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, "&#", "<I>&#</I>")

fString = Replace(fString, CHR(32), "<I></I> ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")

fString=ChkBadWords(fString)
dvHTMLEncode = fString
end if
end function