Ir para conteúdo

POWERED BY:

Arquivado

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

donato

upload

Por , em ASP Clássico

Recommended Posts

donato    0

donato
Postado

Galera, Preciso de um sitema de upload simplessó para enviar imagens para alteração no site,Achei uns ak, mais muito complexo, naum preciso disso tudopreciso bem simples, só puxar do meu pc e trocar a que tem no banco de dados ObrigadoMarcelo

Compartilhar este post

Link para o post
Compartilhar em outros sites

silas_i    0

silas_i
Postado

espero que sirva !!!!

 

01.asp

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>INSERIR NOVO BANNER FLASH</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="../imagens/home.css" rel="stylesheet" type="text/css"></head><body><form method="POST" enctype="multipart/form-data" action="upload_aplicacao02.asp">  <div align="center"><b><span class="verdana">SELECIONE O ARQUIVO QUE VOCÊ     DESEJA FAZER UPLOAD</span></b><br>    <br>    <input name="FILE1" type="FILE" class="formtracejado" size="40">    <br>    <br>    <input name="SUBMIT" type=SUBMIT class="form2" value="Upload">  </div></form></body></html>

upload_aplicacao02.asp

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>INSERIR NOVO BANNER FLASH</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="../imagens/home.css" rel="stylesheet" type="text/css"></head><body><div align="center">  <p><b>     <%Set Upload = Server.CreateObject("Persits.Upload")Count = Upload.Save(Server.MapPath("../"))Response.Write Count & " arquivos(s) foram copiado(s) para o servidor !"%>    </b></p>  <p><a href="javascript:window.close(self)"><b><span class="verdana">Fechar</span></b></a>   </p></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

Valeu...

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

Eu fiz dessa forma, mais esta com erro, estou testando no meu servidora pasta chama imagens na mesma pagina dos arquivos.olha ai o código!!pagina chamada upload1.asp, é a do formulario<html><head><title>INSERIR NOVO BANNER FLASH</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="../imagens/home.css" rel="stylesheet" type="text/css"></head><body><form action="upload.asp"> <div align="center"><b><span class="verdana">SELECIONE O ARQUIVO QUE VOCÊ DESEJA FAZER UPLOAD</span></b><br> <br> <input name="FILE1" type="FILE" class="formtracejado" size="40"> <br> <br> <input name="SUBMIT" type=SUBMIT class="form2" value="Upload"> </div></form></body></html>pagina de resposta upload<html><head><title>INSERIR NOVO BANNER FLASH</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><div align="center"> <p><b> <%Set Upload = Server.CreateObject("Persits.Upload")Count = Upload.Save(Server.MapPath("../imagens"))Response.Write Count & " arquivos(s) foram copiado(s) para o servidor !"%> </b></p> <p><a href="java script:window.close(self)"><b><span class="verdana">Fechar</span></b></a> </p></div></body></html>.aspPor favor, ve ai pra mimValeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

eSSE É O ERRO QUE ESTÁ DANDOObjeto Server error 'ASP 0177 : 800401f3' Falha em Server.CreateObject /donato/testes/upload.asp, line 12 800401f3

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

O servidor tem o componente instalado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

O servidor tem o componente instalado?

Como sei se o servidor tem o componente instalado

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcoscoms    0

marcoscoms
Postado

Não esquecer de usar o sistema de busca do forum... ahahah

 

Este codigo eu peguei aqui mesmo no forum.

 

<%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.clearEnd FunctionPublic 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> de " strTxt = strTxt & UBound( comList ) + 1 & " componentes estão avaliados em seu servidor.</p>" CheckCOM = strTxt End FunctionResponse.Write( CheckCOM() )%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

Cara como faço para instalar esses itens??naum tem nada instalado ak!!Valeu!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Penna    0

Penna
Postado

Você colocou no seu server esse arquivo???Eles não tem nada? Entre em contato se não tiver peça para colocar. Se não, uda de server.Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

gastao    0

gastao
Postado

precisando de um servidor com aspupload, aspjpeg, aspemail, é só falar com o gastao, icq: 115693308, msn: gastaocotrim@hotmail.com, email: webmaster@poesiaecia.com12 horas online .falow!! :-)

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

Estou fazendo um site, estou executando no local mesmo, no PWS, mais naum funciona, nem o upload e nem o aspmail, tem como regular isso??Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

Eu fiz dessa forma, mais esta com erro, estou testando no meu servidora pasta chama imagens na mesma pagina dos arquivos.olha ai o código!!pagina chamada upload1.asp, é a do formulario<html><head><title>INSERIR NOVO BANNER FLASH</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="../imagens/home.css" rel="stylesheet" type="text/css"></head><body><form action="upload.asp"> <div align="center"><b><span class="verdana">SELECIONE O ARQUIVO QUE VOCÊ DESEJA FAZER UPLOAD</span></b><br> <br> <input name="FILE1" type="FILE" class="formtracejado" size="40"> <br> <br> <input name="SUBMIT" type=SUBMIT class="form2" value="Upload"> </div></form></body></html>pagina de resposta upload<html><head><title>INSERIR NOVO BANNER FLASH</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><div align="center"> <p><b> <%Set Upload = Server.CreateObject("Persits.Upload")Count = Upload.Save(Server.MapPath("../imagens"))Response.Write Count & " arquivos(s) foram copiado(s) para o servidor !"%> </b></p> <p><a href="java script:window.close(self)"><b><span class="verdana">Fechar</span></b></a> </p></div></body></html>.aspPor favor, ve ai pra mimValeu

a tag form precisa disto pra fazer o upload 
enctype="multipart/form-data"

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

Galera continua dando este erroa, naum sei mais oque fazer!! :blink:

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

4 de 48 componentes estão avaliados em seu servidor.Objeto Server error 'ASP 0177 : 800401f3' Falha em Server.CreateObject /donato/testes/upload.asp, line 101 800401f3

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

O que você chama de "não funciona"?

Dá algum erro?

Ou não envia o e-mail?

Compartilhar este post

Link para o post
Compartilhar em outros sites

WLJ    0

WLJ
Postado

4 de 48 componentes estão avaliados em seu servidor.Objeto Server error 'ASP 0177 : 800401f3' Falha em Server.CreateObject /donato/testes/upload.asp, line 101 800401f3

você já instalou e registrou a .dll do componente???

Compartilhar este post

Link para o post
Compartilhar em outros sites

donato    0

donato
Postado

é um sistema de upload<html><head><title>INSERIR NOVO BANNER FLASH</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="../imagens/home.css" rel="stylesheet" type="text/css"></head><body><form action="upload.asp"><div align="center"><b><span class="verdana">SELECIONE O ARQUIVO QUE VOCÊ DESEJA FAZER UPLOAD</span></b><br><br><input name="FILE1" type="FILE" class="formtracejado" size="40"><br><br><input name="SUBMIT" type=SUBMIT class="form2" value="Upload"></div></form></body></html>pagina de resposta upload<html><head><title>INSERIR NOVO BANNER FLASH</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><div align="center"><p><b> <%Set Upload = Server.CreateObject("Persits.Upload")Count = Upload.Save(Server.MapPath("../imagens"))Response.Write Count & " arquivos(s) foram copiado(s) para o servidor !"%></b></p><p><a href="java script:window.close(self)"><b><span class="verdana">Fechar</span></b></a> </p></div></body></html>eu fiz tudo e ele dá esse erro:Objeto Server error 'ASP 0177 : 800401f3' Falha em Server.CreateObject /donato/testes/upload.asp, line 101 800401f3 naum sei oq fazer mais

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