VB URL编码函数

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

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】

相关文章

vb参考资料.jpg

VB编程语言参考手册

VB编程语言参考手册资源目录：小歆网盘：VB编程语言参考手册.rar...

VB获取网页源代码的五种方法

方法1：inet控件调用方法 Inet1.OpenURL 添加microsoft ineternet transfor conctrol6.0 控件 &n...

VB字符串函数大全

Abs(number) 返回绝对值。 Array(arglist) 创建一个数组。 Asc(string) 返回字符串第一个字符的ANSI码。 Atn(number) 返回反...

VB键盘代码真值表

VB键盘代码常量值 (0x...

[小歆][LOL昵称查询QQ号工具][V1.0][2014.03.20]

[小歆][LOL昵称查询QQ号工具][V1.0][2014.03.20]

名称：LOL昵称查询QQ号工具V1.0 作者：小歆说明：通过腾讯的游戏人生来获取的... 程序下载：LOL昵称查询QQ号工具V1.0（80...

VB UTC+8校正源码

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

发表评论