Enviando mais de 1 arquivos para o ftp
Bom dia, como eu faço para enviar mais de um arquivo para o ftp? Eu tenho os seguintes códigos...
O Formulario
<form name="form1" id="form1" method="post" action="insert.asp" enctype="multipart/form-data">
<table border="0" background="../../v2/IMAGENS/FUNDO/BackNetFundoNoticia.gif">
<tr>
<td colspan="2"><div align="left">
<p><font size="4"><strong><font color="#FFFFFF" face="Arial, Helvetica, sans-serif">Arquivo Nota Fiscal</font><font face="Arial, Helvetica, sans-serif">
<font color="#FFFF00">[ Inclusão ]</font><font color="#FF0000"><br>
</font></font></strong></font></p>
</div></td>
</tr>
<tr>
<td width="19%" valign="top"><font size="2" face="Arial, Helvetica, sans-serif">Loja</font></td>
<td width="81%"><select name="select" id="select">
<option value="0">||Selecione uma loja||</option>
<%
while rs.eof=false
%>
<option id="1" value="<%=rs("cnpj")%>"><%=rs("loja")%></option>
<%
rs.movenext
wend
%>
</select>
</td>
</tr>
<tr>
<td valign="top"><font size="2" face="Arial, Helvetica, sans-serif">Faturamento</font></td>
<td><input name="arquivo" type="file" id="arquivo" value="" size="60"/></td>
</tr>
<tr>
<td><font color="#000066" size="2" face="Arial, Helvetica, sans-serif"><strong><a href="#"><img src="../../v2/IMAGENS/BOTOES/BackNetAddNoticia.gif" width="120" height="40" border=0></a>
</strong></font></td>
<td> <div align="center">
<input name="acao" type="hidden" id="acao" value="<%=acao%>" />
<input name="id" type="hidden" id="id" value="<%=id%>" />
<input type="submit" name="gravar" value="Gravar" >
<input type="RESET" value="Limpar">
</div></td>
</tr>
</table>
</form>
upload.asp
<!--#include file="config.asp" -->
<%
'Instancia o componente
SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")
server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores
'Configura o caminho onde arquivo será salvo
SaFileUp.Path = Server.MapPath("../../v2/arquivos/")
'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\
'Você pode usar também o caminho relativo se preferir
'SaFileUp.Path = Server.MapPath("./upload/")
'Caso o usuário não indique um arquivo para upload, informa erro.
If SaFileUp.IsEmpty Then
response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
Else
'Salva o arquivo no servidor
SaFileUp.Savecall connect
dim rx, proximo, nome_arq, status, tipo, rs, tamanho
set rx = con.execute("SELECT max (Codigo) as Cod FROM Arquivo")
proximo = rx("Cod")+1
nome_arq = Right(SaFileUp.Form("arquivo"),Len(SaFileUp.Form("arquivo"))-InstrRev(SaFileUp.Form("arquivo"),"\"))
status = "N"
tipo = "XML"
tamanho = SaFileUp.TotalBytes
'if tamanho >= 1048576 then ' É mega byte
'tamanho = round(tamanho / 1048576)&"MB"
if tamanho >= 1024 then ' E kByte
tamanho = round(tamanho / 1024) &"KB"
end if
set rs = con.execute("INSERT INTO Arquivo(Codigo,nome,cnpj,status,tipo, caminho, tamanho)values('"&proximo&"', '"&left(right(SaFileUp.Form("arquivo"),13),9)&"', '"&right(left(nome_arq,14),14)&"', '"&status&"', '"&tipo&"', '"&right(SaFileUp.Form("arquivo"),29)&"', '"&tamanho&"')")
'response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
End if
'Gera um link html para retornar a pagina anterior
response.write ("<script>alert('Nota Fiscal salvo com sucesso!');location='backnet_notasXML.asp'</script>")
Set SaFileUp = Nothing
%>
Hj tem que salvar os arquivo com o nome desejado e em seguida quando ele é enviado eu pego os dados tipo CNPJ e Número da Nota.
O que eu queria era salvar e depois altar os nomes colocando o cnpj da loja e o número da nota.
Discussão (4)
Carregando comentários...