Programa de aquisição da Web? Web Crashler? Programa Xiaolun? Não importa como você chama, esse tipo de programa é amplamente utilizado. Este artigo não discute direitos autorais ou questões morais causadas pelo uso deste programa, mas apenas discute a implementação deste programa no ambiente ASP+VBScript :-)
Conhecimento de preparação: Além do conhecimento geral do ASP+VBScript, você também precisa entender objetos XMLHTTP e objetos de expressão regular. O objeto xmlHttp é o protagonista do Ajax, que está atualmente no centro das atenções; E depois de aprender expressões regulares, você não precisa mais se preocupar em lidar com cordas complexas.
O gadget regex é muito útil ao escrever e depurar expressões regulares.
Índice
Rastreie uma página da web remota e salve -a localmente
Melhoria: manuseie o código iluminado
Baixe fotos (e outros arquivos) de páginas da web remota ao mesmo tempo
Melhorado: detectando URLs reais
Melhoria: Evite downloads repetidos
Exemplos práticos (tomando **** como exemplo)
Página da lista de análise
Dicas de página de conteúdo
Analise a página anterior, a próxima página na página de conteúdo
Tópico avançado: UTF-8 e GB2312 Conversão
Tópicos mais avançados: rastejando após login, falsificação do cliente
Os procedimentos de coleta que você tem
Link original: http://gwx.showus.net/blog/article.asp?id=229
1. Rastreie uma página da web remota e salve -a no local
'Para a depuração, os resultados intermediários serão verificados várias vezes depois
Dimindebug: Indebug = true
Subd (str)
IfIndebug = falsetenexitsub
Response.Write ("<Divstyle = 'Cor:#003399; Border: Solid1px#003399; Antecedentes:#eef7ff; margem: 1px; tamanho da fonte: 12px; preenchimento: 4px;'>")
Response.Write (STR & "</div>")
Response.flush ()
Endsub
'Processo: Save2File
'Função: salve texto ou fluxo de bytes como um arquivo
'Parâmetro: SCONTENT para salvar o conteúdo
'Sfile é salvo em um arquivo, como "Files/abc.htm"
'É um texto ou não
'Write faz isso substituindo o arquivo existente
Subsva2file (scontent, sfile, btext, boverwrite)
Calld ("salvar2file:"+sfile+"*se texto:" & btext)
DimsaveOption, TypeOption
If (boverwrite = true) thensaveOption = 2elseSaveOption = 1
If (btext = true) thentypeOption = 2elseTypeOption = 1
Setads = server.createObject ("adodb.stream")
Withads
.Type = TypeOption
.Abrir
If (btext = true) then.WritETEXTSCONTENTELSE.WRITESCONTENT