Ver2005 最終版
代碼如下:
<%
'轉發時請保留此聲明信息,這段聲明不并會影響你的速度!
'************************** 【先鋒海盜類】ver2005 最終版********************************
'作者:孫立宇、apollosun、ezhonghua
'改進者：arllic
'【消除所有的bug，去掉了一些不易使用，容易使人誤解的功能，優化了執行效率，此為最終版】
'官方網站:http://www.lkstar.com 技術支持論壇：http://bbs.lkstar.com
'電子郵件:kickball@netease.com 在線qq:94294089
'版權聲明:版權沒有,盜版不究,源碼公開,各種用途均可免費使用,歡迎你到技術論壇來尋求支持。
'——小偷程序的原理是通過xhtml和asp技術相結合,定向集中采集遠程網頁內容加工后轉為本地虛擬網頁。
'——此技術自誕生以來由于它的信息覆蓋面、廣同步更新和免維護的特性一直受到各編程愛好者的關注和追捧。
'——目前國內比較流行的實時新聞、閃客動漫、流行歌曲、軟件下載、天氣預報、股票查詢等優秀作品。
'——然而由于制作小偷程序的過程過于復雜和繁瑣,還由于遠程網頁代碼的變更而經常失效,這使小偷網頁的
'維護成為一個噩夢!所以到目前為止,目前此類佳作不多,技術也集中在小部分人手中。
'——先鋒海盜類的誕生將使小偷程序的制作和維護變得容易起來。先鋒海盜類提供的12種類方法將使你對采集
'內容的編輯掌控能力變得空前強大,另有貼心的類排錯debug方法可以使你隨時觀察自己在各步驟獲得的代碼和
'頁面顯示效果,徹底掌握這些類方法將使你為所欲為地采集編輯各種遠程頁面,而且維護也相當方便！
'——總而言之,使用先鋒海盜類將使你的"小偷"程序晉升為"海盜"程序！
'詳細使用說明或范例請見下載附件或到本人官方站點下載！
'-------------------------------------------------------------------------------------
class clsthief
'____________________
private value_ '竊取到的內容
private src_ '要偷的目標url地址
private isget_ '判斷是否已經偷過
public property let src(str) '賦值—要偷的目標url地址/屬性
src_=str
end property
public property get value '返回值—最終竊取并應用類方法加工過的內容/屬性
value=value_
end property
public property get version
version="先鋒海盜類 version 2005"
end property
private sub class_initialize()
value_=""
src_=""
isget_= false
end sub
private sub class_terminate()
end sub
private 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
public sub steal() '竊取目標url地址的html代碼/方法
if src_<>"" then
dim http
set http=server.createobject("msxml2.xmlhttp")
http.open "get",src_ ,false
http.send()
if http.readystate<>4 then
exit sub
end if
value_=bytestobstr(http.responsebody,"gb2312")
isget_= true
set http=nothing
if err.number<>0 then err.clear
else
response.write(" ")
end if
end sub
'刪除偷到的內容中里面的換行、回車符以便進一步加工/方法
public sub noreturn()
if isget_= false then call steal()
value_=replace(replace(value_ , vbcr,""),vblf,"")
end sub
'對偷到的內容中的個別字符串用新值更換/方法
public sub change(oldstr,str) '參數分別是舊字符串,新字符串
if isget_= false then call steal()
value_=replace(value_ , oldstr,str)
end sub
'按指定首尾字符串對偷取的內容進行裁減（不包括首尾字符串）/方法
public sub cut(head,bot) '參數分別是首字符串,尾字符串
if isget_= false then call steal()
if instr(value_ , head)>0 and instr(value_ , bot)>0 then
value_=mid(value_ ,instr(value_ ,head)+len(head),instr(value_ ,bot)-instr(value_ ,head)-len(head))
else
value_= "函數cut指定裁減內容不存在,請重新定義"
end if
end sub
'按指定首尾字符串對偷取的內容進行裁減（包括首尾字符串）/方法
public sub cutx(head,bot) '參數分別是首字符串,尾字符串
if isget_= false then call steal()
if instr(value_,head)>0 and instr(value_,bot)>0 then
value_=mid(value_ ,instr(value_ ,head),instr(value_ ,bot)-instr(value_ ,head)+len(bot))
else
value_= "函數cutx指定裁減的內容不存在"
end if
end sub
'按指定首尾字符串位置偏移指針對偷取的內容進行裁減/方法
public sub cutby(head,headcusor,bot,botcusor)
'參數分別是首字符串,首偏移值,尾字符串,尾偏移值,左偏移用負值,偏移指針單位為字符數
if isget_= false then call steal()
if instr(value_,head)>0 and instr(value_,bot)>0 then
value_=mid(value_ ,instr(value_ ,head)+len(head)+headcusor,instr(value_ ,bot)-1+botcusor-instr(value_ ,head)-len(head)-headcusor)
else
value_= "函數cutby指定裁減內容不存在"
end if
end sub
'按指定首尾字符串對偷取的內容用新值進行替換（不包括首尾字符串）/方法
public sub filt(head,bot,str) '參數分別是首字符串,尾字符串,新值,新值位空則為過濾
if isget_= false then call steal()
if instr(value_,head)>0 and instr(value_,bot)>0 then
value_=replace(value_,mid(value_ ,instr(value_ ,head)+len(head) , instr(value_ ,bot)-instr(value_ ,head)-len(head)),str)
else
value_= "函數filt指定替換的內容不存在"
end if
end sub
'按指定首尾字符串對偷取的內容用新值進行替換（包括首尾字符串）/方法
public sub filtx(head,bot,str) '參數分別是首字符串,尾字符串,新值,新值為空則為過濾
if isget_= false then call steal()
if instr(value_,head)>0 and instr(value_,bot)>0 then
value_=replace(value_,mid(value_ ,instr(value_ ,head),instr(value_ ,bot)-instr(value_ ,head)+len(bot)),str)
else
value_= "函數filtx指定替換的內容不存在"
end if
end sub
'按指定首尾字符串位置偏移指針對偷取的內容新值進行替換/方法
public sub filtby(head,headcusor,bot,botcusor,str)
'參數分別是首字符串,首偏移值,尾字符串,尾偏移值,新值,左偏移用負值,偏移指針單位為字符數,新值為空則為過濾
if isget_= false then call steal()
if instr(value_,head)>0 and instr(value_,bot)>0 then
value_=replace(value_ ,mid(value_ ,instr(value_ ,head)+len(head)+headcusor,instr(value_ ,bot)-1+botcusor-instr(value_ ,head)-len(head)-headcusor),str)
else
value_= "函數filtby指定替換的內容不存在"
end if
end sub
'對符合條件的內容進行分塊采集并組合,最終內容為以隔斷的大文本/方法
'通過屬性value得到此內容后你可以用split(value,"")得到你需要的數組
public sub rebuild(str) '參數是你目標頁面反復出現的特征字符
if isget_= false then call steal()
value_= replace(value_,str,vbcrlf&""&vbcrlf)
end sub
'類排錯模式——在類釋放之前應用此方法可以隨時查看你截獲的內容html代碼和頁面顯示效果/方法
public sub debug()
dim tempstr
tempstr=" "&value_&"
"
response.write(tempstr)
end sub
end class
%>
ASP技巧