case fsSizeLimit: response.write "<br><Font Color=red>O seu limite de upload é de 10mb (" & Form.TotalBytes & "B) e voc~e exedeu esse limite. (" & Form.SizeLimit & "B)</Font><br>"
case else response.write "<br><Font Color=red>Some form error.</Font><br>"
end Select
End If'Form.State = 0 then
Function OpenUploadRS()
Dim RS : Set RS = CreateObject("ADODB.Recordset")
'Achei interessante comentar essa parte, pois é aqui que vai o nome da sua tabela, no meu caso era "fotos"
RS.Open "fotos", GetConnection, 2, 2
Set OpenUploadRS = RS
end Function
Function GetConnection()
dim Conn: Set Conn = CreateObject("ADODB.Connection")
var v = window.open(ProgressURL,'_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,width=350,height=200')
Pergunta
Guest --Anderson --
Amigos peguei este codigo de um amigo nosso do forum para estudar... mas estou com uma duvida... como eu posso definir a pasta de upload... o seja:
A pasta do upload eu digito no form e ele joga em uma variavel a ser o upload
<% Server.ScriptTimeout = 500000
Dim Form: Set Form = New ASPForm
%>
<!--#INCLUDE FILE="_upload.asp"-->
<%
Server.ScriptTimeout = 10000
Form.SizeLimit = 10240*1024'10MB
if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")'{/b}
end if
Const fsCompletted = 0
If Form.State = fsCompletted Then
'A linha a seguir é onde está setada a pasata para qual será upado os arquivos, se fores usar FSO, acrescente por aqui
Const VirtualFolder = ("fotos") ' esta é a pasta onde o upload sera feito... já joguei os valores em uma variavel mas não consegui jogar aqui
Dim DestinationPath, virtDestinationPath
DestinationPath = Server.mapPath(VirtualFolder) & "\"
virtDestinationPath = "http://" + Request.ServerVariables("SERVER_NAME") _
+ GetPath(Request.ServerVariables("SCRIPT_NAME") ) _
+ "/" + VirtualFolder + "/"
Dim RS: Set RS = OpenUploadRS
Dim FileField
For Each FileField in Form.Files.Items
if len(FileField.FileName)> 0 then 'File is specified.
Dim DestinationFileName
DestinationFileName = DestinationPath & FileField.FileName
FileField.SaveAs DestinationFileName
'Este comentário fiz questão de colocar, aqui é onde você acrecenta o nome dos campos que estão na sua tabela
RS.AddNew
RS("data") = Form("Desc-" & FileField.Name)
RS("codigo") = Form("Desc-" & FileField.Name)
RS("foto") = FileField.FileName
RS("DestFileName") = VirtualFolder
'...
RS.Update
end if
Next
'fiz uma mudança aqui para retornar a pagina onde estavamos sem perder a querystring("data")
response.write "<meta http-equiv='refresh' content='0; url=java script:history.go(-1)'/>"
Dim Field: For Each Field in Form.Files.Items
'Response.write "<br> " & Field.FileName
Next
'{b}Save file to the destination
'{/b}
ElseIf Form.State > 10 then
Const fsSizeLimit = &HD
Select case Form.State
case fsSizeLimit: response.write "<br><Font Color=red>O seu limite de upload é de 10mb (" & Form.TotalBytes & "B) e voc~e exedeu esse limite. (" & Form.SizeLimit & "B)</Font><br>"
case else response.write "<br><Font Color=red>Some form error.</Font><br>"
end Select
End If'Form.State = 0 then
Function OpenUploadRS()
Dim RS : Set RS = CreateObject("ADODB.Recordset")
'Achei interessante comentar essa parte, pois é aqui que vai o nome da sua tabela, no meu caso era "fotos"
RS.Open "fotos", GetConnection, 2, 2
Set OpenUploadRS = RS
end Function
Function GetConnection()
dim Conn: Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.open "Data Source=" & Server.MapPath("../dados/database.mdb")
set GetConnection = Conn
end function
Function SplitFileName(FullPath)
Dim Pos, PosF
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Select Case Mid(FullPath, Pos, 1)
Case ":", "/", "\": PosF = Pos + 1: Pos = 0
End Select
Next
If PosF = 0 Then PosF = 1
SplitFileName = PosF
End Function
Function GetPath(FullPath)
GetPath = left(FullPath, SplitFileName(FullPath)-1)
End Function
Dim UploadID, PostURL
UploadID = Form.NewUploadID
PostURL = Request.ServerVariables("SCRIPT_NAME") & "?UploadID=" & UploadID'{/b}
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<TITLE>Cido Silva - Sites, softwares e aplicações para web</TITLE>
<STYLE TYPE="text/css"><!--TD {font-family:Arial,Helvetica,sans-serif }TH {font-family:Arial,Helvetica,sans-serif }TABLE {font-size:10pt;font-family:Arial,Helvetica,sans-serif }--></STYLE>
<meta name="robots" content="noindex,nofollow">
<meta name="generator" content="Namo WebEditor v5.0">
</HEAD>
<BODY BGColor="#ECE9D8" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<TABLE cellSpacing=2 cellPadding=1 width="780" bgColor=white border=0 align="center">
<TR>
<TD bgcolor="#2D83C0" width="386">
<p align="center"><font face="Arial" color="white"><span style="font-size:14pt; background-color:rgb(45,131,192);"><b>Adicionar
Fotos</b></span></font></p>
</TD> <TD bgcolor="#2D83C0" width="386">
<p align="center"> <a href="listargalerias.asp"><span style="font-size:14pt;"><b><font color="red" face="Arial">Sair</font></b></span></a></p>
</TD></TR> <TR>
<TD colspan="2">
<P align="center"> <span style="font-size:14pt;"> O limite do upload é de 10Mb.</span>
</P>
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" OnSubmit="return ProgressBar();" Action="<%=PostURL%>">
<Div ID=files>
<p align="center">
<input type="file" name="File1"> <input name="Desc-File1" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
<input type="file" name="File2"> <input name="Desc-File2" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
<input type="file" name="File3"> <input name="Desc-File3" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
<input type="file" name="File4"> <input name="Desc-File4" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
<input type="file" name="File5"> <input name="Desc-File5" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
<input type="file" name="File6"> <input name="Desc-File6" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
<input type="file" name="File7"> <input name="Desc-File7" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
<input type="file" name="File8"> <input name="Desc-File8" type="hidden" id="ID" value='<%=request.querystring("data")%>'> <br><input type="file" name="File9"> <input name="Desc-File9" type="hidden" id="ID" value='<%=request.querystring("data")%>'><br>
<input type="file" name="File10"> <input name="Desc-File10" type="hidden" id="ID" value='<%=request.querystring("data")%>'></Div>
<p align="center"><input Name=SubmitButton Value="Enviar fotos" Type=Submit><br>
</Form>
<p align="center"><script>
//Open window with progress bar.
function ProgressBar(){
var ProgressURL
ProgressURL = 'progress.asp?UploadID=<%=UploadID%>'
var v = window.open(ProgressURL,'_blank','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,width=350,height=200')
return true;
}
</SCRIPT>
<script>
//Expand form with a new File fields if needed.
var nfiles = 3;
function Expand(){
nfiles++
var adh = '<BR> File '+nfiles+' : <input type="file" name="File'+nfiles+'"> Description '+nfiles+' : <Input Name="Desc-File'+nfiles+'" Size=50>';
files.insertAdjacentHTML('BeforeEnd',adh);
return false;
}
</Script><CENTER>
</CENTER> </TD></TR></TABLE>
<p> </p>
</BODY></HTML>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.