'************************************************ * **************
' fonction
' Fonction : Utiliser des flux pour enregistrer des fichiers
'Paramètres : from (adresse du fichier distant), tofile (emplacement du fichier de sauvegarde)
'************************************************ * **************
Fonction privée SaveFiles (byref from, byref tofile)
Dim Données
Données = Obtenir les données (à partir de,0)
Response.Write enregistré avec succès : &formatnumber(len(Datas)/1024*2,2)&Ko
réponse.Flush
si formatnumber(len(Datas)/1024*2,2)>1 alors
ADOS.Type = 1
ADOS.Mode =3
ADOS.Ouvrir
ADOS.écrire des données
ADOS.SaveToFile serveur.mappath(tofile),2
ADOS.Fermer()
autre
Response.Write n'a pas réussi à enregistrer : taille et numéro de format du fichier (len(imgs)/1024*2,2) et Ko, moins de 1 Ko
réponse.Flush
finir si
fonction de fin
'************************************************ * **************
'fonction (privée)
' Fonction : utilisez fso pour détecter si le fichier existe. S'il existe, il renverra true. S'il n'existe pas, il renverra false.
'Paramètre : filespes (emplacement du fichier)
'************************************************ * **************
La fonction privée IsExists (byref filespec)
Si (FSO.FileExists(server.MapPath(filespec))) Alors
EstExiste = Vrai
Autre
EstExiste = Faux
Fin si
Fonction de fin
'************************************************ * **************
'fonction (privée)
' Fonction : utilisez fso pour détecter si le dossier existe. S'il existe, il renvoie true. S'il n'existe pas, il renvoie false.
'Paramètre : dossier (emplacement du dossier)
'************************************************ * **************
Fonction privée IsFolder (dossier byref)
Si FSO.FolderExists(server.MapPath(Dossier)) Alors
IsFolder = Vrai
Autre
IsFolder = Faux
Fin si
Fonction de fin
'************************************************ * **************
'fonction (privée)
' Fonction : Utiliser fso pour créer un dossier
'Paramètre : fldr (emplacement du dossier)
'************************************************ * **************
Fonction privée CreateFolder (byref fldr)
f
Définir f = FSO.CreateFolder(Server.MapPath(fldr))
CreateFolder = f.Path
Définir f = rien
Fonction de fin
'************************************************ * **************
' fonction (publique)
' Fonction : Enregistrer des fichiers et créer automatiquement des dossiers à plusieurs niveaux
'Paramètres : fromurl (adresse du fichier distant), tofiles (emplacement de sauvegarde)
'************************************************ * **************
Fonction publique SaveData (byref FromUrl, byref ToFiles)
ToFiles=trim(Remplacer(ToFiles,//,/))
flName=VersFichiers
fldr=
Si IsExists(flName)=false alors
GetNewsFold=split(flName,/)
Pour i=0 à Ubound(GetNewsFold)-1
si fldr= alors
fldr=GetNewsFold(i)
autre
fldr=fldr&/&GetNewsFold(i)
finir si
Si IsFolder(fldr)=false alors
Créer un dossier fldr
Terminer si
Suivant
Enregistrer les fichiers depuisUrl,flName
Terminer si
Fin de fonction
'************************************************ * **************
' fonction (publique)
' Fonction : Obtenir des données à distance
'Paramètres : url (adresse du fichier distant), getmode (mode : 0 est binaire, 1 est un encodage chinois)
'************************************************ * **************
Fonction publique GetData (URL par référence, par référence GetMode)
'en cas d'erreur, reprendre ensuite
SourceCode = OXML.open (GET,url,false)
OXML.envoyer()
si OXML.readystate<>4 alors quittez la fonction
si GetMode=0 alors
GetData = OXML.responseBody
autre
GetData = BytesToBstr(OXML.responseBody)
finir si
si err.number<>0 alors err.Clear
Fonction de fin
'************************************************ * **************
' fonction (publique)
' Fonction : formater l'adresse de l'image distante en tant qu'emplacement local
'Paramètres : imgurl (adresse de l'image distante), imgfolder (répertoire d'images local), premier nom (nom de préfixe ajouté)
'************************************************ * **************
Fonction publique FormatImgPath(byref ImgUrl,byref ImgFolder,byref FristName,byref noimg)
strpath=
ImgUrl=ImgUrl
si instr(ImgUrl,Nophoto) ou lenb(GetData(ImgUrl,0))<=0 alors
strpath=nomg
Réponse.Écrire &strpath& &vbcrlf
autre
si Instr(ImgUrl,.asp) alors
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, =)+1)&.jpg
autre
strpath=NomPremier&_&Mid(ImgUrl, InStrRev(ImgUrl, /)+1)
finir si
strpath = ImgDossier&/&strpath
strpath = Remplacer(strpath,//,/)
si left(strpath,1)=/ alors strpath=right(strpath,len(strpath)-1)
strpath = trim(strpath)
Réponse.Écrire &strpath& &vbcrlf
savedataImgUrl, strpath
finir si
FormatImgPath = strpath
Fin de fonction