主頁(yè) > 知識(shí)庫(kù) > 一小偷類!!有興趣的可以看看

一小偷類!!有興趣的可以看看

類代碼 (cls.asp)
%

Class clsThief

Private strUrl    ' 偷取地址
Private strValue  ' 偷取的內(nèi)容,所有內(nèi)容
Private strResult ' 偷取結(jié)果,可以具體某一塊內(nèi)容
Private flag      ' 是否已經(jīng)偷過(guò)

'-------初始化類--------'
Private Sub Class_Initialize()
    strUrl=""
strValue=""
strResult=""
flag=false
End Sub

'------類結(jié)束-----------'
Private Sub Class_Terminate()
End Sub

'------初始化url屬性----'
Public Property Let url(ByVal iurl)
    strUrl = iurl
End Property

'------返回輸出內(nèi)容----'
public property get value
    value=strValue
end property

public property get result
    result=strResult
end property

'------------文字處理-----------'
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

'-------文字處理-------'
private Function Ichange(str)
    Dim finalStr
Dim icharCode
Dim inextCode
    For i = 1 To lenb(str)
        icharCode = ascb(midb(str,i,1))
        If icharCode  H80 Then
            finalStr = finalStr  chr(icharCode)
        Else
            inextCode = ascb(midb(str,i+1,1))
            finalstr = finalstr  chr(clng(icharCode) * H100 + cint(inextCode))
            i = i + 1
        End If
    Next
Ichange = finalStr
End Function

'-------內(nèi)容抓取--------'
Public sub Seize()
    if strUrl>"" then
     dim iconnect
  Set iconnect = CreateObject("Microsoft.XMLHTTP")
        iconnect.open "GET",strUrl,false
        iconnect.send()

  strValue = BytesToBSTR(iconnect.responseBody,"GB2312")
  flag=true
  set iconnect = nothing
  if err.number>0 then err.Clear
else
     response.write("請(qǐng)?jiān)O(shè)置url的屬性,即url地址")
end if
end sub

'------內(nèi)容分析------'
Public sub Assay(head,headCusor,bot,botCusor)
    if flag = false then call Seize()
    if instr(strValue,head) and instr(strValue,bot) then
  dim inum
  inum = len(strValue)-instr(strValue,head)-len(head)-headCusor
  strValue=right(strValue,inum)
     inum = instr(strValue,bot)-1+botCusor
  strResult=left(strValue,inum)
else
  strResult = "沒(méi)有匹配到相關(guān)記錄,請(qǐng)檢查開(kāi)始標(biāo)記代碼是否唯一"
    end if
end sub

'----替換空格及回車行----'
public sub Shift()
if flag= false then call Seize()
    strResult=replace(replace(strResult , vbCr,""),vbLf,"")
end sub

'------對(duì)內(nèi)容自定義替換----'
Public sub Change(oldStr,newStr)
    if flag=false then call Seize()
strResult = replace(strResult,oldStr,newStr)
end sub

'--------自定義正則進(jìn)行匹配---'
public sub pickByReg(patrn)
    if isGet_= false then call Seize()
    dim tempReg,match,matches,content
    set tempReg=new RegExp
    tempReg.IgnoreCase=true
    tempReg.Global=true
    tempReg.Pattern=patrn
    set matches=tempReg.execute(value_)
    for each match in matches
    content=contentmatch.value"!--lkstar-->"
    next
    strValue=content
    set matches=nothing
    set tempReg=nothing
end sub

'--------如果有首頁(yè)文件則轉(zhuǎn)入-----------'
Public sub CheckFile(folderName,fileName)
    dim url
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists(server.MapPath("./")"\"folderName"\"fileName) then
     set fs = nothing
  url = folderName"/"fileName
  response.write url
  'response.redirect url
end if
end sub

'------生成文件------'
Public sub MakeFile(folderName,fileName)
    Set fs=Server.CreateObject("Scripting.FileSystemObject")

    if folderName>"" then
     if not fs.FolderExists(server.MapPath("/"folderName"/")) then
            response.write "文件不存在"
      fs.CreateFolder(folderName)
     else
         response.write "文件存在"
        end if
end if

    Set CrFi=fs.CreateTextFile(server.MapPath("./")"\"folderName"\"fileName)
        Crfi.Writeline(strResult)
    set CrFi=nothing
    set fs=nothing
dim url
url = folderName"/"fileName
    response.redirect url

end sub

'-------查看偷出的代碼----'
public sub look()
    dim tempstr
    tempstr="SCRIPT>function runEx(){var winEx2 = window.open("""", ""winEx2"", ""width=500,height=300,status=yes,menubar=no,scrollbars=yes,resizable=yes""); winEx2.document.open(""text/html"", ""replace""); winEx2.document.write(unescape(event.srcElement.parentElement.children[0].value)); winEx2.document.close(); }function saveFile(){var win=window.open('','','top=10000,left=10000');win.document.write(document.all.asdf.innerText);win.document.execCommand('SaveAs','','javascript.htm');win.close();}/SCRIPT>center>TEXTAREA id=asdf name=textfield rows=32  wrap=VIRTUAL cols=""120"">"strResult"/TEXTAREA>BR>BR>INPUT name=Button onclick=runEx() type=button value=""查看效果"">nbsp;nbsp;INPUT name=Button onclick=asdf.select() type=button value=""全選"">nbsp;nbsp;INPUT name=Button onclick=""asdf.value=''"" type=button value=""清空"">nbsp;nbsp;INPUT onclick=saveFile(); type=button value=""保存代碼"">/center>"
    response.Write(tempstr)
end sub

end class
%>

引用頁(yè)(test.asp)

!--#Include File="cls.asp"-->
%
  dim myThief,value
  set myThief = new clsThief   '實(shí)例化類
  myThief.CheckFile "","index.html"  '檢測(cè)是否已經(jīng)偷過(guò)并生成
  myThief.url="http://www.sohu.com"  '目標(biāo)URL
  myThief.Seize                                                   '開(kāi)始偷取
  myThief.Assay "html>","-7","/html>","7"        '剪切標(biāo)記
  myThief.Change "擇優(yōu)","浪人"                        '進(jìn)行替換
  value = myThief.result                                      '最后得到的內(nèi)容
  myThief.MakeFile "","index.html"                      '生成文件
  set myThief = nothing
  'response.write value
%>

標(biāo)簽：棗莊蚌埠大理萍鄉(xiāng) 衢州江蘇衡水廣元

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《一小偷類!!有興趣的可以看看》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

佳木斯湛栽影视文化发展公司

一小偷類!!有興趣的可以看看

QQ咨詢

電話咨詢