别人写好的代码:
function htmlencode(fstring)
fstring=replace(fstring,">",">")
fstring=replace(fstring,"<","<")
fstring=replace(fstring,chr(13),"")
fstring=replace(fstring,chr(10)&chr(10),"</p><p>")
fstring=replace(fstring,chr(10),"<br>")
htmlencode=fstring
end function