Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal,
Segue código que capturei no Laboratório, mas não consegui colocar em prática, podem me ajudar???
Obrigado asp.net, mas nao consegui fazer funcionar ainda!
<span style='color:blue'>[b]==================CODIGO========================[/b]</span>
<span style='color:red'>==========FORMULÁRIO DE SELEÇÃO DO ARQUIVO</span>
<form action="enviandofoto2.asp" method="post" [b]<span style='color:red'>enctype="multipart/form-data</span>[/b]"> ' <span style='color:red'>INFORMAÇÃO OBRIGATÓRIA, POIS DETERMINA QUE SERÃO ENVIADAS INFORMAÇÕES BINÁRIAS.</span>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="foto" type="file"> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="Cadastrar Foto"></td>
<td> </td>
</tr>
</table>
</form>
<span style='color:red'>==================ENVIANDO O ARQUIVO PARA O SERVIDOR</span><%Server.ScriptTimeOut=10000000%> 'AUMENTA O TEMPO PARA O ENVIO DO ARQUIVO
Set UploadFoto=Server.CreateObject("aspSmartUpload.SmartUpload")
UploadFoto.AllowedFilesList="jpg" ' DETERMINA O TIPO DE ARQUIVO QUE PODE SER ENVIADO
UploadFoto.DeniedFilesList = "bmp,tif,cdr,png" ' DETERMINA O TIPO DE ARQUIVO QUE NÃO PODE SER ENVIADO
UploadFoto.MaxFileSize = 50000 ' DETERMINA O TAMANHO MÁXIMO DO ARQUIVO
UploadFoto.TotalMaxFileSize =50000
'nomefoto=UploadFoto.Files.Foto.Name ' PEGA O NOME DO ARQUIVO QUE ESTÁ SENDO ENVIADO.
UploadFoto.Upload
'IntCount = UploadFoto.Save("d:\imagens\")
IntCount = UploadFoto.Save("d:\web\valeuboi\htdocs\fotos\")
IF Err Then
response.Write("<B>Ocorreu um erro</>::" &Err.Description)
else
For Each file In UploadFoto.Files
nomefoto=File.FileName
next
response.redirect("enviandofoto3.asp?idfoto="&nomefoto&"")
end if
<span style='color:red'>==========================SALVANDO ENDEREÇO/NOME DO ARQUIVO EM UM BANCO DE DADOS</span>
idtfoto=Request.QueryString("idfoto")
Obrecordset.Open "fotos", Conexao, adOpenKeyset, adLockOptimistic
Obrecordset.AddNew
Obrecordset("foto")="fotos/"&idtfoto
Obrecordset("nome")=idtfoto
Obrecordset.Update
Fechar()
response.redirect("album.asp")
Segue como ficou na page:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<span style='color:red'>==========FORMULÁRIO DE SELEÇÃO DO ARQUIVO</span>
<form action="enviandofoto2.asp" method="post" [b]<span style='color:red'>enctype="multipart/form-data</span>[/b]"> ' <span style='color:red'>INFORMAÇÃO OBRIGATÓRIA, POIS DETERMINA QUE SERÃO ENVIADAS INFORMAÇÕES BINÁRIAS.</span>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="foto" type="file"> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="Cadastrar Foto"></td>
<td> </td>
</tr>
</table>
</form>
<span style='color:red'>==================ENVIANDO O ARQUIVO PARA O SERVIDOR</span><%Server.ScriptTimeOut=10000000%> 'AUMENTA O TEMPO PARA O ENVIO DO ARQUIVO
Set UploadFoto=Server.CreateObject("aspSmartUpload.SmartUpload")
UploadFoto.AllowedFilesList="jpg" ' DETERMINA O TIPO DE ARQUIVO QUE PODE SER ENVIADO
UploadFoto.DeniedFilesList = "bmp,tif,cdr,png" ' DETERMINA O TIPO DE ARQUIVO QUE NÃO PODE SER ENVIADO
UploadFoto.MaxFileSize = 50000 ' DETERMINA O TAMANHO MÁXIMO DO ARQUIVO
UploadFoto.TotalMaxFileSize =50000
'nomefoto=UploadFoto.Files.Foto.Name ' PEGA O NOME DO ARQUIVO QUE ESTÁ SENDO ENVIADO.
UploadFoto.Upload
'IntCount = UploadFoto.Save("d:\imagens\")
IntCount = UploadFoto.Save("d:\web\valeuboi\htdocs\fotos\")
IF Err Then
response.Write("<B>Ocorreu um erro</>::" &Err.Description)
else
For Each file In UploadFoto.Files
nomefoto=File.FileName
next
response.redirect("enviandofoto3.asp?idfoto="&nomefoto&"")
end if
<span style='color:red'>==========================SALVANDO ENDEREÇO/NOME DO ARQUIVO EM UM BANCO DE DADOS</span>
idtfoto=Request.QueryString("idfoto")
Obrecordset.Open "fotos", Conexao, adOpenKeyset, adLockOptimistic
Obrecordset.AddNew
Obrecordset("foto")="fotos/"&idtfoto
Obrecordset("nome")=idtfoto
Obrecordset.Update
Fechar()
response.redirect("album.asp")
</body>
</html>Pois quando publico ela da o seguinte erro:
Microsoft JScript compilation error '800a03ea'
Syntax error
/teste.asp, line 30
<%Server.ScriptTimeOut=10000000
-^
Quais as alterações que devo fazer para que funcione???
Desde já agradeço a todos!
Carregando comentários...