VB URL编码函数

小歆12年前 (2014-04-14)软件源码03380

VB UTF-8 URL编码函数：

Public Function UTF8_URLEncoding(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
If szInput = "" Then
UTF8_URLEncoding = szInput
Exit Function
End If
For x = 1 To Len(szInput)
wch = Mid(szInput, x, 1)
nAsc = AscW(wch)
If nAsc < 0 Then nAsc = nAsc + 65536
If (nAsc And &HFF80) = 0 Then
szRet = szRet & wch
Else
If (nAsc And &HF000) = 0 Then
uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
Else
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
End If
End If
Next
UTF8_URLEncoding = szRet
End Function

VB GB2312 URL编码函数：

Public Function URLEncode(ByRef strURL)
Dim I
Dim tempStr
For I = 1 To Len(strURL)
If InStr("-,.0123456789/", Mid(strURL, I, 1)) Then
URLEncode = URLEncode & Mid(strURL, I, 1)
Else
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
End If
Next
End Function

标签: 小歆工作室教程 VB 源码

返回列表

上一篇：vb导出其他文件资源

下一篇：交错式ADC的基础知识【PDF】

相关文章

从Https跳转到Http时不传递HTTP_REFERER的解决方案

问题场景当http页面通过Referer获取上一个页面的URL时，如果上一个页面是https，则得到的Referer为空。例如在http页面的PHP代码中使用：$_SERVER['HTTP_REF...

VB获取网页中的验证码

VB获取网页中的验证码函数代码： Public Function GetImg(WebBrowser, Img, sxz) '参数 'WebBrowser:等获取验...

VB模拟POST网页上传文件模块【无控件】

VB模拟POST网页上传文件模块【无控件】

介绍已经集成mod模块，使用的时候直接调用FileUpload函数就可以了。程序是使用抓包软件将上传过程截取下来，通过post模拟上传头数据，再把文件转换为二进制上传到网站上的。...

VB中LostFocus、GotFocus事件的改进

---- VB中有一个LostFocus事件和一个GotFocus事件，看名字似乎是当当前窗口失去焦点或得到焦点时触发的事件。但在实际应用时却发现当这个窗口和Win...

VB获取本机公网IP源码

Function HttpGet(url) With CreateObject("Msxml2.ServerXMLHTTP") .open "GET", url, Fa...

用VB快速读取TextBox第N行的数据

TextBox 是以 vbCr+vbLf 为分行符号，如果我们要逐一读取 TextBox 每一行，无非是寻找 vbCr+vbLf 的所在位置，然后取出每一行的字串，不过这个方法不快，而且...

发表评论