Llame a páginas web en otros sitios web a través del componente XMLHTTP en XML y luego intercepte o reemplace la información original en lotes para convertirla en variables y luego almacenarlas una por una en la base de datos. Su principal ventaja es que no es necesario agregar manualmente una gran cantidad de información. Puede especificar la interceptación de información de una determinada estación para ingresarla en lotes, ahorrando tiempo y esfuerzo. La diferencia con su programa ladrón ASP puro es que ya no depende del sitio web de destino.
Código de referencia:
Copie el código de código de la siguiente manera:
<%
'Declara una función para obtener información de destino, implementada a través de componentes XML.
Función Geturl(/blog/url)
Establecer recuperación = CreateObject(Microsoft.XMLHTTP)
Con recuperación
.Abrir GET, URL, Falso
.Enviar
ObtenerURL = bytes2bstr(.responsebody)
'Verifique la información obtenida. Si la longitud de la información es inferior a 100, la interceptación falla.
si len(.responsebody)<100 entonces
Response.write no pudo obtener el archivo remoto <a href=&url& target=_blank>&url&</a>.
respuesta.fin
terminar si
Terminar con
Establecer recuperación = nada
Función final
' ¡Convierta binario en cadena; de lo contrario, aparecerán caracteres confusos!
función bytes2bstr(vin)
strreturn =
para i = 1 a lenb(vin)
este código de caracteres = ascb(midb(vin,i,1))
si este código de caracteres <&h80 entonces
strreturn = strreturn & chr(estecódigodecarácter)
demás
código de carácter siguiente = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(estecódigodecarácter) * &h100 + cint(siguientecódigodecarácter))
yo = yo + 1
terminar si
próximo
bytes2bstr = strreturn
función final
'Declarar el formato de intercepción, comenzando desde Inicio y terminando con Último
Función GetKey(HTML,Inicio,Último)
filearray=dividir(HTML,Inicio)
filearray2=split(filearray(1),Último)
Obtener clave = matriz de archivos2 (0)
Función final
Dim Softid, URL, HTML, Título
'Obtiene el ID de la página que deseas recuperar
SoftId=Solicitud(Identificación)
URL=http://www3.skycn.com/soft/&SoftId&.html
HTML = Geturl(/blog/Url)
'Tome el nombre del software de interceptación del cielo como ejemplo.
Título = GetKey(Html,<font color='#004FC6' size='3'>,</font></b></td></tr>)
'Abre la base de datos y prepárate para almacenarla.
tenue connstr,conn,rs,sql
connstr=DBQ=+server.mappath(db1.mdb)+;DefaultDir=;DRIVER={Controlador de Microsoft Access (*.mdb)};
establecer conexión=servidor.createobject(ADODB.CONEXIÓN)
conn.open connstr
establecer rs=servidor.createobject(adodb.recordset)
sql=seleccione [nombre de columna] de [nombre de tabla] donde [nombre de columna]='&Título&'
rs.open sql, conexión, 3,3
si rs.eof y rs.bof entonces
rs(nombre de columna)=Título
rs.actualización
establecer rs = nada
terminar si
establecer rs = nada
Respuesta. ¡Colección de escritura completada!
%>