getfile.asp
<%
''Utilisez le composant xmlhttp pour obtenir des fichiers distants et enregistrez-les dans l'espace actuel
'' Ceci est un exemple de construction de sites Web. Obtenez à distance le contenu d'une page Web et filtrez les données météorologiques pertinentes. Bien sûr, vous pouvez ignorer le stockage de fichiers locaux, puis obtenir les données.
''Fonction de xoyu référencée, merci ici
filurl=" http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp "
dotloc=InStrRev(fileurl,".")
filepath="thistest"&mid(fileurl,dotloc) ''Créer des noms de fichiers du même type
''filepath="thistest.htm"
appelle saveRemoteFile(filepath,filurl)
sous SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Annonces, Récupération, GetRemoteData
Définir la récupération = Server.CreateObject("Microsoft.XMLHTTP")
Avec récupération
.Ouvrez "Obtenir", RemoteFileUrl, False, "", ""
.Envoyer
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText '' Vous pouvez obtenir directement le contenu des fichiers texte, mais il ne prend pas en charge le chinois. Je ne sais pas comment le résoudre.
Terminer par
la récupération de l'ensemble = Rien
''RESPONSE.WRITE GetDetail
Set Ads = Server.CreateObject("Adodb.Stream") ''Générer le fichier correspondant
Avec des publicités
.Type = 1
.Ouvrir
.Écrire GetRemoteData
.SaveToFile serveur.MapPath(LocalFileName),2
.Annuler()
.Fermer()
Terminer par
Définir les annonces = rien
end sub
''Ce qui précède complète le stockage à distance des fichiers, ce qui suit s'applique uniquement au fonctionnement des fichiers texte www.downcodes.com
set fso=server.createobject("scripting.filesystemobject") ''Lire le contenu du fichier
set fileout=fso.opentextfile(server.mappath(filepath),1)
content=fileout.readall
définir fileout = rien
définir fso = rien
''response.write content
contentarr=split(content,"<td") ''Filtre basé sur le contenu
pour i=1 vers ubound(contentarr)
si instr(contentarr(i),"Enshi") alors thisloc=i
suivant
faible xu(5)
pour j=0 à 4
con1=contentarr(thisloc+j)
start1=instr(con1,">")
con1=droite(con1,len(con1)-start1)
stop1=instr(con1,"<")
con1=gauche(con1,stop1-1)
str=str&contentarr(thisloc+j)
xu(j)=trim(con1)
suivant
si xu(1)<>"" alors
réponse.write "document.write('Prévisions météorologiques de la préfecture d'Enshi pour les prochaines 24 heures :"&xu(1)&", température minimale"&xu(2)&"℃, température maximale"&xu(3)&"℃, vent direction :" &xu(4)&".--publié par l'Observatoire météorologique central de Wuhan');"
autre
réponse.write "document.write('Pas encore publié');"
finir si
''response.write serveur.htmlencode(str)
%>
Citer et afficher le contenu obtenu dans une autre page htm
<script src="getfile.asp"></script>