方式一：将没有格式信息的文本中的格式转换成HTML代码，再保存到数据库中
content=HTMLEncode(content)
function HTMLEncode(content)
if not isnull(content) then
　content = Replace(content, ">", ">")
　content = Replace(content, "<", "&lt;")
　content = Replace(content, " ", "&nbsp;")
　content = Replace(content, CHR(32), "&nbsp;")
　content = Replace(content, CHR(34), "&quot;") '这是转换双引号
　content = Replace(content, CHR(39), "&#39;") '这是转换单引号
　content = Replace(content, CHR(13), "")
　content = Replace(content, CHR(10) & CHR(10), "</P><P>")
　content = Replace(content, CHR(10), "<BR />")
HTMLEncode = content
end if
end function
经过以上转换，就可直接将变量content的内容增加到数据库中了！

逆向使用以上公式
方法二：将数据库中已有HTML格式信息的内容中的HTML代码去除掉，还原成输入时的样子
leavewords=HTMLEncodeB(leavewords)
function HTMLEncodeB(leavewords)
if not isnull(leavewords) then
　leavewords= Replace(leavewords,"&gt;" ,">")
　leavewords= Replace(leavewords,"&lt;" ,"<")
　leavewords= Replace(leavewords,"&nbsp;" ," ")
　leavewords= Replace(leavewords,"&nbsp;" ,CHR(32))
　leavewords= Replace(leavewords,"&quot;" ,CHR(34)) '这是转换双引号
　leavewords= Replace(leavewords, "&#39;",CHR(39)) '这是转换单引号
　leavewords= Replace(leavewords,"" ,CHR(13))
　leavewords= Replace(leavewords,"</P><P>" ,CHR(10) & CHR(10))
　leavewords= Replace(leavewords,"<BR />" ,CHR(10))
HTMLEncodeB = leavewords
end if
end function

方法三：直接将HTML代码去掉(或按第二种方式换转)（不要FUNCTING那一句）
leavewords=listbook("LeaveWords")
leavewords= Replace(leavewords,"&gt;",vbNullString)
leavewords= Replace(leavewords,"&lt;" ,vbNullString)
leavewords= Replace(leavewords,"&nbsp;" ,vbNullString)
leavewords= Replace(leavewords,"&nbsp;" ,vbNullString)
leavewords= Replace(leavewords,"&quot;" ,vbNullString)
leavewords= Replace(leavewords, "&#39;",vbNullString)
leavewords= Replace(leavewords," " ,vbNullString)
leavewords= Replace(leavewords,"</P><P>" ,vbNullString)
leavewords= Replace(leavewords,"<BR />" ,vbNullString)

注意，如果在一个页面中同时使用以上函数，则要用不同的名称，即将HTMLEncodeB改为不同的名称！