黄色电影一区二区,韩国少妇自慰A片免费看,精品人妻少妇一级毛片免费蜜桃AV按摩师 ,超碰 香蕉

 代碼如下:

<% 
'轉(zhuǎn)發(fā)時(shí)請(qǐng)保留此聲明信息,這段聲明不并會(huì)影響你的速度!
'**************************   【先鋒海盜類(lèi)】ver2005  最終版********************************
'作者:孫立宇、apollosun、ezhonghua
'改進(jìn)者：arllic 
'【消除所有的bug，去掉了一些不易使用，容易使人誤解的功能，優(yōu)化了執(zhí)行效率，此為最終版】
'官方網(wǎng)站:http://www.lkstar.com   技術(shù)支持論壇：http://bbs.lkstar.com
'電子郵件:kickball@netease.com    在線qq:94294089
'版權(quán)聲明:版權(quán)沒(méi)有,盜版不究,源碼公開(kāi),各種用途均可免費(fèi)使用,歡迎你到技術(shù)論壇來(lái)尋求支持。
'——小偷程序的原理是通過(guò)xhtml和asp技術(shù)相結(jié)合,定向集中采集遠(yuǎn)程網(wǎng)頁(yè)內(nèi)容加工后轉(zhuǎn)為本地虛擬網(wǎng)頁(yè)。
'——此技術(shù)自誕生以來(lái)由于它的信息覆蓋面、廣同步更新和免維護(hù)的特性一直受到各編程愛(ài)好者的關(guān)注和追捧。
'——目前國(guó)內(nèi)比較流行的實(shí)時(shí)新聞、閃客動(dòng)漫、流行歌曲、軟件下載、天氣預(yù)報(bào)、股票查詢等優(yōu)秀作品。
'——然而由于制作小偷程序的過(guò)程過(guò)于復(fù)雜和繁瑣,還由于遠(yuǎn)程網(wǎng)頁(yè)代碼的變更而經(jīng)常失效,這使小偷網(wǎng)頁(yè)的
'維護(hù)成為一個(gè)噩夢(mèng)!所以到目前為止,目前此類(lèi)佳作不多,技術(shù)也集中在小部分人手中。
'——先鋒海盜類(lèi)的誕生將使小偷程序的制作和維護(hù)變得容易起來(lái)。先鋒海盜類(lèi)提供的12種類(lèi)方法將使你對(duì)采集
'內(nèi)容的編輯掌控能力變得空前強(qiáng)大,另有貼心的類(lèi)排錯(cuò)debug方法可以使你隨時(shí)觀察自己在各步驟獲得的代碼和
'頁(yè)面顯示效果,徹底掌握這些類(lèi)方法將使你為所欲為地采集編輯各種遠(yuǎn)程頁(yè)面,而且維護(hù)也相當(dāng)方便！
'——總而言之,使用先鋒海盜類(lèi)將使你的"小偷"程序晉升為"海盜"程序！
'詳細(xì)使用說(shuō)明或范例請(qǐng)見(jiàn)下載附件或到本人官方站點(diǎn)下載！
'-------------------------------------------------------------------------------------
class clsthief
'____________________
private value_    '竊取到的內(nèi)容
private src_      '要偷的目標(biāo)url地址
private isget_    '判斷是否已經(jīng)偷過(guò)

public property let src(str) '賦值—要偷的目標(biāo)url地址/屬性
src_=str
end property

public property get value '返回值—最終竊取并應(yīng)用類(lèi)方法加工過(guò)的內(nèi)容/屬性
value=value_
end property

public property get version
    version="先鋒海盜類(lèi) 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() '竊取目標(biāo)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

'刪除偷到的內(nèi)容中里面的換行、回車(chē)符以便進(jìn)一步加工/方法
public sub noreturn() 
if isget_= false then call steal()
value_=replace(replace(value_ , vbcr,""),vblf,"")
end sub

'對(duì)偷到的內(nèi)容中的個(gè)別字符串用新值更換/方法
public sub change(oldstr,str) '參數(shù)分別是舊字符串,新字符串
if isget_= false then call steal()
value_=replace(value_ , oldstr,str)
end sub

'按指定首尾字符串對(duì)偷取的內(nèi)容進(jìn)行裁減（不包括首尾字符串）/方法
public sub cut(head,bot) '參數(shù)分別是首字符串,尾字符串
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_= "函數(shù)cut指定裁減內(nèi)容不存在,請(qǐng)重新定義"
        end if
end sub

'按指定首尾字符串對(duì)偷取的內(nèi)容進(jìn)行裁減（包括首尾字符串）/方法
public sub cutx(head,bot) '參數(shù)分別是首字符串,尾字符串
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_= "函數(shù)cutx指定裁減的內(nèi)容不存在"
        end if
end sub

'按指定首尾字符串位置偏移指針對(duì)偷取的內(nèi)容進(jìn)行裁減/方法
public sub cutby(head,headcusor,bot,botcusor) 
'參數(shù)分別是首字符串,首偏移值,尾字符串,尾偏移值,左偏移用負(fù)值,偏移指針單位為字符數(shù)
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_= "函數(shù)cutby指定裁減內(nèi)容不存在"
        end if
end sub

'按指定首尾字符串對(duì)偷取的內(nèi)容用新值進(jìn)行替換（不包括首尾字符串）/方法
public sub filt(head,bot,str) '參數(shù)分別是首字符串,尾字符串,新值,新值位空則為過(guò)濾
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_= "函數(shù)filt指定替換的內(nèi)容不存在"
        end if
end sub

'按指定首尾字符串對(duì)偷取的內(nèi)容用新值進(jìn)行替換（包括首尾字符串）/方法
public sub filtx(head,bot,str) '參數(shù)分別是首字符串,尾字符串,新值,新值為空則為過(guò)濾
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_= "函數(shù)filtx指定替換的內(nèi)容不存在"
        end if
end sub

'按指定首尾字符串位置偏移指針對(duì)偷取的內(nèi)容新值進(jìn)行替換/方法
public sub filtby(head,headcusor,bot,botcusor,str) 
'參數(shù)分別是首字符串,首偏移值,尾字符串,尾偏移值,新值,左偏移用負(fù)值,偏移指針單位為字符數(shù),新值為空則為過(guò)濾
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_= "函數(shù)filtby指定替換的內(nèi)容不存在"
        end if
end sub

'對(duì)符合條件的內(nèi)容進(jìn)行分塊采集并組合,最終內(nèi)容為以隔斷的大文本/方法
'通過(guò)屬性value得到此內(nèi)容后你可以用split(value,"")得到你需要的數(shù)組
public sub rebuild(str) '參數(shù)是你目標(biāo)頁(yè)面反復(fù)出現(xiàn)的特征字符
if isget_= false then call steal()
value_= replace(value_,str,vbcrlf&""&vbcrlf)
end sub

'類(lèi)排錯(cuò)模式——在類(lèi)釋放之前應(yīng)用此方法可以隨時(shí)查看你截獲的內(nèi)容html代碼和頁(yè)面顯示效果/方法
public sub debug()
dim tempstr
tempstr=" "&value_&"

      "
response.write(tempstr)
end sub
end class
%>