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

zgqtxwd 2008-05-01 01:50:39
咋办
...全文
287 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
koktiger 2009-03-17
  • 打赏
  • 举报
回复
/////////////学习了
qap22 2008-12-09
  • 打赏
  • 举报
回复
ding
fuzq1314 2008-12-09
  • 打赏
  • 举报
回复
有没有GBK的呀
fisheep_works 2008-12-05
  • 打赏
  • 举报
回复
用对应的编码转换一下就行了
'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
wlnh 2008-11-15
  • 打赏
  • 举报
回复
顶下,我也遇到这样的问题!

不知编码怎么转
zgqtxwd 2008-05-02
  • 打赏
  • 举报
回复
好像是utf-8的接收过来就是乱码了
xuzejun 2008-05-02
  • 打赏
  • 举报
回复
什么样的乱码?
zgqtxwd 2008-05-02
  • 打赏
  • 举报
回复
高手,过来坐坐
zgqtxwd 2008-05-01
  • 打赏
  • 举报
回复
等待

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