Mostrar código fuente asp del sistema
Respuesta. content type = " text/html; charset=gb2312 "
Llame para preguntar sobre el clima()
Sub-weather()
Url="/ inc/07_dc107 .htm " 'El tiempo en Putian.
Llamar a IsObjInstalled("Microsoft.XMLHTTP")
weatherStr= getHTTPPage(url)
Si WeatherStr= " "entonces
Respuesta Escribe "¡Lo siento, el pronóstico del tiempo no se pudo cargar!"
Otros
set reg=new Regexp
Registrarse. Multilínea=Verdadero
Registrarse. global=false
Registrado. IgnoreCase=true
Registrarse. Patrón = " & ltTD altura = " " 57 " " align = " " centro " " bgcolor = " " # eef3f 8 " " & gt;((.|\n)*?)& lt/TD & gt;& lt /tr >;
establecer coincidencias = reg .execute(weatherStr)
1 coincidencia por coincidencia
weatherStr=valor de coincidencia1
. Entonces
Establecer match=None
Establecer reg = Nothing
Si InStr(weatherStr, "y no encontrado") > 0, entonces
Respuesta Escribe "¡Lo sentimos, el pronóstico del tiempo no se pudo cargar! ”
Otro
weatherStr=Reemplazar(weatherStr, " & ltbr >;, " ")
% & gt
& ltfont color = " # cc 0000 " style = " font-size:9pt " >El clima de hoy:
& lt%
Terminará si...
Finalizará si...
Finalizar conector
//Usando Microsoft. Componente XMLHTTP para recopilar datos.
Función getHTTPPage(url)
Continúe con el siguiente paso si ocurre un error
dim http
set http = createobject. (" Microsoft. XMLHTTP")
http.open "GET", url, false
Http.send()
si Http.readystate<& gtentonces 4
Http.send()
p>
Salir de la función
Terminará si...
getHTTPPage = bytes 2 bstr(http . cuerpo de respuesta)
Establezca http = Ninguno
p>
si err.number & lt& gt0 entonces se produce un error. Borrar
Finalizar función
//Usando ADODB. Stream para procesar los datos recopilados y convertir archivos binarios en caracteres de texto.
Función Bytes 2bStr(vin)
Dim BytesStream, StringReturn
Establecer BytesStream = Servidor. CreateObject("ADODB.Stream")
Flujo de bytes. tipo = flujo de 2
bytes. Abrir
flujo de bytes. WriteText vin
flujo de bytes.
Posición = 0
Flujo de bytes. Charset = "GB2312 "
Flujo de bytes. Posición = 2
StringReturn =BytesStream. Leer texto
BytesStream.close
Establecer BytesStream = Ninguno
Bytes2bStr = StringReturn
Finalizar función
/ /Verifique los componentes, use xmlhttp para rastrear páginas web o AspHTTP.
Función IsObjInstalled(strClassString)
En caso de error, continúe con el siguiente paso
IsObjInstalled = False
Err = 0
Dim xTestObj
Establecer xTestObj = Servidor. CreateObject(strClassString)
Si 0 = Err, entonces
Si AspHttpOpen=1, entonces
IsObjInstalled = True
Response.write "El sistema no soporta el componente XMLHTTP"
" Response.write "El componente actual ASPHTTP "
response.end()
Otros
IsObjInstalled = False
" Response.write "Componente actual XMLHTTP "
Terminará si...
Otros
IsObjInstalled = False
" Response.write "Componente actual XMLHTTP "
Terminará si...
Establecer xTestObj = Nada
Err = 0
Función final
% & gt