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首創(chuàng) 
fString=escape(fString) 
fString=ReplaceText(fString,"%u30([A-F][0-F])","0$1;") 
fString=unescape(fString) 
end if 
HTMLEncode=fString 
end function