Ir para conteúdo

POWERED BY:

Arquivado

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

W.Silva

UpLoad!!!

Por , em ASP Clássico

Recommended Posts

W.Silva    0

W.Silva
Postado

<% Function Nobres() 'Onde acho um exemplo prático de fazer UpLoad com ASP. Fazer UpLoad para o servidor Brinkster, que é o que estou usando atualmente para testes.' Alguem tem algo a me dizer ? Nunca experimente isto, é a minha primeira vez....... quero que seja bom, muito bom, me deixe realizado.... Hahahaha' Abraços' w.silva End Function%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Henrique    0

Henrique
Postado

Olá,

 

Olha só, na Brinkster não existe componente de upload instalado, porém pode ser utilizado uma das funções do .NET segue abaixo o código:

 

<html><head></head> <h3>Using Html File Control</h3> <form enctype="multipart/form-data" runat="server"> Selecione o arquivo para Upload:  <input type="file" id="fileControl"  runat="server"><br>      Salve como: (Insira o nome e a extensão):        <input id="txtTargetName" type="text" runat="server"><br>       <input type=button  id="btnLoad" value="Upload"               OnServerClick="btnLoad_Click" runat="server"><br>        <span id=span1 runat="server" /><br> </form></html><script language="VB" runat="server">       Sub btnLoad_Click(s As Object, e As EventArgs)            If txtTargetName.Value = "" Then                span1.InnerHtml = "Erro: Insira um nome para o arquivo"                Return            End If            If Not (fileControl.PostedFile Is Nothing) Then                Try                    fileControl.PostedFile.SaveAs((ServerMappath("db\") + txtTargetName.Value))                    span1.InnerHtml = "Arquivo enviado para<b>.\db" & _                                    txtTargetName.Value & "</b> em seu servidor web."                Catch err As Exception                    span1.InnerHtml = "Erro ao salvar arquivo em <b>.\db" & _                                    txtTargetName.Value & "</b><br>" & err.ToString()                End Try            End If        End Sub      </script>

OBS: Trata-se em um arquivo ASP.net, com isso salve com extensão *.aspx. E uma outra observação é que o único local onde pode-se realizar upload na Brinkster é na pasta .\db, pois é a única pasta com permisão de escrita no qual énecessário para upload.

Compartilhar este post

Link para o post
Compartilhar em outros sites

W.Silva    0

W.Silva
Postado

Henrique!!! Cara, muito obrigado pelo código. Agradeço mesmo. ;) você, por acaso, conhece algum site, algum tutorial básico, que ensine a fazer UpLoad de arquivos simples, por exemplo, enviar um JPG para o servidor ? Abraços w.silva

Compartilhar este post

Link para o post
Compartilhar em outros sites

W.Silva    0

W.Silva
Postado

Henrique!!! Brother. Funcionou só uma vez........ Depois, só olha o que esta rolando. ""System.UnauthorizedAccessException: Access to the path "\\genfs1\www11\webtecnic\dbBurro.jpg" is denied. at System.IO.__Error.WinIOError(Int32 errorCode, String str) at System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, Boolean useAsync, String msgPath, Boolean bFromProxy) at System.IO.FileStream..ctor(String path, FileMode mode) at System.Web.HttpPostedFile.SaveAs(String filename) at ASP.upload_aspx.btnLoad_Click(Object s, EventArgs e) "" Abraços w.silva

Compartilhar este post

Link para o post
Compartilhar em outros sites

Henrique    0

Henrique
Postado

Olá,

 

Saca só... na página da empresa LOCAWEB mostra como utilizar componentes ASP, na página localize o menu AJUDA e clique na opção Componente ASP.

 

Lá tem relacionado uns três componentes UPLOAD com exemplos básico e link de seu fabricante....

 

Valeu...

Compartilhar este post

Link para o post
Compartilhar em outros sites

chacalAM    0

chacalAM
Postado

desulpa minha estupidesmas o que eu preciso configurar nesse código? eu peguei e salvei com .aspx ...mas quando clico eu enviar ele não faz nada

Compartilhar este post

Link para o post
Compartilhar em outros sites

W.Silva    0

W.Silva
Postado

Código:

 

<html><head></head><h3>Using Html File Control</h3><form enctype="multipart/form-data" runat="server">Selecione o arquivo para Upload: <input type="file" id="fileControl"  runat="server"><br>     Salve como: (Insira o nome e a extensão):       <input id="txtTargetName" type="text" runat="server"><br>      <input type=button  id="btnLoad" value="Upload"              OnServerClick="btnLoad_Click" runat="server"><br>       <span id=span1 runat="server" /><br></form></html><script language="VB" runat="server">      Sub btnLoad_Click(s As Object, e As EventArgs)           If txtTargetName.Value = "" Then               span1.InnerHtml = "Erro: Insira um nome para o arquivo"               Return           End If           If Not (fileControl.PostedFile Is Nothing) Then               Try                   fileControl.PostedFile.SaveAs((Server.Mappath("\webtecnic\db\") + txtTargetName.Value))                   span1.InnerHtml = "Arquivo enviado para<b>.\db\" & _                                   txtTargetName.Value & "</b> em seu servidor web."               Catch err As Exception                   span1.InnerHtml = "Erro ao salvar arquivo em <b>.\db" & _                                   txtTargetName.Value & "</b><br>" & err.ToString()               End Try           End If       End Sub     </script>

chacalAM

 

Aonde tiver "webtecnic" substitua pela sua URL (seu login no brinkster)

 

Abraços

w.silva

Compartilhar este post

Link para o post
Compartilhar em outros sites

chacalAM    0

chacalAM
Postado

W.Silva

 

quando eu clico em upload não vai para lugar nenhum

 

<html><head></head><h3>Using Html File Control 3</h3><form enctype="multipart/form-data" runat="server">Selecione o arquivo para Upload: <input type="file" id="fileControl" runat="server"><br>Salve como: (Insira o nome e a extensão): <input id="txtTargetName" type="text" runat="server"><br><input type=button id="btnLoad" value="Upload" OnServerClick="btnLoad_Click" runat="server"><br><span id=span1 runat="server" /><br></form></html><script language="VB" runat="server">Sub btnLoad_Click(s As Object, e As EventArgs)If txtTargetName.Value = "" Thenspan1.InnerHtml = "Erro: Insira um nome para o arquivo"ReturnEnd IfIf Not (fileControl.PostedFile Is Nothing) ThenTryfileControl.PostedFile.SaveAs((Server.Mappath("\www\") + txtTargetName.Value))span1.InnerHtml = "Arquivo enviado para<b>.\www\" & _txtTargetName.Value & "</b> em seu servidor web."Catch err As Exceptionspan1.InnerHtml = "Erro ao salvar arquivo em <b>.\db" & _txtTargetName.Value & "</b><br>" & err.ToString()End TryEnd IfEnd Sub </script>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Henrique    0

Henrique
Postado

Primeiro você tem saber quais componentes são aceitos pelo seu servidor web, utilize a página com o código abaixo, ela mostra quais componentes estão instalado em seu servidor web, são 47 tipos diferentes....

 

<%		Dim comList(47)	comList(0) = Array( "AB Mailer","ABMailer.Mailman" )	comList(1) = Array( "ABC Upload","ABCUpload4.XForm" )	comList(2) = Array( "ActiveFile","ActiveFile.Post" )	comList(3) = Array( "ActiveX Data Object","ADODB.Connection" )	comList(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )	comList(5) = Array( "ASP DNS", "AspDNS.Lookup" )	comList(6) = Array( "ASP HTTP","AspHTTP.Conn" )	comList(7) = Array( "ASP Image","AspImage.Image" )	comList(8) = Array( "ASP Mail","SMTPsvg.Mailer" )	comList(9) = Array( "ASP NNTP News", "AspNNTP.Conn" )	comList(10) = Array( "ASP POP 3", "POP3svg.Mailer" )	comList(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )	comList(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )	comList(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )	comList(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )	comList(15) = Array( "ASP Tear","SOFTWING.ASPtear" )	comList(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )	comList(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" )	comList(18) = Array( "ASPSoft NT Object","ASPSoft.NT" )	comList(19) = Array( "ASPSoft Upload","ASPSoft.Upload" )	comList(20) = Array( "CDO NTS","CDONTS.NewMail" )	comList(21) = Array( "Chestysoft Image","csImageFile.Manage" )	comList(22) = Array( "Chestysoft Upload","csASPUpload.Process" )	comList(23) = Array( "Dimac JMail","JMail.Message" )	comList(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )	comList(25) = Array( "Dundas Mailer","Dundas.Mailer" )	comList(26) = Array( "Dundas Upload","Dundas.Upload.2" )	comlist(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")	comlist(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")	comlist(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer")	comList(30) = Array( "Dynu Encrypt","Dynu.Encrypt" )	comList(31) = Array( "Dynu HTTP","Dynu.HTTP" )	comList(32) = Array( "Dynu Mail","Dynu.Email" )	comList(33) = Array( "Dynu Upload","Dynu.Upload" )	comList(34) = Array( "Dynu WhoIs","Dynu.Whois" )	comList(35) = Array( "Easy Mail","EasyMail.SMTP.5" )	comList(36) = Array( "File System Object","Scripting.FileSystemObject" )	comList(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )	comList(38) = Array( "Last Mod","LastMod.FileObj" )	comList(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )	comList(40) = Array( "Persits ASP JPEG","Persits.Jpeg" )	comList(41) = Array( "Persits ASPEmail","Persits.MailSender" )	comList(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )	comList(43) = Array( "Persits File Upload","Persits.Upload.1" )	comList(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )	comList(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )	comList(46) = Array( "Image Size", "ImgSize.Check" )	comList(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )	Function TestObject( comIdentity )  On Error _  Resume Next  TestObject = False  Err.Clear  Set xTestObj = Server.CreateObject( comIdentity )  If Err = 0 Then TestObject = True  Set xTestObj = Nothing  Err.clear	End Function	Public Function CheckCOM()  OKCount = 0  strTxt = "<table border=1 bordercolor=black cellspacing=0 cellpadding=0 align=center width=400>"  For Idx = LBound( comList ) To UBound( comList ) 	 Provider = Idx 	 strTxt = strTxt & "<tr><td width=200>" & comList(Idx)(0) & "</td>" 	 'strTxt = strTxt & "" 	 If TestObject( comList(Idx)(1) ) Then    strTxt = strTxt & "<td align=center><font color=red>Instalado</font></td>"    OKCount = OKCount + 1 	 Else    strTxt = strTxt & "<td align=center>Não Instalado</td>" 	 End If 	 strTxt = strTxt & "</tr>"  Next  strTxt = strTxt & "</table><p align=center><b>" & OKCount & "</b> of "  strTxt = strTxt & UBound( comList ) + 1 & " Checa os componentes instalados em seu servidor....</p>"  CheckCOM = strTxt 	End Function%>

Após isso, nos envie uma resposta para que possamos formular o código que no qual pode-se realizar o upload...

 

Valeu...

Compartilhar este post

Link para o post
Compartilhar em outros sites

W.Silva    0

W.Silva
Postado

Com ceteza não dá suporte a ASP.Net Se ele estiver rodando o código em maquina local. Tem que ter o .NetFramework instalado, se não ....... não rola...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Henrique    0

Henrique
Postado

Para utilizar o código abaixo:

 

<script language="VB" runat="server">Sub btnLoad_Click(s As Object, e As EventArgs)If txtTargetName.Value = "" Thenspan1.InnerHtml = "Erro: Insira um nome para o arquivo"ReturnEnd IfIf Not (fileControl.PostedFile Is Nothing) ThenTryfileControl.PostedFile.SaveAs((Server.Mappath("\www\") + txtTargetName.Value))span1.InnerHtml = "Arquivo enviado para<b>.\www\" & _txtTargetName.Value & "</b> em seu servidor web."Catch err As Exceptionspan1.InnerHtml = "Erro ao salvar arquivo em <b>.\db" & _txtTargetName.Value & "</b><br>" & err.ToString()End TryEnd IfEnd Sub </script>

O Server.MapPath deve estar apontando para o diretório "db\" pois é o único com permissão de escrita na Brinkster e a página de upload deve estar em seu diretóroi RAIZ....

 

Você pode também em seu caso colocar o seguinte:

 

Server.Mappath(".\db\")

 

Ou caso sua página de upload esteja em um subdiretório após o diretório RAIZ por exemplo www.brinkster.com/webtecnic/upload/enviaarquivo.asp

 

Pode-se utilizar:

 

Server.MapPath("..\webtecnic\db")

 

Busque informações sobre o Server.MapPath...

 

E LEMBRE-SE só é possível realizar UPLOAD em pasta com permissão de escrita, no caso da Brinkster a pasta DB é a única que aceita realiar UPLOAD....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Henrique    0

Henrique
Postado

Sim,Em máquina local só é possível com o Frameworks .net instalado...na Brinkster eles tem suporte a .net mais muitas funções são desabilitadas como o CDO.net que é utilizado para envio de mensagens....Valeu...

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