用VB中inet控件发送post表单到utf-8的网页里，生成的网页是乱码啊，怎么办！？？？

[zgqtxwd]

咋办

[zgqtxwd]

等待

[zgqtxwd]

高手，过来坐坐

[xuzejun]

什么样的乱码？

[zgqtxwd]

好像是utf-8的接收过来就是乱码了

[wlnh]

顶下，我也遇到这样的问题！

不知编码怎么转

[fisheep_works]

用对应的编码转换一下就行了
'utf-8编码
Function URLEncodeUTF8(szInput As String) As String
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3

If szInput = "" Then
Exit Function
End If

For x = 1 To Len(szInput)
wch = Mid(szInput, x, 1)
nAsc = AscW(wch)

If nAsc < 0 Then nAsc = nAsc + 65536

If (nAsc And &HFF80) = 0 Then
szRet = szRet & wch
Else
If (nAsc And &HF000) = 0 Then
uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & "%" & Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
Else
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
End If
End If
Next

szRet = Replace$(szRet, " ", "%20")

URLEncodeUTF8 = szRet
End Function

'gb2312编码
Function URLEncoding(vstrIn) As String
strReturn = ""
Dim i
For i = 1 To Len(vstrIn)
ThisChr = Mid(vstrIn, i, 1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00) \ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
strReturn = Replace(strReturn, Chr(32), "%20")
URLEncoding = strReturn
End Function

[fuzq1314]

有没有GBK的呀

[qap22]

ding

[koktiger]

/////////////学习了