<script LANGUAGE=”VBScript” >
 Function c2u(text)
   For i=1 to Len(text)
   c=Mid(text,i,1)
   c2u=c2u&”&#x” & Hex(AscW(c)) & “;”
   next
  End Function 
</script>

 

来源:http://hawap.myrice.com/wml/gb2unicode.htm

 

发表评论