字符编码转换问题，GB2312转成UTF-8

[咏帆]

如题

在做WAP中首要解决的问题

搞了好久，还是没搞定！~

请知道的给出解决方法

[咏帆]

自己先顶了

[咏帆]

郁闷。。。。。
没人回答。。。。。。。。。。

[bletao]

<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">

[hzw66]

Response.CharSet = "UTF-8"

[咏帆]

这个不能完全解决

从数据库中查询出来的数据显示就会出错了

[kkgolf]

Function FilterUnicode2UTF_8(ByRef strUnicode)
dim i,strMid,strStream,ascWord
'strUnicode=Replace(strUnicode,vbCrLf,"")
for i=1 to len(strUnicode)
strMid=Mid(strUnicode,i,1)
ascWord=Asc(strMid)
if (ascWord<0 or ascWord>127) then
strStream=strStream+"&#x"+FormatHex4(ascW(strMid))+";"
else
strStream=strStream+strMid
end if
next
FilterUnicode2UTF_8=strStream
End Function
Function FormatHex2(num)
num=num and &HFF
if num<16 then
FormatHex2="0"+Hex(num)
else
FormatHex2=Hex(num)
end if
End Function

Function FormatHex4(num)
dim high,low
high=(num and &HFF00)\&H100
low=num and &HFF
FormatHex4=FormatHex2(high)&FormatHex2(low)
End Function

试试这个函数 FilterUnicode2UTF_8(ByRef strUnicode)

[ecwy]

我试试

[syspring]

这个东西当初我也搞了好久没搞出来，后来用C#一句就搞定了

[gu1dai]

ICONV
php中的函数，轻易搞定

[pyusksk503]

sdfsdf