如何用VB实现URL编码与解码
发布网友
发布时间:2022-05-16 06:39
我来回答
共1个回答
热心网友
时间:2023-08-15 07:45
function URLEncode(nstr)
For i = 1 To Len(nstr)
nmid=Mid(nstr, i, 1)
nasc=Asc(nmid)
if nasc < 0 Then
nhex=right("000" & Hex(nasc),4)
URLEncode = URLEncode & "%" & Left(nhex, 2) & "%" & Right(nhex, 2)
elseif nmid=" " then
URLEncode = URLEncode & "+"
Elseif (nasc >= 48 And nasc <= 57) Or (nasc >= 65 And nasc <= 90) Or (nasc >= 97 And nasc <= 122) Then
URLEncode = URLEncode & nmid
Else
URLEncode = URLEncode & "%" & right("0" & Hex(nasc),2)
End if
Next
end function