如何用VB实现URL编码与解码

function URLEncode(nstr)

创新互联，为您提供重庆网站建设公司、成都网站制作公司、网站营销推广、网站开发设计，对服务成都自上料搅拌车等多个行业拥有丰富的网站建设及推广经验。创新互联网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏心悦目的作品。 与客户共同发展进步，是我们永远的责任！

For i = 1 To Len(nstr)

nmid=Mid(nstr, i, 1)

nasc=Asc(nmid)

if nasc  0 Then

nhex=right("000"  Hex(nasc),4)

URLEncode = URLEncode  "%"  Left(nhex, 2)  "%"  Right(nhex, 2)

elseif nmid=" " then

URLEncode = URLEncode  "+"

Elseif (nasc = 48 And nasc = 57) Or (nasc = 65 And nasc = 90) Or (nasc = 97 And nasc = 122) Then

URLEncode = URLEncode  nmid

Else

URLEncode = URLEncode  "%"  right("0"  Hex(nasc),2)

End if

Next

end function

VB.Net中怎样将String转换为Url？

楼主啊。。我还没用过这种方法转到网页的..其实用WebBrowser1.Navigate ()即可实现网页转到

vb url编码/解码

'编码函数

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

vb.net 通过url传值

这是中文编码你没设置好。首先在Dreamweaver CS4里面，选择》》编辑》》首先参数》》 左侧选择 新建文档》》》默认编码》》简体中文gb2312.ok新建文档。把你原来的代码粘贴进去，最好重新写一下。测试

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""

html xmlns=""

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312" /

title解决中文乱码问题/title

/head

body

%

if request.QueryString("j")="j" then

response.write (request.Form("user"))

end if

%

form name="form1" method="post" action="?j=j"

label

input type="text" name="user" id="user"

/label

label

input type="submit" name="button" id="button" value="提交"

/label

/form

/body

/html

用我直接给你写的也ok

VB 问题，关于如何将非英文及数字的字符转换成URL编码？

添加两个text，和一个按钮，点按钮之后text1的内容就会转换为UTF-8的URL编码Function GBtoUTF8(szInput)

Dim wch, uch, szRet

Dim x

Dim nAsc, nAsc2, nAsc3'如果输入参数为空，则退出函数

If szInput = "" Then

GBtoUTF8 = 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 + 65536If (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

GBtoUTF8 = szRet

End Function

Private Sub Command1_Click()

Text2.Text = GBtoUTF8(Text1.Text)

End Sub

新闻标题：包含vb.neturl转码的词条
分享网址：http://kswjz.com/article/dodspeg.html