Utilice XMLHTTP para escribir un programa de pronóstico del tiempo

Trabajo para un portal local y el tiempo en el sitio web debe actualizarse todos los días.

de

noticias programado. Consulte los requisitos del sistema después de publicarlo: Soporte FSO, servidor UDP TCP/IP.

Nombre de archivo TianQi.asp
Escribir por Nioked QQ408611119
www.downcodes.com
<%
si hora (ahora) = 9 y minuto (ahora) <30 entonces
obtenerCategorías()
terminar si
Función obtenerCategorías()
en caso de error reanudar siguiente
Atenuar oXMLHTTP 'como objeto
Dim oCategories 'como objeto
Texto de cuerpo tenue
Pos tenue, Pos1
Establecer oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
'--- configura la llamada XMLHTTP y emite el envío (sin parámetro como categoría
'--- está incluido en la URL
oXMLHTTP.open "GET"," http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname =Mianyang",False 'Reemplace este lugar con su propia dirección
oXMLHTTP.enviar
'--- carga la respuesta en la isla de datos de Categorías
BodyText=oXMLHTTP.responsebody
TextoCuerpo=BytesToBstr(TextoCuerpo,"gb2312")
Pos=Instr(CuerpoTexto,"<cuerpo")
pos1=Instr(CuerpoTexto,"</cuerpo>")
TextoCuerpo=medio(TextoCuerpo,pos,pos1)
TextoCuerpo=dividir(TextoCuerpo,"<tabla")
Pos=Instr(TextoCuerpo(4),"<tr")
pos1=Instr(TextoCuerpo(4),"</tr>")
Cuerpo=medio(TextoCuerpo(4),pos,len(TextoCuerpo(4))-pos)
cuerpo=dividir(cuerpo,"</table>")
cuerpo1=split(reemplazar(reemplazar(reemplazar(cuerpo(0),"<br>",""),"</td>",""),"</tr>",""),"Tiempo" )
para i= 1 a ubound(body1)
cuerpo3=dividir(cuerpo1(i),"<td")
tiempo=tiempo & "document.write("""& i&"$" & "Tiempo" & HTMLEncode(trim(body3(0))) & """);"
próximo
tiempo=reemplazar(tiempo,"1$","<FONT color=#ffffff>【Hoy】</FONT>")
tiempo=reemplazar(tiempo,"2$","<FONT color=#ffffff>【Mañana】</FONT>")
tiempo=reemplazar(tiempo,"3$","<FONT color=#ffffff>【Pasado mañana】</FONT>")
Establecer fs = CreateObject ("Scripting.FileSystemObject")
Establecer f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", Verdadero)
f.write("document.write('Pronóstico del tiempo en Mianyang:');" &vbcrlf & replace(clima,"<BR>",""))
f.cerrar
Establecer f = nada
Establecer fs = nada
Response.write "Pronóstico del tiempo en Mianyang:"& tiempo
Establecer oXMLHTTP = Nada
si número de error <> 0 entonces
Response.write "Se produjo un error, descripción del error:"&err.description & "<br>Fuente del error"& err.source
respuesta.Fin()
terminar si
Función final

Función BytesToBstr(cuerpo,Cset)
corriente de objetos tenue
establecer objstream = Server.CreateObject("adodb.stream")
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
Función final
Función pública HTMLEncode (fString)
Si no es nulo (fString) entonces
fString = reemplazar(fString, ">", "&gt;")
fString = reemplazar(fString, "<", "&lt;")
fString = Reemplazar(fString, CHR(32), " ") '&nbsp;
fString = Reemplazar(fString, CHR(9), " ") '&nbsp;
fString = Reemplazar(fString, CHR(34), "&quot;")
fString = Reemplazar(fString, CHR(39), "&#39;") 'Filtrado de comillas simples
fString = Reemplazar(fString, CHR(13), "")
fString = Reemplazar(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Reemplazar(fString, CHR(10), "<BR> ")
HTMLEncode = fString
Terminar si
Función final
%>