复制代码 代码如下:

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,""") '解决韩文字符问题

if IsSqlDataBase=0 then '过滤片假名(日文字符)[u30A0-u30FF] by yuzi首创

fString=escape(fString)

fString=ReplaceText(fString,"%u30([A-F][0-F])","")

fString=unescape(fString)

end if

HTMLEncode=fString

end function