以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 天气预报实例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84152)

--  作者:zcgmxf
--  发布时间:2016/4/24 11:32:00
--  [求助] 天气预报实例
老师,获取天气预报的实例中,点击“更新信息”按钮时提示语法错误,好像是下面的代码有问题,不知道错在哪里,请指点。

    json = XMLH.responseText
    JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
    ScriptControl = CreateObject("MSScriptControl.ScriptControl")
    With ScriptControl
        .Language = "Javascript"
        .Timeout = -1
        .AddCode(JscriptCode)
        data = .Run("toObject", json)
    End With

--  作者:大红袍
--  发布时间:2016/4/24 12:32:00
--  

 天气预报参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82183&skin=0