function chinese2unicode(str)
dim i
dim str_one
dim str_unicode
for i=1 to len(str)
    str_one=mid(str,i,1)
    str_unicode=str_unicode&chr(38)
    str_unicode=str_unicode&chr(35)
    str_unicode=str_unicode&chr(120)

  /**
   * gb2utf8 指定的文字转换为UTF-8格式，包括中英文混合
   * $gb 传过来的GB字符，下面的方法类似
   */
  function gb2utf8($gb) {
    if(!trim($gb))
    return $gb;
    $filename="./gb2312.txt";
    $tmp=file($filename);

'汉字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)