代码收藏

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 = Request.Form("Title")
Title = dvhtmlencode(Title)
%>

在修改内容时，使用

<input type="text" name="Title" size="66" id="Title" value="<%=dvHTMLCode(rs("Title"))%>">

这样，如果Title这个字段中存在双引号，单引号，尖括号之类的代码时，可以正常存储和显示。