Recientemente, algunos programas de recolección son populares en Internet. Más personas venden estas cosas en línea. Muchas personas que no saben mucho tienen envidia de esos programas. De hecho, si comprende algunos ASP y comprende los principios de los programas de recolección automáticos, sentirá que es tan simple implementar la automatización.
Principio y ventajas: a través del componente XMLHTTP en XML, se llaman las páginas web en otros sitios web, y luego se intercepta por lotes o reemplazar la información original para que se convierta en variables y luego se almacenen en la base de datos una por una. Su principal ventaja es que no hay necesidad de agregar manualmente una gran cantidad de información. Puede especificar la intercepción de una determinada información del sitio y la entrada de lotes para lograr el propósito de ahorrar tiempo y esfuerzo. A diferencia de su programa Purely ASP Thief: ya no se basa en su sitio web objetivo.
Ejemplos simples:
La copia del código es la siguiente:
<%
'Declarar la función para obtener la información de destino e implementarla a través de componentes XML.
GetURL (/blog/url)
SetRetrieval = createObject ("Microsoft.xmlhttp")
Withrrieval
Abra "Get", URL, falso
Enviar
GetUrl = bytes2bstr (.ResponseBody)
'Verifique la información obtenida. Si la longitud de la información es inferior a 100, significa que la intercepción falló
iflen (.ResponseBody) <100
Response.Write "No pudo obtener el archivo remoto <ahref ="/blog/"& url &" target = _blank> "& url &" </a>. "
respuesta.
endif
Fin
SetRetrreieval = nada
Fin
'Gire binario a una cuerda, ¡de lo contrario aparecerá el confusión!
bytes2bstr (vin)
strreturn = ""
Fori = 1TolenB (vin)
thisCharCode = ASCB (MidB (Vin, I, 1))
ifthischarcode <& h80Then
strreturn = strreturn & chr (thisCharcode)
demás
nextcharcode = ascb (midb (vin, i+1,1))
strreturn = strreturn & chr (clng (thisCharCode)*& H100+cint (nextcharcode)))
i = i+1
endif
próximo
bytes2bstr = strreturn
fin
'Declarar el formato interceptado, comenzar desde el inicio y el final por fin
GetKey (html, inicio, último)
Filearray = Split (html, inicio)
Filearray2 = Split (Filearray (1), último)
GetKey = Filearray2 (0)
Fin
Dimsoftid, url, html, título
'Obtenga la identificación de la página para recuperarse
Softid = request ("ID")
Url = "http://www3.skycn.com/soft/" & Softid & ".html"
Html = getUrl (/blog/url)
'Tome el nombre del software del software Intercepting Sky como ejemplo
Title = getKey (html, "<fontcolor = '#004fc6'size =' 3 '>", "</font> </b> </td> </tr>")
'Abra la base de datos y prepárese para ingresar la base de datos
Dimconnstr, 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 = "seleccione [nombre de columna] de [nombre de la tabla] donde [nombre de la columna] = '" & title & "'"
Rs.opensql, Conn, 3,3
ifrs.eofandrs.bofthen
RS ("Nombre de la columna") = Título
rs.
SETRS = nada
endif
SETRS = nada
Response.write "¡La colección está completa!"
%>