主题：foxtable有没有函数encodeurl，decodeurl

用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)