Flavio Diniz

no final co codigo coloquei response.redirect"pegar.asp" na outra apgina coloquei <% dim campo Campo = UpLoad.Form("attach1")%> <%=campo%>

não deu

VOU TENTAR

ta aqui o componente http://www.culturacariri.com.br/EDITOR/uploadtester.asp valeu

ola como recuperar esse dados em outra pagina request não fonciona session tambem não http://www.culturacariri.com.br/EDITOR/uploadtester.asp valeu moçada

ola passoal é o seguinte tenho a pagina de upload e esta tudo correto ta fazendo a parte de mais eu quero que quando fazer o upload liste os arquivos na outra pagina certo veja o endereço http://culturacariri.com.br/editor/IMA.jpg valeu

não da certo

que de o povo

con session deu esse erro Variável não definida: 'Upload' /estudo/editor_html/editor/uploadtester.asp, line 50 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Página: GET /estudo/editor_html/editor/uploadtester.asp Hora: quinta-feira, 29 de janeiro de 2004, 17:36:38 Mais informações: Suporte da Microsoft

veja o codigo <%@ Language=VBScript %> <% option explicit Response.Expires = -1 Server.ScriptTimeout = 600 %> <!-- #include file="freeASPUpload.asp" --> <% ' **************************************************** ' Change the value of the variable below to the pathname ' of a directory with write permissions, for example "C:\Inetpub\wwwroot" Dim uploadsDirVar uploadsDirVar = "C:\PASTA DE ARTES\SITES\ESTUDO\editor_html\editor\im" ' **************************************************** ' Note: this file uploadTester.asp is just an example to demonstrate ' the capabilities of the freeASPUpload.asp class. There are no plans ' to add any new features to uploadTester.asp itself. Feel free to add ' your own code. If you are building a content management system, you ' may also want to consider this script: http://www.webfilebrowser.com/ function OutputForm() %> <form name="frmSend" method="POST" enctype="multipart/form-data" action="uploadtester.asp" onSubmit="return onSubmitForm();"> File 1: <input name=attach1 type=file size=35><br> File 2: <input name=attach2 type=file size=35><br> File 3: <input name=attach3 type=file size=35><br> File 4: <input name=attach4 type=file size=35><br> File 5: <input name=attach5 type=file size=35><br> File 6: <input name=attach6 type=file size=35><br> File 7: <input name=attach7 type=file size=35><br> File 8: <input name=attach8 type=file size=35><p><br> <br> <input style="margin-top:4" type=submit value="Enviar"> </p> </form> <% session("meu_form") = UpLoad.Form("attach1") %> <% end function function TestEnvironment() Dim fso, fileName, testFile, streamTest TestEnvironment = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FolderExists(uploadsDirVar) then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if fileName = uploadsDirVar & "\test.txt" on error resume next Set testFile = fso.CreateTextFile(fileName, true) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if Err.Clear testFile.Close fso.DeleteFile(fileName) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder." exit function end if Err.Clear Set streamTest = Server.CreateObject("ADODB.Stream") If Err.Number<>0 then TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries." exit function end if Set streamTest = Nothing end function function SaveFiles Dim Upload, fileName, fileSize, ks, i, fileKey Set Upload = New FreeASPUpload Upload.Save(uploadsDirVar) SaveFiles = "" ks = Upload.UploadedFiles.keys if (UBound(ks) <> -1) then SaveFiles = "<B>Files uploaded:</B> " for each fileKey in Upload.UploadedFiles.keys SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) " next else SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system." end if end function %> <HTML> <HEAD> <TITLE>Test Free ASP Upload</TITLE> <style> BODY {background-color: white;font-family:arial; font-size:12} </style> <script> function onSubmitForm() { var formDOMObj = document.frmSend; if (formDOMObj.attach1.value == "" && formDOMObj.attach2.value == "" && formDOMObj.attach3.value == "" && formDOMObj.attach4.value == "" ) alert("Please press the browse button and pick a file.") else return true; return false; } </script> </HEAD> <BODY> <br><br> <div style="border-bottom: #A91905 2px solid;font-size:16">Upload files to your server</div> <% Dim diagnostics if Request.ServerVariables("REQUEST_METHOD") <> "POST" then diagnostics = TestEnvironment() if diagnostics<>"" then response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">" response.write diagnostics response.write "<p>After you correct this problem, reload the page." response.write "</div>" else response.write "<div style=""margin-left:150"">" OutputForm() response.write "</div>" end if else response.write "<div style=""margin-left:150"">" OutputForm() response.write SaveFiles() response.write "<br><br></div>" end if %> <div style="border-top: #A91905 2px solid;font-size:10">Powered by <A HREF="http://www.freeaspupload.net/" style="color:black">Free ASP Upload</A></div> <% response.redirect("publicar.asp") %> </BODY> </HTML>

