打印

求big5转unicode的vbscript代码

请教:
有高手知道怎么将big5转为unicode吗?
因为表单提交时不认识中文,
我要asp的,谢谢。
function chinese2unicode(Salon)
  dim i
  dim Salon_one
  dim Salon_unicode
  for i=1 to len(Salon)
      Salon_one=Mid(Salon,i,1)
      Salon_unicode=Salon_unicode&chr(38)
      Salon_unicode=Salon_unicode&chr(35)
      Salon_unicode=Salon_unicode&chr(120)
      Salon_unicode=Salon_unicode& Hex(ascw(Salon_one))
      Salon_unicode=Salon_unicode&chr(59)
   next
   chinese2unicode=Salon_unicode
end function