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])","&#x30$1;")

　　fString=unescape(fString)

　　end if

　　HTMLEncode=fString

　　end function