¿Sabes cómo implementar el código de recopilación de ASP? Hoy, el editor de Foxin le presentará el tutorial sobre la implementación de la colección de códigos ASP. Amigos interesados, siga los pasos del editor para ver el contenido específico.
Comienza la colección
El primer paso es analizar la página que se recopilará.
Use un navegador para abrir la página que desea recopilar (como: http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml, puede usar otras páginas). Después de abrir, haga clic derecho para verificar el archivo de origen.
El segundo paso es encontrar la ubicación del contenido que se recopilará.
Si quiero recopilar el título y el contenido en esta página:
El título está entre <h1 id = "ArtibodyTitle" style = "Color:#03005C;"> y </h1>
El contenido es entre el contenido Begin -> y el contenido final -> del contenido del texto
Presta atención a la singularidad de la ubicación. Después de encontrarlo, puede usar la búsqueda en la edición para ver si es único y único como sea posible. Si no, lo primero posible. Si no funciona, solo puede reemplazarlo.
Paso 3: Escribe el código
La copia del código es la siguiente:< %
'Función: código de recopilación de ASP
'Autor: Wangsdong
'Nota: Apoye los programas originales, mantenga esta información, gracias
url = "http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml"
str = gethttppage (url)
title = strcut (str, "<h1 id =" "artibodytitle" "style =" "color:#03005c;" ">", "</h1>", 2)
content = strcut (str, "<!-Text Content Begin->", "<!-Texto Content End->", 2)
respuesta
Función gethttppage (URL)
En el currículum de error siguiente
Dim http
Establecer http = server.createObject ("Microsoft.xmlhttp")
Http.open "Get", URL, falso
Http.send ()
Si http.readyState <> 4 entonces entonces
función de salida
final si
gethttppage = bytestobstr (http.ResponseBody, "GB2312")
Establecer http = nada
Si err.number <> 0 entonces
Response.write "<p align = 'Center'> <font color = 'rojo'> <b> El servidor erróneo al obtener contenido del archivo </b> </font> </p>"
Err.Clear
Final si
Función final
Función bytestobstr (cuerpo, cset)
dim objstream
Establecer objstream = server.createObject ("ADODB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.
objstream.write cuerpo
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readText
objstream.close
establecer objstream = nada
Función final
'Intercepting String, 1. Incluye caracteres de inicio y finalización, 2. Sin incluir
Función strcut (strcontent, startstr, endstr, cuttype)
Dim strhtml, s1, s2
strhtml = strcontent
En el currículum de error siguiente
Seleccione Case CutType
Caso 1
S1 = instr (strhtml, startstr)
S2 = instr (s1, strhtml, endstr)+len (endstr)
Caso 2
S1 = instr (strhtml, startstr)+len (startstr)
S2 = Instr (S1, Strhtml, Endstr)
Final seleccionar
Si err entonces
strcute = "<p align = 'Center'> Nada encontró lo que se necesita. </p>"
Err.Clear
Función de salida
Demás
strcut = mid (strhtml, s1, s2-s1)
Final si
Función final
%>
Lo anterior es el tutorial sobre la implementación del código de colección ASP. Ahora que el editor genera el contenido que obtiene, puede escribir estos contenidos en la base de datos, y los datos son propios.