首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

XMLHTTP方法读取网页的有关问题

2012-09-14 
XMLHTTP方法读取网页的问题下面这段代码可以正常使用,但是如果用来传相同的参数给一个网址后,每出都返回的

XMLHTTP方法读取网页的问题
下面这段代码可以正常使用,但是如果用来传相同的参数给一个网址后,每出都返回的是相同的结果,
更换一个参数,再换回原参数后,返回结果就变了,是怎么回事

传参数的网址,在浏览器访问的话,每次返回基本都是不一样的,

遇到过这种情况的请帮忙看看,怎么清空XMlhttp方法的缓存结果

VB code
'引用 xml3.0Option ExplicitPrivate Sub Form_Load() Text1.Text = getHTTPPage("http://www.baidu.com")End SubFunction getHTTPPage(URL) '从网络读取文件    On Error Resume Next    Dim http     Set http = CreateObject("MSXML2.ServerXMLHTTP")        http.setTimeouts 10000, 10000, 10000, 10000    http.Open "GET", URL, False    http.send    If http.readyState <> 4 Then        Exit Function    End If    getHTTPPage = BytesToBstr(http.responseBody, "GB2312")        Set http = Nothing    If Err.Number <> 0 Then Err.ClearEnd FunctionFunction BytesToBstr(body, Cset) '从网络读取文件    Dim objstream    Set objstream = CreateObject("adodb.stream")    With objstream        .Type = 1        .Mode = 3        .Open        .Write body        .Position = 0        .Type = 2        .Charset = Cset         BytesToBstr = .ReadText        .Close    End With    Set objstream = NothingEnd Function


[解决办法]
GET地址后面加个&rnd=随机数即可
[解决办法]
最好就是更改 IE 的 Internet 配置,在Internet属性中的“常规”选择卡中,有个“设置”浏览历史记录的按钮,然后把“检查所存网页的较新版本”选择为“每次访问网页时”就可以了。

热点排行