一个用于文本字段存入及显示用的代码，asp写的，早些年很常用的东东，仍在维护asp站点的朋友，或许可以用到。
<%
function dvHTMLEncode(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> ")
dvHTMLEncode = fString
end if
end function
function dvHTMLCode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, " "," ")
fString = Replace(fString, """, CHR(34))
fString = Replace(fString, "'", CHR(39))
fString = Replace(fString, "</P><P> ",CHR(10) & CHR(10))
fString = Replace(fString, "<BR> ", CHR(10))
dvHTMLCode = fString
end if
end function
%>
以下为itlearner注解，本函数的使用方法。如获取表单值时，使用：
在修改内容时，使用：
这样，如果Title这个字段中存在双引号，单引号，尖括号之类的代码时，可以正常存储和显示。