'包含汉字的URL转码函数
Private Function vbEscape(psstring As String) As String Dim nTemp,stemp,stempChar,nTempAsc For nTemp = 1 To Len(psstring) stempChar = Mid(psstring,nTemp,1) nTempAsc = AscW(stempChar) If (nTempAsc >= 48 And nTempAsc <= 57) Or (nTempAsc >= 65 And nTempAsc <= 90) Or (nTempAsc >= 97 And nTempAsc <= 122) Or InStr("@*_+-./",stempChar) > 0 Then stemp = stemp & stempChar ElseIf nTempAsc > 0 And nTempAsc < 16 Then stemp = stemp & "%0" & Hex(nTempAsc) ElseIf nTempAsc >= 16 And nTempAsc < 256 Then stemp = stemp & "%" & Hex(nTempAsc) Else stemp = stemp & "%u" & Hex(nTempAsc) End If Next vbEscape = stemp End Function