function htmlencode(fstring)
fstring=replace(fstring,";",";")
fstring=replace(fstring,"<","<")
fstring=replace(fstring,">",">")
fstring=replace(fstring,"\","\")
fstring=replace(fstring,"--","--")
fstring=replace(fstring,chr(9)," ")
fstring=replace(fstring,chr(10),"<br>")
fstring=replace(fstring,chr(13),"")
fstring=replace(fstring,chr(22),"")
fstring=replace(fstring,chr(32)," ")
fstring=replace(fstring,chr(34),""")'双引号
fstring=replace(fstring,chr(39),"'")'单引号
fstring=replacetext(fstring,"([0-9]*);","$1;") '解决韩文字符问题
if issqldatabase=0 then '过滤片假名(日文字符)[\u30a0-\u30ff] by yuzi首创
fstring=escape(fstring)
fstring=replacetext(fstring,"%u30([a-f][0-f])","0$1;")
fstring=unescape(fstring)
end if
htmlencode=fstring
end function
如对本文有疑问,
点击进行留言回复!!
网友评论