Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera, cá estou de novo com outro tópico.
Estou com este código abaixo que achei sensacional, só que gostaria de gravar em um banco access os seguintes dados: Evento, Local e Data, teria como alguém adaptar pra mim?
Obrigado.
<!--
Arquivo original baixado do endereço http://www.uploadify.com/
Originalmente apenas era possível a utilização de PHP.
Fiz muitas buscas mas somente encontrei PHP e outras linguagens que NÃO ASP.
http://www.valterfurtado.com/blog
valter@valterfurtado.com
26 de novembro de 2009
Vitória - ES/Brasil
-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="[http://www.w3.org/1999/xhtml">](http://www.w3.org/1999/xhtml)
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Upload ASP + JQuery - Uploadfy</title>
<link href="default.css" rel="stylesheet" type="text/css" />
<link href="uploadify.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="jquery-1.3.2.min.js"></script>
<script type="text/javascript" src="jquery.uploadify.v2.1.0.js"></script>
<script type="text/javascript" src="swfobject.js"></script>
<!--<script type="text/javascript" src="jquery.uploadify.v2.1.0.min.js"></script>-->
<script type="text/javascript">
$(document).ready(function() {
$("#uploadify").uploadify({
'uploader' : 'uploadify.swf',
'script' : '_upload.asp',
'cancelImg' : 'cancel.png',
'folder' : 'uploads',
'queueID' : 'fileQueue',
'auto' : true,
'multi' : true
});
});
</script>
</head>
<body>
<div id="fileQueue"></div>
<input type="file" name="uploadify" id="uploadify" />
<p><a href="javascript:jQuery('#uploadify').uploadifyClearQueue()"><img src="cancel.png" border="0" /></a> <a href="javascript:jQuery('#uploadify').uploadifyClearQueue()">Cancelar
Tudo</a></p>
</body>
</html>Código do upload:
_upload.asp
<!--
Arquivo original baixado do endereço http://www.uploadify.com/
Originalmente apenas era possível a utilização de PHP.
Fiz muitas buscas mas somente encontrei PHP e outras linguagens que NÃO ASP.
http://www.valterfurtado.com/blog
valter@valterfurtado.com
26 de novembro de 2009
Vitória - ES/Brasil
-->
<%
Dim PastadeDestino, Pasta
Pasta = Request.QueryString("folder")
PastadeDestino = Server.mapPath(Pasta)
Dim Form: Set Form = New ASPForm %>
<!--#INCLUDE FILE="upload.asp"-->
<%
Server.ScriptTimeout = 2000
Form.SizeLimit = &HA00000
If Form.State = 0 Then
Dim File, NomedoArquivo
For Each File In Form.Files.Items
If Len(File.FileName) > 0 Then
NomedoArquivo = ArquivoNomeUnico(File.FileName, PastadeDestino)
File.SaveAs PastadeDestino & "\" & NomedoArquivo
Response.Write "<br>Arquivo salvo em <b>" & PastadeDestino & "</b> com o nome de <b>" & NomedoArquivo & "</b>"
End If
Next Select case Form.State
case fsSizeLimit: response.write "<br>Arquivo (" & Form.TotalBytes & "B) acima do tamanho (" & Form.SizeLimit & "B)<br>"
case else response.write "<br>Ocorreram erros!<br>"
end SelectDim gFS
Function ArquivoNomeUnico(NomedoArquivo, PastadeDestino)
if isempty(gFS) then Set gFS = CreateObject("Scripting.FileSystemObject")
Dim Contador, DestinoCompleto, NovoNome
Contador = 1
NovoNome = NomedoArquivo
if gFS.FileExists(PastadeDestino & "\" & NovoNome) then
Do
Contador = Contador + 1
NovoNome = Contador & "-" & NomedoArquivo
Loop while gFS.FileExists(PastadeDestino & "\" & NovoNome)
end if
ArquivoNomeUnico = NovoNome
End Function
'#######################################################
%>
Carregando comentários...