<%
function f_ConvHtml(str)
    '屏蔽HTML有效字符
    str=trim(cstr(str))
    f_ConvHtml=Server.HTMLEncode(str)
end function

str="<a href=http://MaNongKu.com>hi</a>"
response.write f_ConvHtml(str)
%>

运行结果：

<a href=http://1.com>MaNongKu.com</a>