asp汉字转换gb2312为UTF-8函数代码

分享一个汉字转换为UTF-8编码的函数 

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      

上一个：php程序utf-8读取纯真ip库乱码解决方法
下一个：asp里面把utf-8转换成gb2312的函数源码