Function URLEncoding(vstrIn) strReturn = "" For vbs_Index = 1 To Len(vstrIn) ThisChr = Mid(vStrIn,vbs_Index,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 URLEncoding = strReturn End Function 或者用上述代码把中文转换一下再传。
Function URLEncoding(vstrIn)
strReturn = ""
For vbs_Index = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,vbs_Index,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
URLEncoding = strReturn
End Function
或者用上述代码把中文转换一下再传。
如果是页面文件传递,你用js的函数encodeURIComponent
如果是程序文件传递,你用php的函数urlencode
然后直接接收就行了