公司里的網(wǎng)絡(luò)中，大部分機(jī)器是無法登錄公眾互聯(lián)網(wǎng)的，但是有一些領(lǐng)導(dǎo)的機(jī)器可以登錄。為了區(qū)分，采用了ip地址和mac地址的方法 ，雖然修改ip和mac地址可以實(shí)現(xiàn)登錄訪問互聯(lián)網(wǎng)，但是對于很多常用的信息，修改ip也不方便，不如弄到本地來，于是，在可以上公網(wǎng)的機(jī)器上架設(shè)了小偷程序，實(shí)現(xiàn)了很多信息的本地共享。
今天討論的是如何將極品時刻表下載到本地。

<%
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 "
文件創(chuàng)建時間: "&f.datecreated '// -----創(chuàng)建時間
response.write "
上次修改時間: "&f.datelastmodified '//-----上次修改時間
response.write "
文件大小，單位字節(jié): "&f.size '//-----文件大小，單位字節(jié)


這就是所謂的抓取遠(yuǎn)程文件[網(wǎng)頁、文檔、圖片等]保存到本地函數(shù)
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
%>


右鍵-目標(biāo)另存為既可下載

下載前請看軟件修改時間，如果您從上面下載的不是最新的，請從這里獲取最新的，重新下載〉〉〉〉