大家对gb2312转utf-8的函数见得可能很多了。
再此，我给大家提供了一个自己编写的utf-8-->gb2312函数
<%
Function Utf8_Gb2312(Searchstring)
Dim Seachchar1, Seachchar2, MyPos1, MyPos2, string1, string2, i, Output_content
Seachchar1 = "&#x"
Seachchar2 = ";"
While InStr(Searchstring, "&#x") <> 0
i = i + 1 '定义i
MyPos1 = InStr(Searchstring, Seachchar1) + Len(Seachchar1)
string1 = Left(Searchstring, MyPos1 - 1)
Searchstring = Replace(Searchstring, string1, "", 1, 1)
MyPos2 = InStr(Searchstring, Seachchar2) - Len(Seachchar2)
string2 = Left(Searchstring, MyPos2 + Len(Seachchar2) - 1)
Searchstring = Replace(Searchstring, string2, "", 1, 1)
Output_content = Output_content + ChrW(CInt("&H" & string2))
Wend
Utf8_Gb2312 = Output_content
End Function
%>
其实我开发的BicyleWapTool中关于gb2312-->utf-8就是利用上面的的函数。
大家可以直接在wap或web网页中直接利用此函数。