Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Preciso de ajuda num script, ja olhe reollhe, fiz e refiz uma 1000 vezes e nda, quem poder me ajudar eu agradeço muitoGrato,Marconi<!-- 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 intCountintCount=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")'curDir = "sample.mdb"oConn.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MAPPATH("sample.mdb")&"")' Cria um recordset' **************'Set Ors = oConn.Execute(strsql)'Set oRs = Server.CreateObject("ADODB.recordset")'Set oRs.ActiveConnection = oConn'oRs.Source = strSQL'oRs.LockType = 3'oRs.Open strSQL = "SELECT id_cliente, arquivo, nome, descricao, data FROM TFiles",conex,3,3'insert into TFiles (id_cliente, arquivo,nome,descrição,data VALUES ('")",oConnstrSQL = "SELECT id_cliente, arquivo, nome, descricao, data FROM TFiles" Set oRs = Server.CreateObject("ADODB.recordset") Set oRs.ActiveConnection = oConn oRs.Source = strSQL oRs.LockType = 3 oRs.Open srtSQL,oConn,3,3'id_cliente=session("user_login")' Conecta ao Banco de Dados' ***********************'Set oConn = Server.CreateObject("ADODB.Connection")'curDir = "sample.mdb"'oConn.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MAPPATH(curDir)&"")' 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") = 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>
Carregando comentários...
