'************************************************ * ***************
' función
' Función: Usar secuencias para guardar archivos
'Parámetros: desde (dirección de archivo remoto), hasta archivo (ubicación para guardar el archivo)
'************************************************ * ***************
Función privada Guardar archivos (por referencia desde, por referencia al archivo)
Datos oscuros
Datos=ObtenerDatos(de,0)
Respuesta. Escritura guardada correctamente: &formatnumber(len(Datas)/1024*2,2)&Kb
respuesta.Flush
si número de formato (len (Datos)/1024*2,2)>1 entonces
ADOS.Tipo = 1
ADOS.Modo =3
ADOS.Abierto
ADOS.escribir datos
ADOS.SaveToFile server.mappath(tofile),2
ADOS.Cerrar()
demás
Respuesta. La escritura no se pudo guardar: tamaño de archivo y número de formato (len (imgs)/1024*2,2) y Kb, menos de 1 K
respuesta.Flush
terminar si
función final
'************************************************ * ***************
' función (privada)
' Función: Utilice fso para detectar si el archivo existe. Si existe, devolverá verdadero. Si no existe, devolverá falso.
'Parámetro: filespes (ubicación del archivo)
'************************************************ * ***************
La función privada existe (byref filespec)
Si (FSO.FileExists (servidor.MapPath (especificación de archivo))) Entonces
Existe = Verdadero
Demás
Existe = Falso
Terminar si
Función final
'************************************************ * ***************
' función (privada)
' Función: Utilice fso para detectar si la carpeta existe. Si existe, devuelve verdadero. Si no existe, devuelve falso.
'Parámetro: carpeta (ubicación de la carpeta)
'************************************************ * ***************
Función privada IsFolder (carpeta byref)
Si FSO.FolderExists (servidor.MapPath (Carpeta)) Entonces
EsCarpeta = Verdadero
Demás
EsCarpeta = Falso
Terminar si
Función final
'************************************************ * ***************
' función (privada)
' Función: Usar fso para crear una carpeta
'Parámetro: fldr (ubicación de la carpeta)
'************************************************ * ***************
Función privada CreateFolder (byref fldr)
F
Establecer f = FSO.CreateFolder(Server.MapPath(fldr))
CrearCarpeta = f.Ruta
Establecer f=nada
Función final
'************************************************ * ***************
' función (pública)
' Función: Guardar archivos y crear automáticamente carpetas de varios niveles
'Parámetros: fromurl (dirección de archivo remoto), tofiles (ubicación para guardar)
'************************************************ * ***************
Función pública SaveData (por referencia a FromUrl, por referencia a ToFiles)
AArchivos=recortar(Reemplazar(AArchivos,//,/))
flName=AArchivos
fldr=
Si IsExists(flName)=false entonces
GetNewsFold=split(flNombre,/)
Para i=0 a Ubound(GetNewsFold)-1
si fldr= entonces
fldr=GetNewsFold(i)
demás
fldr=fldr&/&GetNewsFold(i)
terminar si
Si IsFolder(fldr)=false entonces
Crear carpeta fldr
terminar si
Próximo
Guardar archivos desde URL, flName
terminar si
Función final
'************************************************ * ***************
' función (pública)
' Función: Obtener datos remotos
'Parámetros: url (dirección de archivo remoto), getmode (modo: 0 es binario, 1 es codificación china)
'************************************************ * ***************
Función pública GetData (byref url, byref GetMode)
'en caso de error, reanudar siguiente
Código fuente = OXML.open (GET,url,falso)
OXML.enviar()
si OXML.readystate<>4 entonces salga de la función
si GetMode = 0 entonces
ObtenerDatos = OXML.responseBody
demás
GetData = BytesToBstr(OXML.responseBody)
terminar si
si err.number<>0 entonces err.Clear
Función final
'************************************************ * ***************
' función (pública)
' Función: formatear la dirección de la imagen remota como una ubicación local
'Parámetros: imgurl (dirección de imagen remota), imgfolder (directorio de imágenes local), fristname (nombre de prefijo agregado)
'************************************************ * ***************
Formato de función públicaImgPath(byref ImgUrl,byref ImgFolder,byref FristName,byref noimg)
ruta de acceso =
URLImg=UrlImg
si instr(ImgUrl,Nophoto) o lenb(GetData(ImgUrl,0))<=0 entonces
strpath=noimg
Respuesta.Escribir &strpath& &vbcrlf
demás
si Instr(ImgUrl,.asp) entonces
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, =)+1)&.jpg
demás
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, /)+1)
terminar si
strpath = CarpetaImg&/&strpath
strpath = Reemplazar(strpath,//,/)
si izquierda(strpath,1)=/ entonces strpath=right(strpath,len(strpath)-1)
ruta de acceso = recortar(ruta de acceso)
Respuesta.Escribir &strpath& &vbcrlf
savedataImgUrl,strpath
terminar si
FormatImgPath = ruta de acceso
Función final