Subir archivos PDF al servidor

kuervobolso · #1 (**permalink**) 27/01/2011, 20:55

Hola a todos: Esto es lo que necesito hacer y no tengo la menor idea de como!: Necesito subir archivos PDF al servidor y al mismo tiempo si es que es posible, agregarlos de alguna manera (automáticamente), a una base de datos Access. Uso Dreamweaver, Access y ASP. Les agradezco de antemano su ayuda!

Potro · #2 (**permalink**) 28/01/2011, 15:59

Hiola compañero te dejo una pagina donde te explican como subir archivos al servidor con asp.

http://www.desarrolloweb.com/articulos/740.php

Despues de ahi podrias guardar el nombre del archivo en tu access asi apra que puedas poner un recorset de los archivos que han subido.

Saludos.

kuervobolso · #3 (**permalink**) 28/01/2011, 16:14

Gracias"Potro", lo de subir los PDF al servidor está arreglado, entonces tu crees que no haya posibilidad de que al mismo tiempo que subo un archivo PDF se grabe en la base de datos el nombre del archivo por ejemplo para luego hacer un recordset y las personas puedan hacer click sobre los resultados y abrir el PDF?

Potro · #4 (**permalink**) 28/01/2011, 17:05

Creo que no me explique bien o no me entendiste jeje cualquesea..

Yo uso el freeaspupload.asp para subir archivos a servidor despues de que subo el archivo

redirecciono a otra pagina con el nombre del archivo que se subio ejemplo:

Código ASP:

Ver originalarchivo = SaveFiles()
response.Redirect("insert_access.asp?nombre="&archivo)

y en mi pagina ya insertaria el nombre al access

Código ASP:

Ver originalsql = "insert into tbl_Archivos (nombre) values ('"&request.QueryString("nombre")&"')"
Con.Execute(sql)

y listo...

O bien pon tu codigo y ahi lo modificamos..

Saludos...

kuervobolso · #5 (**permalink**) 29/01/2011, 21:34

Mil gracias Potro por tu tiempo y por compartir tus conocimientos, PERO!... ya tengo armada la pagina para subir los archivos al servidor y esta funcionando perfectamente (freeaspupload), ahora mi problema es que no entiendo donde tengo que modificar el código para que se escriban los datos en Access. Disculpa que no soy tan inteligente como tu! lol

Potro · #6 (**permalink**) 31/01/2011, 12:16

Pj el codigo compañero el codigo donde subes tu archivo y ahi le metemos mano ok..

Saludos..

kuervobolso · #7 (**permalink**) 31/01/2011, 17:48

<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
' All communication must be in UTF-8, including the response back from the request
Session.CodePage = 65001
%>

<%

' ************************************************** **
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
' ************************************************** **

Dim uploadsDirVar
uploadsDirVar = "E:\web\archiext\"

' Note: this file uploadTester.asp is just an example to demonstrate
' the capabilities of the freeASPUpload.asp class. There are no plans
' to add any new features to uploadTester.asp itself. Feel free to add
' your own code. If you are building a content management system, you
' may also want to consider this script: http://www.webfilebrowser.com/

function OutputForm()
%>
<form name="frmSend" method="POST" enctype="multipart/form-data" accept-charset="utf-8" action="pdf.asp" onSubmit="return onSubmitForm();">
<B>Archivos:</B><br>
Archivo 1: <input name="attach1" type="file" size=35><br>
Archivo 2: <input name="attach2" type="file" size=35><br>
Archivo 3: <input name="attach3" type="file" size=35><br>
Archivo 4: <input name="attach4" type="file" size=35><br>
<br>

<input style="margin-top:4" type=submit value="Subir archivos">
</form>
<%
end function

function TestEnvironment()
Dim fso, fileName, testFile, streamTest
TestEnvironment = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(uploadsDirVar) then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
exit function
end if
fileName = uploadsDirVar & "\test.txt"
on error resume next
Set testFile = fso.CreateTextFile(fileName, true)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
exit function
end if
Err.Clear
testFile.Close
fso.DeleteFile(fileName)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder."
exit function
end if
Err.Clear
Set streamTest = Server.CreateObject("ADODB.Stream")
If Err.Number<>0 then
TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries."
exit function
end if
Set streamTest = Nothing
end function

function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey

Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)

' If something fails inside the script, but the exception is handled
If Err.Number<>0 then Exit function

SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
SaveFiles = "<B>Archivos Subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
next
else
SaveFiles = "No file selected for upload or the file name specified in the upload form does not correspond to a valid file in the system."
end if
SaveFiles = SaveFiles & " " & Upload.Form("enter_a_number") & "<br>"
SaveFiles = SaveFiles & " " & Upload.Form("checkbox_values") & "<br>"
SaveFiles = SaveFiles & " " & Upload.Form("list_values") & "<br>"
SaveFiles = SaveFiles & " " & Upload.Form("t_area") & "<br>"
end function
%>

<HTML>
<HEAD>
<TITLE>Archiext: Subir archivos al servidor</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style>
BODY {background-color: white;font-family:arial; font-size:12}
</style>
<script>
function onSubmitForm() {
var formDOMObj = document.frmSend;
if (formDOMObj.attach1.value == "" && formDOMObj.attach2.value == "" && formDOMObj.attach3.value == "" && formDOMObj.attach4.value == "" )
alert("Please press the Browse button and pick a file.")
else
return true;
return false;
}
</script>

</HEAD>

<BODY>

<br><br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir archivos al servidor</div>
<%
Dim diagnostics
if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
diagnostics = TestEnvironment()
if diagnostics<>"" then
response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">"
response.write diagnostics
response.write "<p>After you correct this problem, reload the page."
response.write "</div>"
else
response.write "<div style=""margin-left:150"">"
OutputForm()
response.write "</div>"
end if
else
response.write "<div style=""margin-left:150"">"
OutputForm()
response.write SaveFiles()
response.write "<br><br></div>"
end if

%>

</BODY>
</HTML>

Potro · #8 (**permalink**) 31/01/2011, 18:18

Mira pues a lo que veo en esta luinea tu imprimes los archivos que has subido a tu servidor ok.

response.write SaveFiles()

Bueno con esta variable sabemos como se llaman los archivos "SaveFiles()"

solo es cuestion de meterla en un forech

Código PHP:

Ver originalSaveFiles()
 
for each FILE1 in SaveFiles()
 
    sql = "Insert Into tbl (nombre) values ('"&FILE1&"')"
    Con.Execute(sql)  
 
next

Este codigo ponlo debajo antes de que imprimas los archivos que subiste...

Saludos

kuervobolso · #9 (**permalink**) 01/02/2011, 00:43

Potro!!! NO ME MATES POR FAVOR!!! ero tengo nuevas preguntas, este código que me diste es solo para PHP o también sirve para ASP?, si sirve para ASP que es el formato de mis archivos, a partir de que linea lo debo pegar? Tampoco entiendo a que te refieres con eso de imprimir los archivos, disculpa mi ignorancia por favor!!! Gracias enormes por tus conocimientos y tu infinita paciencia!

Potro · #10 (**permalink**) 01/02/2011, 10:50

Sorry la regue al seleccionar un lenguaje esto seria asi

Código ASP:

Ver originalSaveFiles()
 
for each FILE1 in SaveFiles()
 
    sql = "Insert Into tbl (nombre) values ('"&FILE1&"')"
    Con.Execute(sql)  
 
next

Aun que tiene la misma logica...

Bueno a que me refieron com imprimir cuando tu das un response.write escribes algo en pantalla a eso me refiero entonces,

Bueno tambien pega ese codigo antes de la linea que tienes:

response.write SaveFiles()

y dime que paso ok.

kuervobolso · #11 (**permalink**) 01/02/2011, 20:10

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'FILE1'

/pdf.asp, line 143

Esto fue lo que pasó, seguramente estoy haciendo algo mal, te paso el código otra vez entero con lo que le agregué así me puedes decir que pasó. Gracias

<%@ Language=VBScript %>
<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
' All communication must be in UTF-8, including the response back from the request
Session.CodePage = 65001
%>

<%

' ************************************************** **
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
' ************************************************** **

Dim uploadsDirVar
uploadsDirVar = "E:\web\archiext\"

' Note: this file uploadTester.asp is just an example to demonstrate
' the capabilities of the freeASPUpload.asp class. There are no plans
' to add any new features to uploadTester.asp itself. Feel free to add
' your own code. If you are building a content management system, you
' may also want to consider this script: http://www.webfilebrowser.com/

function OutputForm()
%>
<form name="frmSend" method="POST" enctype="multipart/form-data" accept-charset="utf-8" action="pdf.asp" onSubmit="return onSubmitForm();">
<B>Archivos:</B><br>
Archivo 1: <input name="attach1" type="file" size=35><br>
Archivo 2: <input name="attach2" type="file" size=35><br>
Archivo 3: <input name="attach3" type="file" size=35><br>
Archivo 4: <input name="attach4" type="file" size=35><br>
<br>

<input style="margin-top:4" type=submit value="Subir archivos">
</form>
<%
end function

