Carlos Rocha Postado Fevereiro 5, 2005 Denunciar Share Postado Fevereiro 5, 2005 Não consigo fazer upload de arquivosA pagina num faz nada.O que tem de errado no código abaixo?<%If Request.QueryString("action") = 1 Then' script de connection à la base non incluSet Upl = Server.CreateObject("SoftArtisans.FileUp")' on instancie Upl, l'objet d'upload, ici SA-FileUp NomFichier = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)' on ne garde que le nom de fichierSQL = "SELECT * FROM usu_vez"RS.open SQL,Conn,2,3 ' on ouvre sa tableRS.addnewRS("nome") = ObjUpl.Form("nome")RS("email") = ObjUpl.Form("email")RS("texto") = ObjUpl.Form("texto")RS("imagem") = fotoRS.update' on crée un nouvel enregistrement avec dans le champs "Photo", le nom court du fichier+extensionUpl.form("foto").SaveAs Server.MapPath(".") & "../../portal/clube/f_socios" & RS("photo") Response.Write "Le fichier " & foto & " a été sauvegardé." ' on enregistre le fichier venant du champs "fichier" du formulaire dans le sous-répertoire upload' (rép déprotégé) du chemin actuel, sous son nom d'origineRS.Requery' on réexécute la requête pour prendre en compte cet ajout End IF%><html><head><title>Vivendo com cristo</title></head><body><%sNomForm = "form"'Recebe o nome do formulario principal da paginasNomCampo = "texto"' Recebe o nome do campo que vai armazernar as alterações no editorsValInicialCampo = ""'Receber o valor que vem do banco de dados para o editor%><form action="altera_usu_vez.asp?action=1" method=POST name="form" id="form" onsubmit="document.<%=sNomForm%>.<%=sNomCampo%>.value = Composition.document.body.innerHTML"><P><center><H2>Formulário de cadastro de Usuarios da Vez - Mural</H2></center><P><p><TABLE border=2 cellpadding=5 cellspacing=5 align=center width=100%><tr> <td colspan=2> <TABLE> <TR> <TD><font size=+1>Nome:</font></TD> <TD><INPUT TYPE="text" NAME="nome" VALUE="" SIZE=59 MAXLENGTH=100></TD> </TR> <TR> <TD><font size=+1>Email:</font></TD> <TD><INPUT TYPE="text" NAME="email" VALUE="" SIZE=59 MAXLENGTH=100></TD> </TR> <TR> <TD><font size=+1>Foto:</font></TD> <TD><input class="base_caixa" type="file" size="44" name="foto"></TD> </TR> </TR> <TR> <TD><font size=+1>Mensagem:</font></TD> <TD><!--#include file="../JSeditor/editor.asp" --></TD> </TR> </TABLE></font> </TD></tr></table><P><center><input type="submit" name="submit" value="enviar" onClick="return CriticaFormulario()"><input type="reset" value="Limpar Campos"> </center></FORM></body></html> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Carlos Rocha Postado Fevereiro 5, 2005 Autor Denunciar Share Postado Fevereiro 5, 2005 Op's Acabei de testar na primeira linha do formulario colocar o termo enctype="multipart/form-data"mas deu erro tambem Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Carlos Rocha Postado Fevereiro 5, 2005 Autor Denunciar Share Postado Fevereiro 5, 2005 Pra ter uma ideia, fiz ate um pequeno script pra testar esta dando sequecia de classe invalida.test1.htm<HTML> <BODY BGCOLOR="#FFFFFF"> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript1.asp"> <INPUT TYPE=FILE SIZE=60 NAME="FILE1"><INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM> </BODY> </HTML> uploadscript1.asp<HTML> <BODY BGCOLOR="#FFFFFF"> <% Set Upload = Server.CreateObject("dundas.Upload.2") Count = Upload.Save("c:\inetpub\wwwroot\upload") %> <% = Count %> files uploaded. </BODY> </HTML> Erro:Informações técnicas (para a equipe de suporte)Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida /host/viveasp/portal/UploadScript1.asp, line 4Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) Página: POST 6423 bytes to /host/viveasp/portal/UploadScript1.aspPOST Data:. . . Hora: sábado, 5 de mmmm de aaaa, 20:04:16 Obs. Dundas instalado na pasta inetpub Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fertel Postado Fevereiro 6, 2005 Denunciar Share Postado Fevereiro 6, 2005 Você está rodando isto no seu servidor certo? Tem certeza de que o componente está registrado? Acho que não basta colocá-lo na pasta que você informou não. Pra ter certeza, procure aqui no fórum por um código que exibe todos os componentes instalados no servidor. Provavelmente este é o seu problema. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Fevereiro 6, 2005 Denunciar Share Postado Fevereiro 6, 2005 Brother, veja se o servidor que você está usando dá suporte à esse componente de upload que você ta usando.Se ele não tiver o componente instalado, o codigo não funcionará..T+ Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Carlos Rocha
Não consigo fazer upload de arquivos
A pagina num faz nada.
O que tem de errado no código abaixo?
<%
If Request.QueryString("action") = 1 Then
' script de connection à la base non inclu
Set Upl = Server.CreateObject("SoftArtisans.FileUp")
' on instancie Upl, l'objet d'upload, ici SA-FileUp
NomFichier = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
' on ne garde que le nom de fichier
SQL = "SELECT * FROM usu_vez"
RS.open SQL,Conn,2,3
' on ouvre sa table
RS.addnew
RS("nome") = ObjUpl.Form("nome")
RS("email") = ObjUpl.Form("email")
RS("texto") = ObjUpl.Form("texto")
RS("imagem") = foto
RS.update
' on crée un nouvel enregistrement avec dans le champs "Photo", le nom court du fichier+extension
Upl.form("foto").SaveAs Server.MapPath(".") & "../../portal/clube/f_socios" & RS("photo")
Response.Write "Le fichier " & foto & " a été sauvegardé."
' on enregistre le fichier venant du champs "fichier" du formulaire dans le sous-répertoire upload
' (rép déprotégé) du chemin actuel, sous son nom d'origine
RS.Requery
' on réexécute la requête pour prendre en compte cet ajout
End IF
%>
<html>
<head>
<title>Vivendo com cristo</title>
</head>
<body>
<%
sNomForm = "form"'Recebe o nome do formulario principal da pagina
sNomCampo = "texto"' Recebe o nome do campo que vai armazernar as alterações no editor
sValInicialCampo = ""'Receber o valor que vem do banco de dados para o editor
%>
<form action="altera_usu_vez.asp?action=1" method=POST name="form" id="form" onsubmit="document.<%=sNomForm%>.<%=sNomCampo%>.value = Composition.document.body.innerHTML"><P>
<center><H2>Formulário de cadastro de Usuarios da Vez - Mural</H2></center><P><p>
<TABLE border=2 cellpadding=5 cellspacing=5 align=center width=100%>
<tr>
<td colspan=2>
<TABLE>
<TR>
<TD><font size=+1>Nome:</font></TD>
<TD><INPUT TYPE="text" NAME="nome" VALUE="" SIZE=59 MAXLENGTH=100></TD>
</TR>
<TR>
<TD><font size=+1>Email:</font></TD>
<TD><INPUT TYPE="text" NAME="email" VALUE="" SIZE=59 MAXLENGTH=100></TD>
</TR>
<TR>
<TD><font size=+1>Foto:</font></TD>
<TD><input class="base_caixa" type="file" size="44" name="foto"></TD>
</TR>
</TR>
<TR>
<TD><font size=+1>Mensagem:</font></TD>
<TD><!--#include file="../JSeditor/editor.asp" --></TD>
</TR>
</TABLE></font>
</TD>
</tr>
</table><P>
<center>
<input type="submit" name="submit" value="enviar" onClick="return CriticaFormulario()">
<input type="reset" value="Limpar Campos">
</center>
</FORM>
</body>
</html>
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.