28,390
社区成员
发帖
与我相关
我的任务
分享
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