Recentemente, alguns programas de coleção são populares na internet. Mais pessoas estão vendendo essas coisas online. Muitas pessoas que não sabem muito têm inveja desses programas. De fato, se você entender alguns ASP e entender os princípios dos programas de coleta automática, sentirá que é tão simples de implementar a automação.
Princípio e vantagens: Através do componente XMLHTTP no XML, as páginas da Web em outros sites são chamadas e, em seguida, interceptará ou substituir as informações originais para que sejam convertidas em variáveis e depois armazenadas no banco de dados One por um. Sua principal vantagem é que não há necessidade de adicionar manualmente uma grande quantidade de informações. Você pode especificar a interceptação de uma determinada informação do site e a entrada em lote para alcançar o objetivo de economizar tempo e esforço. Diferentemente do seu programa puramente ASP Thief: ele não se baseia mais em seu site de destino.
Exemplos simples:
A cópia do código é a seguinte:
<%
'Declare a função para obter as informações de destino e implementá -las através de componentes XML.
Geturl (/blog/url)
Setretrieval = CreateObject ("Microsoft.xmlHttp")
Withretrieval
Abra "Get", URL, FALSE
Enviar
Geturl = bytes2bstr (.Responsebody)
'Verifique as informações obtidas. Se o comprimento da informação for menor que 100, significa que a interceptação falhou
iflen (.Responsebody) <100then
Response.Write "Falha ao obter arquivo remoto <href ="/blog/"& url &" Target = _blank> "& url &" </a>. "
resposta.END
endif
ENDWITH
Setretrieval = nada
Fim
'Torne o binário para a corda, caso contrário, ilegal aparecerá!
bytes2bstr (vin)
strreturn = ""
fori = 1tolenb (VIN)
thisCharcode = ASCB (MIDB (VIN, i, 1))
ifthScharcode <& h80Then
strreturn = strreturn & ch (thischarcode)
outro
nextcharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & ch (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
próximo
bytes2bstr = strreturn
fim
'Declare o formato interceptado, inicie do início e finalmente
GetKey (html, start, último)
FileArray = Split (HTML, Start)
FileArray2 = Split (FileArray (1), último)
GetKey = FileArray2 (0)
Fim
Dimsoftid, URL, HTML, título
'Obtenha o ID da página a ser recuperado
SoftId = solicitação ("id")
Url = "http://www3.skycn.com/Soft/" & Softid & ".html"
Html = geturl (/blog/url)
'Pegue o nome do software do software Sky intercepto como um exemplo
Title = getKey (html, "<fontcolor = '#004fc6'size =' 3 '>", "</font> </b> </td> </tr>")
'Abra o banco de dados e prepare -se para entrar no banco de dados
DIMCONNST, CONN, RS, SQL
Connstr = "dbq ="+server.mappath ("db1.mdb")+"; defaultDir =; driver = {Microsoft AccessDriver (*. mdb)};"
setConn = server.createObject ("adodb.connection")
Conn.OPENCONNSTR
setrs = server.createObject ("adodb.recordset")
sql = "Selecione [Nome da coluna] de [Nome da tabela] onde [Nome da coluna] = '" & Title & "'"
Rs.opensql, Conn, 3,3
ifrs.eofandrs.bofthen
rs ("Nome da coluna") = título
rs.update
setrs = nada
endif
setrs = nada
Response.Write "A coleção está completa!"
%>
