
 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)     
          Str_unicode=Str_unicode&   Hex(ascw(Str_one))     
          Str_unicode=Str_unicode&chr(59)     
      next     
      Response.Write   Str_unicode     
  end   function   
