最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp过滤html代码函数
时间:2022-07-02 23:20:06 编辑:袖梨 来源:一聚教程网
只简单的写了一些,
function html_encode(html)
dim temp
temp=replace(html,"<","<")
temp=replace(temp,">",">")
temp=replace(temp,"'","单引号")
temp=replace(temp,chr(13),"
")
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,"
",chr(13))
encode_html=replace(temp," ",chr(32))
end function