asp 字符转换 Unicode

<%Function CodeToUni(code)dim ix,thisStr,ThisCode,newcodeif code="" then codetouni="" exit functionend if for ix=1 to len(code)thisstr=right(left(code,ix),1)thiscode=hex(ascw(thisstr))if len(thiscode)=1 then thiscode="000"+thiscodeelseif len(thiscode)=2 then thiscode="00"+thiscode elseif len(thiscode)=3 then thiscode="0"+thiscode end ifnewcode=newcode+thiscodenextcodetouni=newcode End FunctionFunction UniToCode(unic)dim ixx,thisUni,oricode,fst,sec,trd,fth,oristrif unic="" then unitocode="" exit functionend if for ixx=1 to len(unic)/4thisuni=right(left(unic,ixx*4),4)if left(thisuni,2)="00" then thisuni=right(thisuni,2) fst=gethexv(right(thisuni,1)) sec=gethexv(left(thisuni,1)) oricode=chr(sec*16+fst) oristr=oristr+oricodeelse fst=gethexv(right(thisuni,1)) sec=gethexv(right(left(thisuni,3),1)) trd=gethexv(right(left(thisuni,2),1)) fth=gethexv(left(thisuni,1)) oricode=chrw(fth*16*16*16+trd*16*16+sec*16+fst) oristr=oristr+oricodeend if nextunitocode=oristr End FunctionFunction GetHexV(ST)SELECT CASE STCASE "0" GETHEXV=0CASE "1" GETHEXV=1 CASE "2" GETHEXV=2CASE "3" GETHEXV=3 CASE "4" GETHEXV=4CASE "5" GETHEXV=5 CASE "6" GETHEXV=6CASE "7" GETHEXV=7 CASE "8" GETHEXV=8CASE "9" GETHEXV=9 CASE "A" GETHEXV=10CASE "B" GETHEXV=11 CASE "C" GETHEXV=12CASE "D" GETHEXV=13 CASE "E" GETHEXV=14CASE "F" GETHEXV=15 END SELECT End Function%><%=CodeToUni("根叔厨房")%><br /><%=UniToCode("683953D453A8623F")%>