汉字转换为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


评论

该日志第一篇评论

发表评论

评论也有版权!