asp 过滤html <>敏感字符转换成html编码实例

function dvHTMLCode(byval fString)
 if isnull(fString) or trim(fString)="" then
  dvHTMLCode=""
  exit function
 end if
    fString = replace(fString, ">", ">")
    fString = replace(fString, "<", "<")

    fString = Replace(fString,  " "," ")
    fString = Replace(fString, """, CHR(34))
    fString = Replace(fString, "'", CHR(39))
    fString = Replace(fString, "

",CHR(10) & CHR(10))
    fString = Replace(fString, "
", CHR(10))

    dvHTMLCode = fString
end function
%>

 
 
 
 

   
   
   
 

 

   
   
   
 

<%
if request("action") = "submit" then
 ubbHtml =  request.Form("textarea")
 ubbTitle = request.Form("textfield")
 if ubbHtml <>"" then
  htmlCode = dvHTMLCode(ubbHtml)
 else
  '保存数据
 end if
else
 response.Write("未提交内容")
end if

' 我们在显示时用到
response.Write(dvHTMLEncode(htmlCode)) '这样就可以完美的过滤破坏数据或页面效果的代码
function dvHTMLEncode(byval fString)
 if isnull(fString) or trim(fString)="" then
  dvHTMLEncode=""
  exit function
 end if
    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), "

")
    fString = Replace(fString, CHR(10), "
")

    dvHTMLEncode = fString
end function
'本站原创转载注明www.111com.net