Programa de análisis de ejemplo para capturar el tutorial de pronóstico del tiempo

Recomendado: ASP devuelve la última ubicación de una cadena
% dwwwstr = divdwww.cn/divdivwww.dwww.cn/div design home dwwwwstr = instrrev (dwwwwstr,/div) respuesta.write dwwwwstr % Instrrev Descripción Devuelve la posición desde el final de una cadena que aparece en otra cadena. Sintaxis instrrev (string1, string2 [, inicio [, compare]]) Instrre

Cuando trabajaba en la compañía por la mañana, vi la nieve cayendo afuera. .

Así que encontré una manera de escribir un procedimiento para el pronóstico del tiempo, y vi que el pronóstico del tiempo en QQ era bastante bueno. . jeje. . ¡Te atraparé!

Como se muestra en la imagen:

Código:

<%

'En el currículum de error a continuación

'Autor: Wuqing Fuente: Mantenga la fuente al reimpreso

Response.ContentType = Text/Html;

Llame al clima ()

Sub clima ()

url = http: //weather.news.qq.com/inc/07_ss252.htm 'clima en Shanghai

Llame a Isobjinstalled (Microsoft.xmlhttp)

weatherstr = gethttppage (url)

Si weatherstr = entonces

Respuesta. ¡Escribe lo siento, el pronóstico del tiempo no pudo cargar!

demás

establecer reg = nuevo regexp

reg.multiline = verdadero

reg.global = falso

reg.ignorecase = True

Reg.Pattern = <td Height = 77 class = wht2 lk37> ((. |/n)*?) </td>

Establecer coincidencias = reg.execute (weatherstr)

Para cada partido1 en partidos

weatherstr = coincidente1.valor

Próximo

Establecer coincidencias = nada

Establecer reg = nada

Si instrer (weatherstr, no se encuentra con)> 0 entonces

Respuesta. ¡Escribe lo siento, el pronóstico del tiempo no pudo cargar!

Demás

weatherstr = reemplazar (weatherstr, <td hight = 77 class = wht2 lk37>,)

weatherstr = reemplazar (weatherstr, <div class = txbd>,)

weatherstr = reemplazar (weatherstr, </div>,)

weatherstr = reemplazar (weatherstr, </td>,)

Respuesta. Escribe el pronóstico del tiempo de Shanghai: & weatherstr &

final si

final si

Final

'// Utilice el componente Microsoft.xmlhttp para recopilar datos

Función gethttppage (URL)

'En el currículum de error a continuación

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 = bytes2bstr (http.ResponseBody)

Establecer http = nada

Si err.number <> 0 entonces Err.Clear

Función final

Compartir: analizar la votación en el programa DIG de implementación ASP
ASP hace un voto en un programa de excavación (algunos se llaman Top y Step on). votantes de votación.