vou tentar

CARA EU PRESOSO RECUPERAR OS DADOS E LEVAR PARA OUTRA PAGINA TIPO IMAGEM.JPG IMAgem2.gif tem como ele processa na mesma pagina ai eu não to entendendop nada ele consegue recuperar os dados mais eu tenteu usar a variavel dele e não consegui

É

não isso já to fazendo e deu tudo certo eu presoso pagar os dados do form e manda para outra pagina sacou

VEJA ISSO PRESISO DE SAÇLVAR OS DADOS DESSE FORME NO MODO TRADICIONAL NÃO DA alguém SABE COMO É URGENTE PESSOAL http://www.culturacariri.com.br/EDITOR/IMA.JPG

OLA PESSOAL TENHO UM FORMWE CERTO PRESISO QUE ELE FAÇA DUAS AÇOES AO MESMO TEMPO UM PARA A MESMA PAGINA E A OUTRA PARA UM PAGINA PUBLIQUO.ASP NA SEGUNDO VOU RECUPERAR OS DADOS POS já TENTEI REDIRCT MAS NÃOP FONCIONA DA ERRO VALEU

OLA GALERA COMO FAÇO PARA ESSE BOTÃO SUBMIT FAZER DUAS AÇÕES A 1 É PARA SALVAR OS DADOS NO SERVIDOR A OUTRA PARA RECUPERAR OS DADOS NOUTRA PAGINA <form name="frmSend" method="POST" enctype="multipart/form-data" action="uploadTester.asp" onSubmit="return onSubmitForm();"> File 1: <input name=attach1 type=file size=35><br> File 2: <input name=attach2 type=file size=35><br> File 3: <input name=attach3 type=file size=35><br> File 4: <input name=attach4 type=file size=35><br> File 5: <input name=attach5 type=file size=35><br> File 6: <input name=attach6 type=file size=35><br> File 7: <input name=attach7 type=file size=35><br> File 8: <input name=attach8 type=file size=35><p><br> <br> <input style="margin-top:4" type=submit value="Enviar"> </p> </form> NÃO ACEITA REDIRECT NEM SESSIO ME DER UM LUIZ POR FAVOR OBS: A 1 AÇÃO É PARA AMESMA PAGINA E A OUTRA É PARA UM PAGINA JAMADA PUBLIQUE.ASP

da um procurada nas sessões de scripts tem ums prontos

ola veja isso <% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb") sqlstmt = "SELECT * FROM journal ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 TotalRecs = rs.recordcount x = 0 For x = 1 to 999 If rs.eof then Exit For Else date1 = rs("pdate") id = rs("ID") name1 = rs("pname") link = date1 description = "<a href='artigos.asp?id=" & id & "'>" & name1 & "</a>" %> flavio diniz

ola galera PAGINA 01: <% session("meu_form") = request.form("conteudo") %> </style> <table width="626" height="255" border="1" cellpadding="0" cellspacing="0"> <tr> <td align="left" valign="top"> <span name="editor" id="editor" contenteditable style="width:100%;height:100%" OnKeyPress="return digitacao(this)"></span> </td> </tr> </table> <table width="400" border="1" cellspacing="0" cellpadding="0"> <tr> <td><input name="bold" type="submit" id="bold" value="N" class="bold" onClick="transform('b')"> <input name="italic" type="submit" id="italic" value="I" class="italic" onClick="transform('i')"> <input name="underline" type="submit" id="underline" value="S" class="underline" onClick="transform('u')"> <form method="POST" action="estudo.asp"> <p> <script language="JavaScript"> <!-- var texto = editor.innerHTML <input type=\"hidden\" name=\"conteudo\" value=\""+texto+"\">") --> </script> <input type="submit" value="Submeter" name="B1"></p> </form> FIZ ASSIM MAIS NÃO DEI CERTO PAGINA 02 : <%response.write session("meu_form")%>

fiz aasim mais não recuperou os dados do editor tentei dessa forma mais tambem não dei certo var texto = editor.innerHTML; flavio diniz

a pagina estudo assim <% dim t t = request.form("cont") %> teste<%=t%>

fiz sssimmais não dei certo <form method="POST" action="estudo.asp"> <p> <script language="JavaScript"> <!-- var texto = editor.value document.write("<input type=\"hidden\" value=\""+texto+"\">") --> </script> <input type="submit" value="Submeter" name="B1"></p> </form>

esse aqui eu coloco aonde o resto eu seu var cont = editor.value

cole o codigo no siu computador que voce vai entender é urgente cara pos to a terde todinha atraz disso se fosse form eu sabia