function TestEnvironment()
Dim fso, fileName, testFile, streamTest
TestEnvironment = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(uploadsDirVar) then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
exit function
end if
fileName = uploadsDirVar & "\test.txt"
on error resume next
Set testFile = fso.CreateTextFile(fileName, true)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
exit function
end if
Err.Clear
testFile.Close
fso.DeleteFile(fileName)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder."
exit function
end if
Err.Clear
Set streamTest = Server.CreateObject("ADODB.Stream")
If Err.Number<>0 then
TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries."
exit function
end if
Set streamTest = Nothing
end function

function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey

Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)

' If something fails inside the script, but the exception is handled
If Err.Number<>0 then Exit function

SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
SaveFiles = "<B>Archivos Subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
next
else
SaveFiles = "No file selected for upload or the file name specified in the upload form does not correspond to a valid file in the system."
end if
SaveFiles = SaveFiles & " " & Upload.Form("enter_a_number") & "<br>"
SaveFiles = SaveFiles & " " & Upload.Form("checkbox_values") & "<br>"
SaveFiles = SaveFiles & " " & Upload.Form("list_values") & "<br>"
SaveFiles = SaveFiles & " " & Upload.Form("t_area") & "<br>"
end function
%>

<HTML>
<HEAD>
<TITLE>Archiext: Subir archivos al servidor</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style>
BODY {background-color: white;font-family:arial; font-size:12}
</style>
<script>
function onSubmitForm() {
var formDOMObj = document.frmSend;
if (formDOMObj.attach1.value == "" && formDOMObj.attach2.value == "" && formDOMObj.attach3.value == "" && formDOMObj.attach4.value == "" )
alert("Please press the Browse button and pick a file.")
else
return true;
return false;
}
</script>

</HEAD>

<BODY>

<br><br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir archivos al servidor</div>
<%
Dim diagnostics
if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
diagnostics = TestEnvironment()
if diagnostics<>"" then
response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">"
response.write diagnostics
response.write "<p>After you correct this problem, reload the page."
response.write "</div>"
else
response.write "<div style=""margin-left:150"">"
OutputForm()
response.write "</div>"
end if
else
response.write "<div style=""margin-left:150"">"
OutputForm()
SaveFiles()

for each FILE1 in SaveFiles()

sql = "Insert Into tbl (pdf) values ('"&FILE1&"')"
Con.Execute(sql)

next
response.write SaveFiles()
response.write "<br><br></div>"
end if

%>

</BODY>
</HTML>

Myakire · #12 (**permalink**) 02/02/2011, 07:52

Si tienes colocado un option explicit es obvio que debes definir la nueva variable, debes coloca un Dim FILE1 o bien quitar el option explicit.

Solo como comentario, no es nada personal, pero copiar códigos de Internet es bueno siempre y cuando te sirva para estudiar cada instrucción, analizar para comprender como funciona y aprender, si solo copias y pegas esperando que funcione sin problemas estas frito.

Saludos

kuervobolso · #13 (**permalink**) 02/02/2011, 08:14

Estuve buscando en Internet y obviamente algo falta en el código. Lamentablemente no se nada de ASP como ustedes, sobre tu comentario "nada personal", creo que tienes razón pero gracias a Dios existen personas como "Potro" y tu que no tienen problema en ayudar a gente con conocimientos diferentes. Ojalá nunca necesites ayuda de nadie pero quien sabe si algún día yo te pueda ayudar a ti en algo que no sepas!...

Potro · #14 (**permalink**) 02/02/2011, 10:54

Carai mi estimado no sabia que eras nuevo en esto y que no tienes nada de experiencia,, entonces si estamos muy cortos al poder finalizar esto..

Te explico no te funciono el codigo que te di por que no has puesto tu conexion a la base de datos en este caso acces y tampoco creo que ya la tengas creada, y creo que no entiendes lo que te estoy diciendo jejeje...

Bueno mi estimado para lograr lo que planteas es que debes de tener un archivo mdb que son los de access ya con una tabla creada donde entraran los nombres de los archivos que se vallan subiendo..

Despues a tu codigo asp hay que agregarle un codigo que se conecte a esa base de access y luego hacer un query sql que te permita insertar los datos..

Creo que si necesitaras hecharle una leida a este manual es muy basico pero te enseña a como hacer una base de datos en access. y como interactuar con asp

http://www.desarrolloweb.com/articulos/1332.php

lee esto y despues que ya tengas tu tabala en acces me dices y le seguimos..

Saludos...

kuervobolso · #15 (**permalink**) 02/02/2011, 11:22

