请问：对象server怎么声明？？？

[tzj]

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怎么声明？？？

[心云意水]

晕！
这是后台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运行

[tzj]

我要在.htm文件中实现这个功能:
"如何下载网页，用代码实现；要保存指定网页上的所有部分到指定的地方"
怎么做？


请高手Help Me!!!