ASP小偷程式的入門教程(遠端資料擷取)

來源:互聯網
上載者:User
程式|教程|入門教程|資料|小偷程式   這裡所說的“小偷”指的是在ASP中運用XML中的XMLHTTP組件提供的強大功能,把遠程網站上的資料(圖片,網頁及其他檔案)抓取到本地,經過各種處理後顯示到頁面上或者儲存進資料庫的一類程式。你可以通過這種小偷程式,完成過去一些似乎完全不可能實現的任務,比如說把某個站的頁面偷梁換柱後變成自己的頁面,或者把某個站的一些資料(文章,圖片)儲存到本機資料庫中加以利用。“小偷”的優點有:無須維護網站,因為小偷程式中的資料來自其他網站,它將隨著該網站的更新而更新;可以節省大量的伺服器資源,一般小偷程式就幾個檔案,所有網頁內容都是來自其他網站。缺點在於:不穩定,如果目標網站出錯,程式也會出錯,而且,如果目標網站進行升級維護,那麼小偷程式也要進行相應修改;速度,因為是遠程調用,速度和在本機伺服器上讀取資料比起來,肯定要慢一些。怎麼樣,聽起來很神奇吧?我們現在就開始來學習一些“小偷”程式的入門知識吧!

  我們拿個簡單點的東西來研究一下吧,QQ網站上的天氣預報程式

  代碼如下:

<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
        t = GetBody(Path)
        getHTTPPage=BytesToBstr(t,"GB2312")
End function

’首先,進行小偷程式的一些初始化設定,以上代碼的作用分別是忽略掉所有非致命性錯誤,把小偷程式的運行逾時時間設定得很長(這樣不會出現運行逾時的錯誤),轉換原來預設的UTF-8編碼轉換成GB2312編碼,否則直接用XMLHTTP組件調用有中文字元的網頁得到的將是亂碼。

Function GetBody(url) 
        on error resume next
        Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
        With Retrieval 
        .Open "Get", url, False, "", "" 
        .Send 
        GetBody = .ResponseBody
        End With 
        Set Retrieval = Nothing 
End Function

’然後調用XMLHTTP組件建立一個對象並進行初始化設定。

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

Function Newstring(wstr,strng)
        Newstring=Instr(lcase(wstr),lcase(strng))
        if Newstring<=0 then Newstring=Len(wstr)
End Function

’處理抓取回來的資料需要調用adodb.stream組件並進行初始化設定。%>

’以下即為頁面顯示部分

<%
Dim wstr,str,url,start,over,city
’定義一些需要使用到的變數

city = Request.QueryString("id")
’程式傳回的ID變數(即使用者選擇的城市)賦給id

url="http://appnews.qq.com/cgi-bin/news_qq_search?city="&city&""
’這裡設定需要抓取的頁面地址,當然你也可以直接指定某個地址而不使用變數

wstr=getHTTPPage(url) 
’擷取指定頁面的全部資料           

start=Newstring(wstr," <html>")
’這裡設定需要處理的資料的頭部,這個變數應視不同情況而設定,具體內容可以通過查看需要抓取的頁面的原始碼來確定。因為在這個程式裡我們需要抓取整個頁面,所以設定為頁面全部抓取。注意,設定的內容必須是頁面內容唯一的,不可以重複。

over=Newstring(wstr," </HTML>")
’和start相對應的就是需要處理的資料的尾部,同樣的,設定的內容必須是頁面中唯一的。

body=mid(wstr,start,over-start)
’設定顯示頁面的範圍

’下面就是動用乾坤挪移+++的時候了,通過replace可以用一些字元替換掉資料中指定的字元。

body = replace(body,"skin1","天氣預報 - 斯克網路")
body = replace(body,"http://appnews.qq.com/cgi-bin/news_qq_search?city","tianqi.asp?id")

’本程式中已經完成了替換的工作,如果有其他需要的話可以繼續進行類似的替換操作。
    
response.write body
%>

  替換完需要修改的內容後,就可以把修改的內容顯示在頁面上了。至此程式結束

  程式使用方法及結果:把上述代碼去掉說明部分後儲存為tianqi.asp,上傳到支援ASP和XML的空間下,在瀏覽器中運行即可。你可以在在這個程式的基礎上進行進一步的介面美化或者程式最佳化。

  以上只是一些關於XMLHTTP組件的初級應用,實際上它還能實現的功能還有很多,比如說儲存遠程圖片到本機伺服器上,配合adodb.stream組件可以把擷取來的資料儲存進資料庫。小偷的作用和使用範圍都很廣。但是不可以拿來做違法的事哦!

  也許還有人要問了,這種“小偷”程式難道只是ASP的專利嗎?非也,PHP通過fopen函數一樣可以實現同樣的效果,由於PHP本身的各種特點,寫出來的小偷程式和ASP相比,在體積和執行效率上都有者明顯的優勢,但限於篇幅,這裡就不一一說明了

相關文章

聯繫我們

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

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

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.