请问:对象server怎么声明???

tzj 2004-05-06 11:44:33
On Error Resume Next
Dim oStream, szMsg, szURL
szURL = "http://expert.csdn.net/Expert/topic/3025/3025367.xml?temp=.7882959"
Set x = Server.CreateObject("MSxml2.XMLHTTP")
x.Open "GET",szURL,False
x.send
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Type = 1
oStream.Open
oStream.Write x.responseBody
oStream.SaveToFile "c:\csdn.asp"
oStream.close
请问:对象server怎么声明???
...全文
32 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tzj 2004-05-10
我要在.htm文件中实现这个功能:
"如何下载网页,用代码实现;要保存指定网页上的所有部分到指定的地方"
怎么做?


请高手Help Me!!!
  • 打赏
  • 举报
回复
心云意水 2004-05-06
晕!
这是后台asp脚本!
<%
On Error Resume Next
Dim oStream, szMsg, szURL
szURL = "http://expert.csdn.net/Expert/topic/3025/3025367.xml?temp=.7882959"
Set x = Server.CreateObject("MSxml2.XMLHTTP")
x.Open "GET",szURL,False
x.send
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Type = 1
oStream.Open
oStream.Write x.responseBody
oStream.SaveToFile "c:\csdn.asp"
oStream.close
%>
保存为.asp
然后用iis运行
  • 打赏
  • 举报
回复
相关推荐
发帖
JavaScript
加入

8.5w+

社区成员

Web 开发 JavaScript
申请成为版主
帖子事件
创建了帖子
2004-05-06 11:44
社区公告
暂无公告