Ir para conteúdo

POWERED BY:

Arquivado

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

marciolvs

AspUpload + Banco de dados

Por , em ASP Clássico

Recommended Posts

marciolvs    1

marciolvs
Postado

Alguem possui um exemplo de como utilizar o AspUpload enviando nome dos arquivos ao banco?

Pois utilizei o exemplo base deles, mas não consegue recuperar o nome do arquivo enviado.

 

Agradeço desde já a ajuda.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você oide encontrar varios exemplos no laboratorio de script...

ex:

 

<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
Upload.Save "c:\upload"

' Obtain file object
Set File = Upload.Files("THEFILE")

If Not File Is Nothing Then
  ' Build ODBC connection string
  Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\aspupload.mdb")

  ' If you use SQL Server, the connecton string must look as follows:
  ' Connect = "Driver=SQL Server;Server=MYSERVER;UID=sa;PWD=xxxxxxxxx"

  ' Build SQL INSERT statement
  SQL = "INSERT INTO MYIMAGES(image_blob, filename, description, filesize) VALUES(?, '"
  SQL = SQL & File.Filename & "', '"
  SQL = SQL & Replace(Upload.Form("DESCR"), "'", "''") & "', "
  SQL = SQL & File.Size & ")"

  ' Save to database
  File.ToDatabase Connect, SQL
  Response.Write "File saved."
Else
  Response.Write "File not selected."
End If
%>
</BODY>
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gutoffline    1

Gutoffline
Postado

cara eu tenho usando o dundas

Dim objUpload, objUploadedFile, strPath
	DIM fs, arquivo
	'CÓDIGO DO UPLOAD
	Set objUpload = Server.CreateObject("Dundas.Upload.2")
	objUpload.MaxFileSize = 110240000
	objUpload.UseVirtualDir = True
	objUpload.UseUniqueNames = True
	objUpload.Save "/anexos/"	
	Set fs=Server.CreateObject("Scripting.FileSystemObject")

        'essa linha recupera o nome do arquivo
	arquivo = objUpload.GetFileName(objUpload.files(0).path)
veja se ajuda

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

existem varios outros exemplos de outros componentes tb, geralmente eu uso o CDOSYS nativo do server

Compartilhar este post

Link para o post
Compartilhar em outros sites

marciolvs    1

marciolvs
Postado

cara eu tenho usando o dundas

Dim objUpload, objUploadedFile, strPath
	DIM fs, arquivo
	'CÓDIGO DO UPLOAD
	Set objUpload = Server.CreateObject("Dundas.Upload.2")
	objUpload.MaxFileSize = 110240000
	objUpload.UseVirtualDir = True
	objUpload.UseUniqueNames = True
	objUpload.Save "/anexos/"	
	Set fs=Server.CreateObject("Scripting.FileSystemObject")

        'essa linha recupera o nome do arquivo
	arquivo = objUpload.GetFileName(objUpload.files(0).path)
veja se ajuda

 

 

Este consegui usa, somente não consegui fazer pegar o nome dos 4 upload feito ao mesmo tempo.

Pode dar + esta mãozinha ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você deve fazer um loop nos nomes e jogar num array depois pode dar um split nele

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gutoffline    1

Gutoffline
Postado

Senão me engano é essa linha:

arquivo = objUpload.GetFileName(objUpload.files(0).path)
arquivo = objUpload.GetFileName(objUpload.files(1).path)
arquivo = objUpload.GetFileName(objUpload.files(2).path)

tenta e avisa senão der certo

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode usar uma funcaun para pegar os nomes,

 

Esta função é utilizada quando salvar um arquivo para verificar que não existe já um arquivo com o mesmo nome, para que você não substituí-lo.

Ele acrescenta números à exemplo filename file.gif file1.gif se torna file2.gif e assim por diante.

Isso continua até que ele retorne um nome de arquivo que não existe.

Você poderia simplesmente criar um arquivo a partir do campo ID, mas isso significa que o registro escrito - e que ainda possa existir!

 

Function GetFileName(strSaveToPath, FileName)
Dim Counter
Dim Flag
Dim strTempFileName
Dim FileExt
Dim NewFullPath
dim objFSO, p
Set objFSO = CreateObject("Scripting.FileSystemObject")
Counter = 0
p = instrrev(FileName, ".")
FileExt = mid(FileName, p+1)
strTempFileName = left(FileName, p-1)
NewFullPath = strSaveToPath & "\" & FileName
Flag = False

Do Until Flag = True
If objFSO.FileExists(NewFullPath) = False Then
Flag = True
GetFileName = Mid(NewFullPath, InstrRev(NewFullPath, "\") + 1)
Else
Counter = Counter + 1
NewFullPath = strSaveToPath & "\" & strTempFileName & Counter & "." & FileExt
End If
Loop
End Function 

%>

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