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

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