Utilisez XMLHTTP pour écrire un programme de prévisions météorologiques

Je travaille pour un portail local et la météo sur le site Web doit être mise à jour quotidiennement.

devenu

assez gênant, j'ai donc écrit un voleur de nouvelles programmé. Veuillez vous référer à la configuration système requise après l'avoir publié : Prise en charge de FSO, serveur UDP TCP/IP.

Nom du fichier TianQi.asp
Écrire par Nioked QQ408611119
www.downcodes.com
<%
si heure (maintenant) = 9 et minute (maintenant) <30 alors
getCatégories()
finir si
Fonction getCatégories()
en cas d'erreur, reprendre ensuite
Dim oXMLHTTP 'En tant qu'objet
Dim oCatégories ' Comme objet
DimBodyText
Faible Pos,Pos1
Définir oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
'--- définit l'appel XMLHTTP et émet l'envoi (pas de paramètre comme catégorie
'--- est inclus dans l'URL
oXMLHTTP.open "GET", http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname =Mianyang",False 'Remplacez ce lieu par votre propre adresse
oXMLHTTP.envoyer
'--- charger la réponse dans l'îlot de données Catégories
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"gb2312")
Pos=Instr(BodyText,"<corps")
pos1=Instr(BodyText,"</body>")
CorpsTexte=milieu(CorpsTexte,pos,pos1)
CorpsTexte=split(BodyText,"<table")
Pos=Instr(BodyText(4),"<tr")
pos1=Instr(BodyText(4),"</tr>")
Corps=milieu(BodyText(4),pos,len(BodyText(4))-pos)
corps=split(corps,"</table>")
body1=split(replace(replace(replace(body(0),"<br>",""),"</td>",""),"</tr>",""),"Météo" )
pour i= 1 à ubound(body1)
corps3=split(corps1(i),"<td")
météo=météo & "document.write("""& i&"$" & "Météo" & HTMLEncode(trim(body3(0))) & """);"
suivant
météo=replace(météo,"1$","<FONT color=#ffffff>【Aujourd'hui】</FONT>")
météo=replace(weather,"2$","<FONT color=#ffffff>【Demain】</FONT>")
météo=replace(weather,"3$","<FONT color=#ffffff>【Après-demain】</FONT>")
Définir fs = CreateObject("Scripting.FileSystemObject")
Définir f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", True)
f.write("document.write('Prévisions météorologiques de Mianyang :');" &vbcrlf & replace(weather,"<BR>",""))
f.fermer
Définir f = rien
Définir fs = rien
réponse.écrire "Prévisions météorologiques de Mianyang :" et météo
Définir oXMLHTTP = Rien
si numéro d'erreur <>0 alors
réponse.write "Une erreur s'est produite, description de l'erreur :"&err.description & "<br>Source de l'erreur"& err.source
réponse.Fin()
finir si
Fonction de fin

Fonction BytesToBstr(body,Cset)
objstream obscur
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Ouvrir
objstream.Écrire le corps
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fermer
définir objstream = rien
Fonction de fin
Fonction publique HTMLEncode(fString)
Si ce n'est pas IsNull (fString) alors
fString = remplacer(fString, ">", "&gt;")
fString = remplacer(fString, "<", "&lt;")
fString = Remplacer(fString, CHR(32), " ") '&nbsp;
fString = Remplacer(fString, CHR(9), " ") '&nbsp;
fString = Remplacer(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "&#39;") 'Filtrage des guillemets simples
fString = Remplacer(fString, CHR(13), "")
fString = Remplacer(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Remplacer(fString, CHR(10), "<BR> ")
HTMLEncode = fChaîne
Fin si
Fonction de fin
%>