[p]公司里的网络中，大部分机器是无法登录公众互联网的，但是有一些领导的机器可以登录。为了区分，采用了ip地址和mac地址的方法 ，虽然修改ip和mac地址可以实现登录访问互联网，但是对于很多常用的信息，修改ip也不方便，不如弄到本地来，于是，在可以上公网的机器上架设了小偷程序，实现了很多信息的本地共享。[br]今天讨论的是如何将极品时刻表下载到本地。[br][br]<%[br]server.scripttimeout = 300[br]filename="jpskb.rar"[br][br]set fso = server.createobject("scripting.filesystemobject")[br]if not fso.fileexists(server.mappath(filename)) then'判断文件是否存在，如果不存在下载一次。[br]call saveremotefile(filename,"http://jpskb.com/down/jpskb.rar")[br]response.write "恭喜，获取成功！
"[br]end if[br][br]action=request.querystring("a")[br] if action="get" then [br] call saveremotefile(filename,"http://jpskb.com/down/jpskb.rar")[br] response.write "恭喜，获取成功！
"[br]end if[br][br]set f = fso.getfile(server.mappath(filename))[br]x=f.datelastmodified [br]response.write read_file[br]response.write "
文件名称: "&f.name '//-----文件名称[br]response.write "
文件创建时间: "&f.datecreated '// -----创建时间[br]response.write "
上次修改时间: "&f.datelastmodified '//-----上次修改时间[br]response.write "
文件大小，单位字节: "&f.size '//-----文件大小，单位字节[br][br][br]这就是所谓的抓取远程文件[网页、文档、图片等]保存到本地函数[br]sub saveremotefile(localfilename,remotefileurl) [br]dim ads,retrieval,getremotedata [br]set retrieval = server.createobject("microsoft.xmlhttp") [br]with retrieval [br].open "get", remotefileurl, false, "", "" [br].send [br]getremotedata = .responsebody [br]end with [br]set retrieval = nothing [br]set ads = server.createobject("adodb.st"&"ream") [br]with ads [br].type = 1 [br].open [br].write getremotedata [br].savetofile server.mappath(localfilename),2 [br].cancel() [br].close() [br]end with [br]set ads=nothing [br]end sub [br]%>[br]
[br]右键-目标另存为既可下载

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