asp下为什么韩文字后面显示分号?

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› ASP.NET›ASP.NET编程经验

原作者: [db:作者] 来自: [db:来源] 收藏邀请

function HTMLEncode(fString) 
fString=Replace(fString,";","&#59;") 
fString=Replace(fString,"<","&lt;") 
fString=Replace(fString,">","&gt;") 
fString=Replace(fString,"\","&#92;") 
fString=Replace(fString,"--","&#45;&#45;") 
fString=Replace(fString,CHR(9),"&#9;") 
fString=Replace(fString,CHR(10),"<br>") 
fString=Replace(fString,CHR(13),"") 
fString=Replace(fString,CHR(22),"&#22;") 
fString=Replace(fString,CHR(32),"&#32;") 
fString=Replace(fString,CHR(34),"&#34;")'双引号 
fString=Replace(fString,CHR(39),"&#39;")'单引号 
fString=ReplaceText(fString,"&#([0-9]*)&#59;","&#$1;") '解决韩文字符问题 
if IsSqlDataBase=0 then '过滤片假名(日文字符)[\u30A0-\u30FF] by yuzi首创 
fString=escape(fString) 
fString=ReplaceText(fString,"%u30([A-F][0-F])","&#x30$1;") 
fString=unescape(fString) 
end if 
HTMLEncode=fString 
end function 