有朋友有方法把非英文和一般字符外的文字转utf-8吗?

[FMBen]

这个是一般使用的方法，但是这个方法会把英文字母也utf-8了不实用,有朋友有可以不转英文和字符为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
%>

[wtogether]

function chinese2unicode(Salon)
dim i
dim Salon_one
dim Salon_unicode
dim uni
for i=1 to len(Salon)
Salon_one=Mid(Salon,i,1)
uni = AscW(Salon_one)
If uni<0 Then uni = uni + 65536
If uni<128 Then
Response.Write Salon_one
Else
Response.Write "&#x" & Hex(ascw(Salon_one)) & ";"
End If
next
end function

[FMBen]

高，不错，我昨天晚上想了很久都没想出来，原来考虑转2进制后比较再转的,太麻烦了,还是你的代码好。立刻给粉。

[FMBen]

还是自己对字符编码不懂. -_-!