欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
上一篇
下一篇
05-06
02
URL编码函数
作者:枕善居主 / 查看次数: 6330 / 评论: 3
今天忙中抽闲发一个URL的编码函数。
Option Explicit
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
Private Sub Command1_Click()
Text1 = URLEncode("http://www.mndsoft.com")
End Sub
Option Explicit
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
Private Sub Command1_Click()
Text1 = URLEncode("http://www.mndsoft.com")
End Sub
相关日志:
文章来自: 
引用通告: 
Tags: 
评论: 3 | 
回复
ice_mndsoft
[2009-03-06 20:21:04 | 
| 
]发表评论
您没有权限发表评论！