Me expesé mal... Que no sepa ASP no significa que no sepa cruzar la calle solo!!! Jajajaja lo que no se es el código ASP, desde hace mucho tiempo uso dreamweaver, o sea que más que "tocar" un poquito de código en ASP no se. Ayer cuando me pasaste el código, lo primero que hice fue agregar una tabla llamada PDF a mi base de datos, dentro de ella hay dos campos, uno es Id y el otro es FILE1. Pido mil disculpas por no haber sido claro en mis mensajes, y una vez más te agradezco por tu ayuda Potro.

Potro · #16 (**permalink**) 02/02/2011, 13:44

ok, ya tienes tu base por asi decirlo, y ya sabes como hacer una conexion asp a access..

Saludos,

kuervobolso · #17 (**permalink**) 02/02/2011, 14:25

Todas las conexiones a bases de datos que he hecho en mi vida, han sido a través del Dreamweaver, nunca hice una conexión a código ASP puro, no tengo la menor idea de la lógica y de la sitaxis de una conexión ASP. O sea, no se que es lo que tengo que hacer con el código para conectar la base de datos.

kuervobolso · #18 (**permalink**) 03/02/2011, 16:42

he estado probando conectar a la base de datos, pero todavía no he podido, igual lo sigo intentando!

Myakire · #19 (**permalink**) 03/02/2011, 22:47

Este sitio te sera de utilidad

Saludos

kuervobolso · #20 (**permalink**) 04/02/2011, 12:25

Gracias Myakire, pero el problema es que no se en donde colocar la cadena de conexión. Me da error todo el tiempo.

Myakire · #21 (**permalink**) 04/02/2011, 13:01

Saber el error ayudaría bastante

La definición del objeto connection y su apertura deben de ir antes de utilizarlo
En este caso si lo usas por primera vez para hacer el insert, pues definilo antes del FOR

Código ASP:

Ver original'-> AQUI puede ser un buen lugar, cualquiera de hecho, salvo dentro del FOR
 
for each FILE1 in SaveFiles()
 
sql = "Insert Into tbl (pdf) values ('"&FILE1&"')"
Con.Execute(sql) 
 
next

Saludos

kuervobolso · #22 (**permalink**) 04/02/2011, 13:32

A lo que me refiería es a la conexión con la base de datos

Myakire · #23 (**permalink**) 04/02/2011, 15:27

Exactamente a eso me refiero yo

kuervobolso · #24 (**permalink**) 04/02/2011, 16:18

Pero lo que tu me escribiste es para ingresar los datos en la base de datos verdad?, pero antes que eso no debería conectar primero la base de daots?

Myakire · #25 (**permalink**) 04/02/2011, 17:48

Tu dijiste:

Cita:

el problema es que no se en donde colocar la cadena de conexión. Me da error todo el tiempo.

Y yo contesté:

Cita:

La definición del objeto connection y su apertura deben de ir antes de utilizarlo
En este caso si lo usas por primera vez para hacer el insert, pues definilo antes del FOR

Preguntas dónde definir la conexión y te contesté.

Si preguntas cómo ... pues para eso te puse el link de connectionstrings.com, claro complementado con buscar un poco y el famoso copiar y pagar que dices que te ha funcionado tan bien

Código ASP:

Ver original<&#37;
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtest=dsntest & "DBQ=c:\mydatabase.mdb" 
Conn.Open DSNtest
%>

Potro · #26 (**permalink**) 08/02/2011, 11:12

Carai amigo ojala y ya hayas podido conectar el asp a tu access por que eso es lo básico para lograr lo que pides..

kuervobolso · #27 (**permalink**) 08/02/2011, 20:27

Gracias a los dos, finalmente encontré lo que estaba buscando está aquí, si quieren subo los 5 archivos que hice y cualquier persona los puede usar, me gusta compartir... http://www.webthang.co.uk/goto/tutorials/000168/?cat=2&tut=168

kuervobolso · #28 (**permalink**) 08/02/2011, 20:30

Cita:

Iniciado por Potro

Carai amigo ojala y ya hayas podido conectar el asp a tu access por que eso es lo básico para lograr lo que pides..

Potro, lamentablemente no pude, poque no estudié nunca ASP y no entiendo la lógica del lenguaje, lamentablemente creo que se me malintepretó, pero bueno, siento que no puedo saber de todo y de ASP fuí honesto y desde el principio dije que no se como escribir, uso el Dreamweaver para todo, y si me sacas ese programa no se ni para donde ir. Igual compadre gracias! es bueno que haya gente como tu en este mundo, un saludo desde tu vecino del norte! Y espero poder devolverte con mis conocimientos en otras cosas tu amable y desinteresada ayuda!