Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

doiddao

Desafio aos universitarios

Por , em ASP Clássico

Recommended Posts

doiddao    0

doiddao
Postado

Continuo problemas com AspSmartUpload. Tenho q fazer um upload de arquivo, sendo q o arquivo vai pra uma pasta e o seu caminho pro banco de dados junto com o nome do usuario e data e hora... Gostaria de ajuda dos programadores mais experientes pra sanar esse problema. Desde ja agradeçoMarconi :) Script<!-- Código da página que processa: --><html><head><title>Teste de Upload</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><div align="center"><font color="#CCCCCC"> <%' Variáveis' *********Dim mySmartUploadDim arquivoDim oConnDim oRsDim intCountDim strVariavelAuxiliarIdClienteintCount=0id_cliente=session("user_login")' Criar um objeto' ***************Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")' Upload' ******mySmartUpload.Upload' Salva o arquivo no servidor conforme o path escolhido' *****************************************************intCount = mySmartUpload.Save("upload")' Conecta ao Banco de Dados' *************************Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MAPPATH("sample.mdb")&"")' Cria um recordset' ****************Set oRs = Server.CreateObject("ADODB.RecordSet")oRS = "SELECT * FROM tfiles"oRs.Open strSQL, conex,3,3oRS ="insert into tfiles (id_cliente, arquivo,nome,descrição,data) VALUES ('"&id_cliente&"','"&arquivo&"','"&arquivo&"','"&nome&"','"&data&"'),oConn"Set oRs = oConn.Execute(strsql)' Seleciona cada arquivo caso seja um upload de múltiplos arquivos, não é esse o caso' ***********************************************************************************For each file In mySmartUpload.Files' Somente se existir arquivos' ***************************If not file.IsMissing Then' Adiciona o arquivo e dados do formulário no DB (O erro é pelo fato que estou usando o Request.form aqui)' ****************************************************oRs.AddNewfile.FileToField oRs.Fields("arquivo")oRs("nome") = file.FileName oRs("Id_cliente") = strVariavelAuxiliarIdCliente'oRs("Id_cliente") = Request.form("Id_cliente") oRs.UpdateintCount = intCount + 1End IfNext' Exiba o número de uploaded de arquivos' ************************************** Response.Write(intCount & " arquivo(s) enviado(s).<BR>")' Fecha o DB' **********oRs.CloseoConn.CloseSet oRs = Nothing Set oConn = Nothing %> </font> </div></BODY></HTML> ************************ ERRO ****************************Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: 'SELECT * FROM TFiles' /teste/tt/script/Sample4.asp, line 51

Compartilhar este post

Link para o post
Compartilhar em outros sites

Neco    0

Neco
Postado

