vb.net编码
发布时间:2020-12-16 22:28:28 所属栏目:大数据 来源:网络整理
导读:Public Function URLEncode(ByVal input_url As String) As String Dim count As Long Dim one_char As String URLEncode = "" For count = 1 To Len(input_url) one_char = Mid$(input_url,count,1) If InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",UCase
Public Function URLEncode(ByVal input_url As String) As String Dim count As Long Dim one_char As String URLEncode = "" For count = 1 To Len(input_url) one_char = Mid$(input_url,count,1) If InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",UCase$(one_char)) = 0 Then one_char = "%" & Right$("0" & Hex$(Asc(one_char)),2) End If URLEncode = URLEncode & one_char Next End Function (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |