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这个字段中存在双引号，单引号，尖括号之类的代码时，可以正常存储和显示。

Popularity: 100%