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