指定一段GB2312编码中文汉字转换成UTF-8编码的ASP函数代码

'汉字GB2312编码转换成UTF-8编码
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