Eu fiquei uns 2 dias com o mesmo problema....Ai só consegui resolver fazendo o seguinte:<%Dim mySmartUploadDim intCountDim sql3Dim oRsSet mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")mySmartUpload.Upload' Only allow txt or htm files' *************************** mySmartUpload.AllowedFilesList = "jpg,jpeg,gif"' DeniedFilesList can also be used : ' Allow all files except exe, bat and asp ' *************************************** mySmartUpload.DeniedFilesList = "exe,bat,asp,htm,php.txt"intCount = mySmartUpload.Save("../images")cod = mySmartUpload.form("cod")'agencia = mySmartUpload.form("agencia")modelo = mySmartUpload.form("modelo")'classificacao = mySmartUpload.form("classificacao")'ano = mySmartUpload.form("ano")'cor = mySmartUpload.form("cor")'opcionais = mySmartUpload.form("opcionais")'obs = mySmartUpload.form("obs")'km = mySmartUpload.form("km")'combustivel = mySmartUpload.form("combustivel")'valor = mySmartUpload.form("valor")sql2 = "select * from LAP003TB_MODELOS where PKNI_003CODMODELO = '" & modelo & "'"set rs2 = objconn.execute(sql2)variavel = rs2("FKNI_003CODMARCA")set oRs = server.CreateObject ("ADODB.RECORDSET")sql3 = "select * from LAP005TB_VEICULOS"oRs.open sql3,objconn,3,3oRs.AddNewFor each item In mySmartUpload.Files oRs("ATSV_005FOTO1") = mySmartUpload.Files.item(1).FileName oRs("ATSV_005FOTO2") = mySmartUpload.Files.item(2).FileName oRs("ATSV_005FOTO3") = mySmartUpload.Files.item(3).FileName oRs("ATSV_005FOTO4") = mySmartUpload.Files.item(4).FileName oRs("ATSV_005FOTO5") = mySmartUpload.Files.item(5).FileName oRs("ATSV_005FOTO6") = mySmartUpload.Files.item(6).FileName oRs("ATSV_005FOTO7") = mySmartUpload.Files.item(7).FileName intCount = intCount + 1 Next For each item In mySmartUpload.Form For each value In mySmartUpload.Form(item) oRs("FKNI_005AGENCIA") = mySmartUpload.form("agencia") oRs("FKNI_005MARCA") = "" & variavel & "" oRs("FKNI_005MODELO") = mySmartUpload.form("modelo") oRs("ATSV_005VALOR") = mySmartUpload.form("valor") oRs("ATSF_005STATUS") = mySmartUpload.form("classificacao") oRs("ATSV_005COR") = mySmartUpload.form("cor") oRs("ATNI_005ANO") = mySmartUpload.form("ano") oRs("ATSV_005OPCIONAIS") = mySmartUpload.form("opcionais") oRs("ATSV_005OBS") = mySmartUpload.form("obs") oRs("ATSV_005KM") = mySmartUpload.form("km") oRs("ATSV_005COMBS") = mySmartUpload.form("combustivel") Next Next oRs.Update

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcoscoms    0

marcoscoms
Postado

Isso funcionou para mim.

 

<HTML><BODY BGCOLOR="white"><H1>Inclusão de Imagens</H1><HR><%Dim rsimovel__MMColParamrsimovel__MMColParam = "1"If (Request.QueryString("id_imovel") <> "") Then   rsimovel__MMColParam = Request.QueryString("id_imovel")End IfSession("id") = Request.QueryString("id_imovel")'  Variables'  *********   Dim mySmartUpload   Dim file   Dim oConn   Dim oRs   Dim intCount   intCount=0        '  Object creation'  ***************   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")'  Upload'  ******   mySmartUpload.Upload   intCount = mySmartUpload.Save("../../images/imoveis")'  Connect to the DB'  *****************   Set oConn = Server.CreateObject("ADODB.Connection")   curDir = Server.MapPath("../../../../database/teste.mdb")   oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"'  Open a recordset'  ****************   strSQL = "SELECT FID, id_imovel_foto, image, thumb, ALT, WIDTH, HEIGHT FROM tblIMAGES "   Set oRs = Server.CreateObject("ADODB.recordset")   Set oRs.ActiveConnection = oConn   oRs.Source = strSQL   oRs.LockType = 3   oRs.Open         oRs.AddNew   oRs("FID") = mySmartUpload.Form("FID")   oRs("id_imovel_foto") = Replace(rsimovel__MMColParam, "'", "''")   oRs("image") = mySmartUpload.Files.Item(1).FileName 'file.FileName   oRs("thumb") = mySmartUpload.Files.Item(2).FileName 'file.FileName   oRs("ALT") = mySmartUpload.Form("ALT")   oRs("WIDTH") = mySmartUpload.Form("WIDTH")   oRs("HEIGHT") = mySmartUpload.Form("HEIGHT")         oRs.Update'  Display the number of files uploaded'  ************************************   Response.Write(intCount & " file(s) uploaded.<BR>")   Response.Write("<BR>")   Response.Write("<br>")   id = Session("id") '   sUnderUrl = g_AdMentor_AdMentorRedirPath & "?id=" & nBanner & "&way=txt"   url = "incluir_imagens.asp"   url_final = url & "?id_imovel=" & id   Response.Redirect(url_final) '  Destruction'  ***********   oRs.Close   oConn.Close   Set oRs = Nothing    Set oConn = Nothing %></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito