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
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－