Ir para conteúdo

POWERED BY:

Arquivado

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

wills

Upload - Dundas

Por , em ASP Clássico

Recommended Posts

wills    0

wills
Postado

Bom pessoa, esta é a primeira vez que trabalho com upload (ainda mais dundas). Nos códigos que li, sempre há algo assim: Dundas.Upload.2. Agora vem minha primeira pergunta: esse número 2, quer dizer o quê?e segunda perguta: Vocês podem olhar meu código fonte e ver se há algo errado?On Error Resume NextResponse.Write "<HTML><HEAD><TITLE>Fazendo UpLoad com Dundas UpLoad</TITLE></HEAD><BODY>"Dim objUploadSet objUpload = server.CreateObject("Dundas.Upload.2")objUpload.UseVirtualDir = TrueobjUpload.Save "\arquivos_carregados"Set objUpload = nothingIf Err <> 0 ThenResponse.Write Err.Description & " " & Err.Number & "<br>"Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </b></font>"ElseResponse.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font>"End IfResponse.Write "</BODY></HTML>"%>este comando, arquivos_carregados, é referente ao bd ou arquivo virtual? url seria?Valeu!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Thiago Paschoalin    0

Thiago Paschoalin
Postado

E ai wills, cara eu achei um sistema de Upload sem a necessidade de componentes (OU seja, sem Dundas nem Persits).

 

Vou postar aqui o código completo para você analizar, e Inclusive se conseguir algumas mudanças nele, eu gostaria de ver, como por exemplo, Limitar Kbs por arquivo, enviar para uma pasta especifica, etc...

 

Eu fiz o teste até 2MB / mais do que isso eu não tentei ! sei que até 2MB FUNCIONA !

Esse código eu uso da seguinte forma !

 

Ele salva o arquivo de upload onde está essas páginas, e eu não conseguir fazer ele salvar em outra pasta, então por agora, coloque essas tres páginas onde gostaria de fosse enviada essas imagens...

 

 

página: default.asp

<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="outputFile.asp">	Limite de 2MB (2.000 Kb)<br><br> 	<INPUT TYPE="file" NAME="blob">	<BR><br>	<INPUT NAME="Enter" TYPE="submit" value="Enviar Arquivo"></FORM></center></font>

página: outputFile.asp

<%' Author Philippe Collignon' Email PhCollignon@email.comResponse.Expires=0Response.Buffer = TRUEResponse.Clear'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))byteCount = Request.TotalBytes'Response.BinaryWrite(Request.BinaryRead(varByteCount))RequestBin = Request.BinaryRead(byteCount)Dim UploadRequestSet UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest  RequestBincontentType = UploadRequest.Item("blob").Item("ContentType")filepathname = UploadRequest.Item("blob").Item("FileName")filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))value = UploadRequest.Item("blob").Item("Value")'Create FileSytemObject Component Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")'Create and Write to a File pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)  For i = 1 to LenB(value)	 MyFile.Write chr(AscB(MidB(value,i,1))) Next  MyFile.Close%><style type="text/css"><!--body {	margin-left: 0px;	margin-top: 0px;	margin-right: 0px;	margin-bottom: 0px;}--></style><center><font face="verdana" size="2" color="#666666">Copie todo o texto em negrito abaixo em<br>'Nome do Arquivo':<br><br><b><font size="1">admin/informativo/acontece/<% = filename %></font></b></font></center><!--#include file="upload.asp"-->

página: upload.asp (include somente)

<%' Author Philippe Collignon' Email PhCollignon@email.comSub BuildUploadRequest(RequestBin)	'Get the boundary	PosBeg = 1	PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)	boundaryPos = InstrB(1,RequestBin,boundary)	'Get all data inside the boundaries	Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))		'Members variable of objects are put in a dictionary object		Dim UploadControl		Set UploadControl = CreateObject("Scripting.Dictionary")		'Get an object name		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))		Pos = InstrB(Pos,RequestBin,getByteString("name="))		PosBeg = Pos+6		PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))		Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))		PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))		PosBound = InstrB(PosEnd,RequestBin,boundary)		'Test if object is of file type		If  PosFile<>0 AND (PosFile<PosBound) Then			'Get Filename, content-type and content of file			PosBeg = PosFile + 10			PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))			'Add filename to dictionary object			UploadControl.Add "FileName", FileName			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))			PosBeg = Pos+14			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))			'Add content-type to dictionary object			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))			UploadControl.Add "ContentType",ContentType			'Get content of object			PosBeg = PosEnd+4			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)			Else			'Get content of object			Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))			PosBeg = Pos+4			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2			Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))		End If		'Add content to dictionary object	UploadControl.Add "Value" , Value			'Add dictionary object to main dictionary	UploadRequest.Add name, UploadControl			'Loop to next object		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)	LoopEnd Sub'String to byte string conversionFunction getByteString(StringStr) For i = 1 to Len(StringStr) 	char = Mid(StringStr,i,1)	getByteString = getByteString & chrB(AscB(char)) NextEnd Function'Byte string to string conversionFunction getString(StringBin) getString ="" For intCount = 1 to LenB(StringBin)	getString = getString & chr(AscB(MidB(StringBin,intCount,1)))  NextEnd Function%>

Espero que te ajude, Um abraço.

Compartilhar este post

Link para o post
Compartilhar em outros sites

wills    0

wills
Postado

cara, eu também tenho um sem componentes...e creio que o qual você postou seja parecido com o meu...rse, também não consigo mudar a pasta onde ele salva.mas, um dos meu problemas é o seguinte: não posso passar por cima de uma imagem já existe. tenho que validar isto, ou seja, colocar códigos na img na hora da inserção.sabes onde posso arrumar isto?

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