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.
2 páginas en el total de la página 12 Página siguiente