将GB码转成Unicode的VBScript函数

<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