ASP小偷程式原理和簡單樣本

來源:互聯網
上載者:User
程式|樣本|小偷程式

    (一)原理

  小偷程式實際上是通過了XML中的XMLHTTP組件調用其它網站上的網頁。比如新聞小偷程式,很多都是調用了sina的新聞網頁,並且對其中的html進行了一些替換,同時對廣告也進行了過濾。用小偷程式的優點有:無須維護網站,因為小偷程式中的資料來自其他網站,它將隨著該網站的更新而更新;可以節省伺服器資源,一般小偷程式就幾個檔案,所有網頁內容都是來自其他網站。缺點有:不穩定,如果目標網站出錯,程式也會出錯,而且,如果目標網站進行升級維護,那麼小偷程式也要進行相應修改;速度,因為是遠程調用,速度和在本機伺服器上讀取資料比起來,肯定要慢一些。

  (二)案例

  下面就XMLHTTP在ASP中的應用做個簡單說明

  〈%

  '常用函數

  '1、輸入url目標網頁地址,傳回值getHTTPPage是目標網頁的html代碼

  function getHTTPPage(url)

  dim Http

  set Http=server.createobject("MSXML2.XMLHTTP")

  Http.open "GET",url,false

  Http.send()

  if Http.readystate<>4 then

  exit function

  end if

  getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")

  set http=nothing

  if err.number<>0 then err.Clear

  end function  

  '2、轉換亂瑪,直接用xmlhttp調用有中文字元的網頁得到的將是亂瑪,可以通過adodb.stream組件進行轉換

  Function BytesToBstr(body,Cset)

  dim objstream

  set objstream = Server.CreateObject("adodb.stream")

  objstream.Type = 1

  objstream.Mode =3

  objstream.Open

  objstream.Write body

  objstream.Position = 0

  objstream.Type = 2

  objstream.Charset = Cset

  BytesToBstr = objstream.ReadText

  objstream.Close

  set objstream = nothing

  End Function  

  '下面試著調用http://www.webjx.com/earticle/的html內容

  Dim Url,Html

  Url="http://www.webjx.com/earticle/"

  Html = getHTTPPage(Url)

  Response.write Html

  %〉



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。