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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-125363/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-125363/