以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  foxtable有没有函数encodeurl，decodeurl  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72394)
--  作者：Fotable
--  发布时间：2015/7/29 17:23:00
--  foxtable有没有函数encodeurl，decodeurl

decodeURI

 

如何把网址中的“字母+数字+百分号”转化成原文？

例如：%DA%D0%D6%D0%89%68d%A8%BA%B0%D7%B9%AC

 

在JavaScript中使用encodeURI来将字符串转换为URI编码，用decodeURI将编码转换为字符串。 那么foxtable有没有
--  作者：大红袍
--  发布时间：2015/7/29 17:39:00
--  

用javeScript方法

 

Dim str As String = "%E7%8B%90%E8%A1%A8"

Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toChinese(str) {return decodeURI(\'" & str & "\')}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toChinese", str)
End With

msgbox(data)
--  作者：大红袍
--  发布时间：2015/7/29 17:41:00
--  

用.net的方法

 

第一步,在外部引用里输入 System.Web.dll 点击添加,然后点击确定


然后使用如下代码,你可以放到命令窗口测试

Dim str As String =  "字符串"
Dim jm As String = System.Web.HttpUtility.UrlEncode(str)
output.show("加密后:" & jm)
output.show("解密后:" & System.Web.HttpUtility.UrlDecode(jm))