Chame páginas da web em outros sites por meio do componente XMLHTTP em XML e, em seguida, intercepte ou substitua as informações originais em lotes para convertê-las em variáveis e depois armazená-las uma por uma no banco de dados. Sua principal vantagem é que não há necessidade de adicionar manualmente uma grande quantidade de informações. Você pode especificar a interceptação de informações de uma determinada estação para serem inseridas em lotes, economizando tempo e esforço. A diferença com seu programa ladrão ASP puro é que ele não depende mais do site de destino.
Código de referência:
Copie o código do código da seguinte forma:
<%
'Declara uma função para obter informações de destino, implementada através de componentes XML.
Função Geturl(/blog/url)
Definir recuperação = CreateObject (Microsoft.XMLHTTP)
Com recuperação
.Abra GET, url, falso
.Enviar
GetURL = bytes2bstr(.responsebody)
'Verifique as informações obtidas. Se o comprimento das informações for inferior a 100, a interceptação falha.
se len(.responsebody)<100 então
response.write não conseguiu obter o arquivo remoto <a href=&url& target=_blank>&url&</a>.
resposta.fim
terminar se
Terminar com
Definir recuperação = nada
Função final
' Converte binário em string, caso contrário, caracteres distorcidos aparecerão!
função bytes2bstr(vin)
retorno =
para i = 1 para lenb(vin)
este código = ascb(midb(vin,i,1))
se este código <&h80 então
strreturn = strreturn & chr(thischarcode)
outro
próximo código = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
eu = eu + 1
terminar se
próximo
bytes2bstr = strreturn
função final
'Declara o formato de interceptação, começando em Início e terminando em Último
Função GetKey(HTML,Início,Último)
filearray=dividir(HTML,Iniciar)
filearray2=dividir(filearray(1),Último)
GetKey=filearray2(0)
Função final
Dim Softid, URL, HTML, Título
'Pegue o ID da página que você deseja buscar
SoftId=Solicitação(Id)
URL = http://www3.skycn.com/soft/&SoftId&.html
HTML = Geturl(/blog/Url)
'Tome o nome do software de interceptação do software do céu como exemplo
Título = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'Abra o banco de dados e prepare-se para armazená-lo
dim connstr,conn,rs,sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Driver Microsoft Access (*.mdb)};
definir conn=server.createobject(ADODB.CONNECTION)
conn.open connstr
definir rs=server.createobject(adodb.recordset)
sql=selecione [nome da coluna] de [nome da tabela] onde [nome da coluna]='&Título&'
rs.open sql,conn,3,3
se rs.eof e rs.bof então
rs(nome da coluna)=Título
rs.atualização
definir rs = nada
terminar se
definir rs = nada
Coleção Response.Write concluída!
%>