'********************************************** ***************
'função
'Função: Use streams para salvar arquivos
'Parâmetros: from (endereço do arquivo remoto), tofile (local para salvar o arquivo)
'********************************************** ***************
Função privada SaveFiles (byref from,byref tofile)
Escurecer dados
Dados=GetData(de,0)
Response.Write salvo com sucesso: &formatnumber(len(Datas)/1024*2,2)&Kb
resposta.Flush
se formatonúmero(len(Datas)/1024*2,2)>1 então
ADOS.Tipo = 1
Modo ADOS =3
ADOS.Aberto
Dados ADOS.write
ADOS.SaveToFile server.mappath(tofile),2
ADOS.Fechar()
outro
Response.Write falhou ao salvar: tamanho do arquivo&formatnumber(len(imgs)/1024*2,2)&Kb, menos de 1K
resposta.Flush
terminar se
função final
'********************************************** ***************
'função (privada)
'Função: Use fso para detectar se o arquivo existe. Se existir, retornará verdadeiro. Se não existir, retornará falso.
'Parâmetro: filespes (localização do arquivo)
'********************************************** ***************
Função privada IsExists (byref filespec)
Se (FSO.FileExists(server.MapPath(filespec))) Então
ÉExiste = Verdadeiro
Outro
ÉExiste = Falso
Terminar se
Função final
'********************************************** ***************
'função (privada)
'Função: Use fso para detectar se a pasta existe. Se existir, retorna verdadeiro. Se não existir, retorna falso.
'Parâmetro: pasta (localização da pasta)
'********************************************** ***************
Função privada IsFolder (pasta byref)
Se FSO.FolderExists(server.MapPath(Folder)) Então
ÉPasta = Verdadeiro
Outro
ÉFolder = Falso
Terminar se
Função final
'********************************************** ***************
'função (privada)
'Função: Use fso para criar uma pasta
'Parâmetro: fldr (localização da pasta)
'********************************************** ***************
Função privada CreateFolder (byref fldr)
f
Definir f = FSO.CreateFolder(Server.MapPath(fldr))
CriarPasta = f.Path
Definir f = nada
Função final
'********************************************** ***************
'função (pública)
'Função: Salva arquivos e cria automaticamente pastas de vários níveis
'Parâmetros: fromurl (endereço de arquivo remoto), tofiles (local de salvamento)
'********************************************** ***************
Função pública SaveData(byref FromUrl,byref ToFiles)
ToFiles=trim(Replace(ToFiles,//,/))
flName=ParaArquivos
fldr =
Se IsExists(flName)=falso então
GetNewsFold=split(flNome,/)
Para i=0 para Ubound(GetNewsFold)-1
se fldr = então
fldr=GetNewsFold(i)
outro
fldr=fldr&/&GetNewsFold(i)
terminar se
Se IsFolder(fldr)=false então
Criar pasta fldr
Terminar se
Próximo
Salvar arquivos deUrl,flName
Terminar se
Função final
'********************************************** ***************
'função (pública)
'Função: Obtém dados remotos
'Parâmetros: url (endereço de arquivo remoto), getmode (modo: 0 é binário, 1 é codificação chinesa)
'********************************************** ***************
Função pública GetData (byref url, byref GetMode)
'em caso de erro retome o próximo
SourceCode = OXML.open (GET,url,falso)
OXML.enviar()
se OXML.readystate<>4 então saia da função
se GetMode=0 então
GetData = OXML.responseBody
outro
GetData = BytesToBstr(OXML.responseBody)
terminar se
se err.número<>0 então err.Clear
Função final
'********************************************** ***************
'função (pública)
'Função: formatar o endereço da imagem remota como um local local
'Parâmetros: imgurl (endereço de imagem remota), imgfolder (diretório de imagem local), fristname (nome de prefixo adicionado)
'********************************************** ***************
Função pública FormatImgPath(byref ImgUrl,byref ImgFolder,byref FristName,byref noimg)
caminho=
ImgUrl=ImgUrl
se instr(ImgUrl,Nophoto) ou lenb(GetData(ImgUrl,0))<=0 então
strpath=noimg
Resposta.Write &strpath& &vbcrlf
outro
se Instr(ImgUrl,.asp) então
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, =)+1)&.jpg
outro
strpath=PrimeiroNome&_&Mid(ImgUrl, InStrRev(ImgUrl, /)+1)
terminar se
strpath = Pasta Img&/&strpath
strpath = Substituir(strpath,//,/)
se esquerda(strpath,1)=/ então strpath=direita(strpath,len(strpath)-1)
strpath = trim(strpath)
Resposta.Write &strpath& &vbcrlf
savedataImgUrl,strpath
terminar se
FormatImgPath = strpath
Função final