请问这些程序的意思和用处.

Form_content = KillHTMLLabel(Replace(Replace(Replace(Replace(Form_content,"</p>",VbCrLf & VbCrLf),"</P>",VbCrLf & VbCrLf),"<BR>",VbCrLf),"<br>",VbCrLf))
Form_PrintContent = UBB_FiltrateBadWords(PrintTrueText(Form_content))
Form_content = ""

Function ResumeCode(Tstr)

Dim str
str = Tstr
str = Replace(str,"&gt;",">")
Str = Replace(str,"&lt;","<")
Str = Replace(str,"&quot;","""")
Str = Replace(str," &nbsp; &nbsp; &nbsp;",chr(9))
Str = Replace(str,"<br>" & "&nbsp;",VbCrLf & " ")
Str = Replace(str,"<br>" & VbCrLf,VbCrLf)
Str = Replace(str,"&nbsp;"," ")
ResumeCode = Str

End Function

function HTMLEncode(text){
text = text.replace(/&/g, "&amp;") ;
text = text.replace(/"/g, "&quot;") ;
text = text.replace(/</g, "&lt;") ;
text = text.replace(/>/g, "&gt;") ;
text = text.replace(/'/g, "&#146;") ;
text = text.replace(/\ /g,"&nbsp;");
text = text.replace(/\n/g,"<br>");
text = text.replace(/\t/g,"&nbsp;&nbsp;&nbsp;&nbsp;");
return text;
}

function insert(what) {
if (!validateMode()) return;
LEADEDT.focus();
var sel = LEADEDT.document.selection.createRange();

switch(what){
case "nowdate":
var d = new Date();
insertHTML(d.toLocaleDateString());
break;
case "nowtime":
var d = new Date();
insertHTML(d.toLocaleTimeString());
break;
case "br":
insertHTML("<br>")
break;
case "code":
insertHTML('[CODE]'+HTMLEncode(sel.text)+'[/CODE]');
break;
case "quote":
insertHTML('[QUOTE]'+HTMLEncode(sel.text)+'[/QUOTE]');
break;
case "fly":
insertHTML('[FLY]'+HTMLEncode(sel.text)+'[/FLY]');
break;
default:
insertHTML("' + sel.text + "");
break;
}
sel=null;
}