'************************************************** * ***************
' Funktion
' Funktion: Streams zum Speichern von Dateien verwenden
'Parameter: from (Remote-Dateiadresse), tofile (Speicherort der Datei)
'************************************************** * ***************
Private Funktion SaveFiles(byref from,byref tofile)
Daten abdunkeln
Datas=GetData(from,0)
Response.Write erfolgreich gespeichert: &formatnumber(len(Datas)/1024*2,2)&Kb
Antwort.Flush
wenn formatnumber(len(Datas)/1024*2,2)>1 dann
ADOS.Type = 1
ADOS.Mode =3
ADOS.Öffnen
ADOS.write-Daten
ADOS.SaveToFile server.mappath(tofile),2
ADOS.Close()
anders
Response.Write konnte nicht gespeichert werden: Dateigröße&Formatnummer(len(imgs)/1024*2,2)&KB, weniger als 1 KB
Antwort.Flush
Ende wenn
Endfunktion
'************************************************** * ***************
' Funktion (privat)
' Funktion: Verwenden Sie fso, um festzustellen, ob die Datei vorhanden ist. Wenn sie nicht vorhanden ist, wird false zurückgegeben.
'Parameter: filespes (Dateispeicherort)
'************************************************** * ***************
Private Funktion IsExists(byref filespec)
If (FSO.FileExists(server.MapPath(filespec))) Dann
IsExists = True
Anders
IsExists = False
Ende wenn
Funktion beenden
'************************************************** * ***************
' Funktion (privat)
' Funktion: Verwenden Sie fso, um festzustellen, ob der Ordner vorhanden ist. Wenn er nicht vorhanden ist, wird false zurückgegeben.
'Parameter: Ordner (Ordnerspeicherort)
'************************************************** * ***************
Private Funktion IsFolder(byref Folder)
Wenn FSO.FolderExists(server.MapPath(Folder)) dann
IsFolder = True
Anders
IsFolder = False
Ende wenn
Funktion beenden
'************************************************** * ***************
' Funktion (privat)
' Funktion: Verwenden Sie fso, um einen Ordner zu erstellen
'Parameter: fldr (Ordnerspeicherort)
'************************************************** * ***************
Private Funktion CreateFolder(byref fldr)
F
Setze f = FSO.CreateFolder(Server.MapPath(fldr))
CreateFolder = f.Path
Setze f=nichts
Funktion beenden
'************************************************** * ***************
' Funktion (öffentlich)
' Funktion: Dateien speichern und automatisch mehrstufige Ordner erstellen
'Parameter: fromurl (Remote-Dateiadresse), tofiles (Speicherort)
'************************************************** * ***************
Öffentliche Funktion SaveData(byref FromUrl,byref ToFiles)
ToFiles=trim(Replace(ToFiles,//,/))
flName=ToFiles
fldr=
Wenn IsExists(flName)=false, dann
GetNewsFold=split(flName,/)
Für i=0 bis Ubound(GetNewsFold)-1
wenn fldr= dann
fldr=GetNewsFold(i)
anders
fldr=fldr&/&GetNewsFold(i)
Ende wenn
Wenn IsFolder(fldr)=false, dann
CreateFolder fldr
Ende wenn
Nächste
SaveFiles FromUrl,flName
Ende wenn
Funktion beenden
'************************************************** * ***************
' Funktion (öffentlich)
' Funktion: Remote-Daten abrufen
'Parameter: URL (Remote-Dateiadresse), Getmode (Modus: 0 ist binär, 1 ist chinesische Kodierung)
'************************************************** * ***************
Öffentliche Funktion GetData(byref url,byref GetMode)
'Bei Fehler als nächstes fortfahren
SourceCode = OXML.open (GET,url,false)
OXML.send()
Wenn OXML.readystate<>4, dann beenden Sie die Funktion
wenn GetMode=0 dann
GetData = OXML.responseBody
anders
GetData = BytesToBstr(OXML.responseBody)
Ende wenn
Wenn err.number<>0, dann err.Clear
Funktion beenden
'************************************************** * ***************
' Funktion (öffentlich)
' Funktion: Formatieren Sie die Remote-Image-Adresse als lokalen Standort
'Parameter: imgurl (Remote-Bildadresse), imgfolder (lokales Bildverzeichnis), fristname (hinzugefügter Präfixname)
'************************************************** * ***************
Öffentliche Funktion FormatImgPath(byref ImgUrl,byref ImgFolder,byref FristName,byref noimg)
strpath=
ImgUrl=ImgUrl
wenn instr(ImgUrl,Nophoto) oder lenb(GetData(ImgUrl,0))<=0 dann
strpath=noimg
Antwort. Schreiben Sie &strpath& &vbcrlf
anders
if Instr(ImgUrl,.asp) then
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, =)+1)&.jpg
anders
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, /)+1)
Ende wenn
strpath = ImgFolder&/&strpath
strpath = Ersetzen(strpath,//,/)
if left(strpath,1)=/ then strpath=right(strpath,len(strpath)-1)
strpath = trim(strpath)
Antwort. Schreiben Sie &strpath& &vbcrlf
savedataImgUrl,strpath
Ende wenn
FormatImgPath = strpath
Funktion beenden