很多论谈里的回复文本框可以在线简单的编辑文本格式及段落,怎么做的?学什么语言才会做?

给出一个函数：
function HTMLEncode(fString)
if not isnull(fString) then
fstring=replace(fstring,"&","& a m p;") '&号
fString = Replace(fString, ">", "& g t ;")
fString = Replace(fString, "<", "& l t ;")
fString = Replace(fString, CHR(34), "& q u o t ;") '双引号
fString = Replace(fString, CHR(39), "& # 3 9 ;") '单引号
fString = Replace(fString, CHR(32)&CHR(32), "& n b s p ; ") '空格
fString = Replace(fString, CHR(9), " & n b s p ;") 'tab键值
fString = Replace(fString, CHR(10), " < b r > ") '换行
fString = Replace(fString, CHR(13), " ") '回车
fstring=replace(fstring," "," & n b s p ; ")
HTMLEncode = fString
end if
end function
%>
函数功能：
1、过滤特殊字