asp过滤html代码函数

只简单的写了一些,

function html_encode(html)
dim temp
temp=replace(html,"<","<")
temp=replace(temp,">",">")
temp=replace(temp,"'","单引号")
temp=replace(temp,chr(13),"<br>")
html_encode=replace(temp,chr(32)," ")
end function
'*********************************************************
function encode_html(encode)//这个是在输出时再还原以前处理过了.
dim temp
temp=replace(encode,"<","<")
temp=replace(temp,">",">")
temp=replace(temp,"单引号","'")
temp=replace(temp,"<br>",chr(13))
encode_html=replace(temp," ",chr(32))
end function