谁帮我续写完这段程序(很简单的),先送80分,不够再加!我快郁闷死了
我在程序中用MSXML2.XMLHTTP组件从网上抓了网页下来,如何在程序中实现将它保存到本地指定路径中?请根据我的程序后接着写一下如何保存到本地指定路径的代码,给出适当的注释,跪着谢你啦!
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
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.Clear
end function
Dim Url,Html
Url="http://www.sohu.com/"
Html = getHTTPPage(Url)
Response.write Html