Question

vb url编码/解码

求代码

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏15（财富值+成长值）

Answer 1

'编码函数
Public Function URLEncode(ByRef strURL As String) As String 
Dim I As Long 
Dim tempStr As String 
For I = 1 To Len(strURL) 
If Asc(Mid(strURL, I, 1)) < 0 Then 
tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2) 
tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr 
URLEncode = URLEncode & tempStr 
ElseIf
 (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) 
Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 
122) Then 
URLEncode = URLEncode & Mid(strURL, I, 1) 
Else 
URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1))) 
End If 
Next 
End Function 



'解码函数
Public Function URLDecode(ByRef strURL As String) As String 
Dim I As Long 

If InStr(strURL, "%") = 0 Then URLDecode = strURL: Exit Function 

For I = 1 To Len(strURL) 
If Mid(strURL, I, 1) = "%" Then 
If Val("&H" & Mid(strURL, I + 1, 2)) > 127 Then 
URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, I + 1, 2) & Mid(strURL, I + 4, 2))) 
I = I + 5 
Else 
URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, I + 1, 2))) 
I = I + 2 
End If 
Else 
URLDecode = URLDecode & Mid(strURL, I, 1) 
End If 
Next 
End Function