公司里的网络中，大部分机器是无法登录公众互联网的，但是有一些领导的机器可以登录。为了区分，采用了ip地址和mac地址的方法 ，虽然修改ip和mac地址可以实现登录访问互联网，但是对于很多常用的信息，修改ip也不方便，不如弄到本地来，于是，在可以上公网的机器上架设了小偷程序，实现了很多信息的本地共享。
今天讨论的是如何将极品时刻表下载到本地。

<%
server.scripttimeout = 300
filename="jpskb.rar"

set fso = server.createobject("scripting.filesystemobject")
if not fso.fileexists(server.mappath(filename)) then'判断文件是否存在，如果不存在下载一次。
call saveremotefile(filename,"http://jpskb.com/down/jpskb.rar")
response.write "恭喜，获取成功！
"
end if

action=request.querystring("a")
if action="get" then
call saveremotefile(filename,"http://jpskb.com/down/jpskb.rar")
response.write "恭喜，获取成功！
"
end if

set f = fso.getfile(server.mappath(filename))
x=f.datelastmodified
response.write read_file
response.write "
文件名称: "&f.name '//-----文件名称
response.write "
文件创建时间: "&f.datecreated '// -----创建时间
response.write "
上次修改时间: "&f.datelastmodified '//-----上次修改时间
response.write "
文件大小，单位字节: "&f.size '//-----文件大小，单位字节


这就是所谓的抓取远程文件[网页、文档、图片等]保存到本地函数
sub saveremotefile(localfilename,remotefileurl)
dim ads,retrieval,getremotedata
set retrieval = server.createobject("microsoft.xmlhttp")
with retrieval
.open "get", remotefileurl, false, "", ""
.send
getremotedata = .responsebody
end with
set retrieval = nothing
set ads = server.createobject("adodb.st"&"ream")
with ads
.type = 1
.open
.write getremotedata
.savetofile server.mappath(localfilename),2
.cancel()
.close()
end with
set ads=nothing
end sub
%>


右键-目标另存为既可下载

下载前请看软件修改时间，如果您从上面下载的不是最新的，请从这里获取最新的，重新下载〉〉〉〉