Verwenden Sie XMLHTTP, um ein Wettervorhersageprogramm zu schreiben

Ich arbeite für ein lokales Portal und das Wetter auf der Website muss jeden Tag aktualisiert werden.

der

Veröffentlichung einen geplanten News-Thief geschrieben: Unterstützen Sie FSO, Server UDP TCP/IP.

Dateiname TianQi.asp
Schreiben von Nioked QQ408611119
www.downcodes.com
<%
wenn Stunde(jetzt)=9 und Minute(jetzt)<30 dann
getCategories()
Ende wenn
Funktion getCategories()
Bei Fehler als nächstes fortfahren
Dim oXMLHTTP 'Als Objekt
Dim oCategories ' als Objekt
DimBodyText
Dimmen Sie Pos, Pos1
Legen Sie oXMLHTTP = CreateObject("Microsoft.XMLHTTP") fest.
'--- Legen Sie den XMLHTTP-Aufruf fest und senden Sie das Problem (kein Parameter als Kategorie.)
'--- ist in der URL enthalten
oXMLHTTP.open „GET“, http://weather.china.com.cn/travel_gntq.php?cityid=56196&cityname =Mianyang“,False 'Ersetzen Sie diesen Ort durch Ihre eigene Adresse
oXMLHTTP.send
'--- Laden Sie die Antwort in die Dateninsel „Kategorien“.
BodyText=oXMLHTTP.responsebody
BodyText=BytesToBstr(BodyText,"gb2312")
Pos=Instr(BodyText,"<body")
pos1=Instr(BodyText,"</body>")
BodyText=mid(BodyText,pos,pos1)
BodyText=split(BodyText,"<table")
Pos=Instr(BodyText(4),"<tr")
pos1=Instr(BodyText(4),"</tr>")
Body=mid(BodyText(4),pos,len(BodyText(4))-pos)
body=split(body,"</table>")
body1=split(replace(replace(replace(body(0),"<br>",""),"</td>",""),"</tr>",""),"Weather" )
für i= 1 bis ubound(body1)
body3=split(body1(i),"<td")
Weather=Weather & "document.write("""& i&"$" & "Weather" & HTMLEncode(trim(body3(0))) & """);"
nächste
Weather=replace(weather,"1$","<FONT color=#ffffff>【Heute】</FONT>")
Weather=replace(weather,"2$","<FONT color=#ffffff>【Tomorrow】</FONT>")
Weather=replace(weather,"3$","<FONT color=#ffffff>【Übermorgen】</FONT>")
Setze fs = CreateObject("Scripting.FileSystemObject")
Setze f = fs.CreateTextFile(request.ServerVariables("APPL_PHYSICAL_PATH")& "tq.js", True)
f.write("document.write('Mianyang Weather Forecast:');" &vbcrlf & replace(weather,"<BR>",""))
f.schließen
Setze f = nichts
Setze fs = nichts
Antwort.write „Mianyang Wettervorhersage:“& Wetter
Legen Sie oXMLHTTP = Nichts fest
wenn err.number<>0 dann
Response.write „Ein Fehler ist aufgetreten, Fehlerbeschreibung:“&err.description & „<br>Fehlerquelle“& err.source
Antwort.End()
Ende wenn
Endfunktion

Funktion BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Öffnen
objstream.Text schreiben
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Schließen
set objstream = nichts
Funktion beenden
Öffentliche Funktion HTMLEncode(fString)
Wenn nicht IsNull(fString) dann
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = Replacement(fString, CHR(32), " ") '&nbsp;
fString = Replacement(fString, CHR(9), " ") '&nbsp;
fString = Replacement(fString, CHR(34), "&quot;")
fString = Replacement(fString, CHR(39), "&#39;") 'Einfache Anführungszeichenfilterung
fString = Ersetzen(fString, CHR(13), "")
fString = Replacement(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replacement(fString, CHR(10), "<BR> ")
HTMLEncode = fString
Ende wenn
Funktion beenden
%>