ASP写的汉字转换为UTF-8的一段代码

汉字转换为UTF-8的一段代码
终于找到这段代码了，一个ASP写的中文转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
　 Response.Write Salon_unicode
end function