problemas con upload

maralbust · #1 (**permalink**) 27/02/2006, 08:59

hola a todos, tengo el sgte script para subir archivos

Código:

<% 
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<!-- #include file="secure/abrir_coneccion.asp" -->
<%
fecha = Date()

' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
  Dim uploadsDirVar
  uploadsDirVar = "C:\Inetpub\wwwroot\cinver\docs" 
' ****************************************************

function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
    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
		resumen = "<B>Archivos subidos:</B> "
        for each fileKey in Upload.UploadedFiles.keys
		resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
        next
    else
		resumen = "El nombre del archivo especificado en el formulario no es valido."
    end if
	'comentar la siguiente linea si no se desea mostrar el resumen
	'SaveFiles = resumen
end function

%>
<title>:: CINVER ::</title>
<link href="../css/contenido.css" rel="stylesheet" type="text/css">
<body topmargin="0" leftmargin="0" rightmargin="0">
<form action="upload.asp" method="post" enctype="multipart/form-data" name="frmsend"><table width="100%"  border="0" align="left" cellpadding="0" cellspacing="3">
  <tr>
    <td colspan="2"><img src="../images/t_adjuntar.gif" width="350" height="40"></td>
    </tr>
  <tr>
    <td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
    </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td width="1%"><input maxlength="256" name="file3" type="file" size="28" class="bloques"></td>
    <td width="99%">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
    </tr>
  <tr>
    <td><input maxlength="256" name="file2" type="file" size="28" class="bloques"></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
    </tr>
  <tr>
    <td><input maxlength="256" name="file3" type="file" size="28" class="bloques"></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
  </tr>
  <tr>
    <td colspan="2"><%
'solo llamo al UPLOAD si hay envio de formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
	'Hace el upload de los archivos enviados y muestra el resumen	
	response.write "<p>"&SaveFiles()&"</p>"
%>
<script>
alert("Se ha subido el archivo exitosamente");
this.close();
</script>
<%
end if
%>
</td>
  </tr>
  <tr>
    <td colspan="2"><span class="bajadaForm"><img src="../images/trans.gif" width="4" height="10"></span></td>
  </tr>
  <tr>
    <td><span class="formulario"><span class="bajadaForm"><input type="hidden" name="id_usuario" value="<%=id_usu %>"><input type="hidden" name="modulo" value="<%=modulo %>">
      <input name="boton" type="image" src="../images/b_submit.gif" align="baseline" width="88" height="23" border="0" onMouseOver="this.style.cursor='pointer'">
    </span></span></td>
    <td>&nbsp;</td>
  </tr>
</table>
</form>
</body>

todo funca super bien el problema es que necesito colocar un insert dentro de la function para guardar la informacion de cada envio y luego saber cuantos archivos ha enviado cada usuario, el drama es que cuando pongo el insert se me cae el script, no me sube los archivos o me genera un error.

alguien me podria guiar.

gracias

ElAprendiz · #2 (**permalink**) 27/02/2006, 11:12

pero donde colocas el insert? no lo veo

maralbust · #3 (**permalink**) 28/02/2006, 06:54

perdon amigos, pero ya lo solucione, busque por cielo mar y tierra y encontre como hacerlo (creo que por eso me gusta la programacion y no las drogas, te matas las neuronas por algo productivo).

les dejo el codigo, de echo es el mismo que publique pero con algunas modificaciones

Código HTML:

<!--#include file="secure/abrir_coneccion.asp"-->
<%
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<%
' ****************************************************
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = "C:\Inetpub\wwwroot\cinver\docs"
' ****************************************************


%>

<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<link href="../css/contenido.css" rel="stylesheet" type="text/css">
<BODY>
<img src="../images/t_adjuntar.gif" width="350" height="40"><br>
<form name="frmSend" method="POST" enctype="multipart/form-data" action="upload_s.asp">
<input maxlength="256" name="attach1" type="file" size="28" class="bloques">
  <br>
<input type="hidden" value="<%=Request("id_usu") %>" name="id_usu">
<input type="hidden" value="<%=Request("modulo") %>" name="modulo">
 <br>
 <span class="formulario"><span class="bajadaForm">
 <input name="boton" type="image" src="../images/b_submit.gif" align="baseline" width="88" height="23" border="0" onMouseOver="this.style.cursor='pointer'">
 </span></span></form>

<BR>
<%
'solo llamo al UPLOAD si hay envio de formulario
If Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Hace el upload de los archivos enviados y muestra el resumen
	Dim varia1
	Dim varia2
	Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
	Set Upload = New FreeASPUpload
	Upload.Save(uploadsDirVar)
	id_us = Upload.Form("id_usu")
	
	msg_1 = "<a href=\""javascript:;\"" onClick=\""openwin('upload_s.asp?id_usu="&id_us&"','','width=356,height=250')\""><img src=\""../images/b_adjuntar.gif\"" border=\""0\""></A>"
	msg_2 = "Usted no puede enviar más archivos"
	   
	'If something fails inside the script, but the exception is handled
	If Err.Number <> 0 then
	Else
		rql = "SELECT cant_upload FROM files WHERE id_user = '"&id_us&"' AND cant_upload <= 3"
		set rq = db.execute(rql)
		If not rq.eof Then
			'SaveFiles = ""
			ks = Upload.UploadedFiles.keys
			If (UBound(ks) <> -1) Then
				resumen = "<B>Archivo subido:</B> "
				for each fileKey in Upload.UploadedFiles.keys
				resumen = resumen & Upload.UploadedFiles(fileKey).FileName '& " (" & Upload.UploadedFiles(fileKey).Length & "B) "
				next
			Else
				resumen = "El nombre del archivo especificado en el formulario no es valido en el sistema."
			End If
		
			'comentar la siguiente linea si no se desea mostrar el resumen
			SaveFiles = resumen
			If rq("cant_upload") = 1 Then
				sql = "UPDATE files SET id_user = '"&id_us&"', fecha_upload = '"&Date()&"', cant_upload = '2'"
				set rs = db.execute(sql)
%>
				<script>
				alert("Se ha subido el archivo exitosamente");
				opener.document.getElementById('msg').innerHTML = "<%=msg_1 %>";
				this.close();
				</script>
<%
			End If 
				
			If rq("cant_upload") = 2 Then
				sql = "UPDATE files SET id_user = '"&id_us&"', fecha_upload = '"&Date()&"', cant_upload = '3'"
				set rs = db.execute(sql)
%>
				<script>
				alert("Se ha subido el archivo exitosamente");
				opener.document.getElementById('msg').innerHTML = "<%=msg_2 %>";
				this.close();
				</script>
<%
			End If
		Else
			sql = "INSERT INTO files (id_user, fecha_upload, cant_upload) VALUES ('"&id_us&"', '"&Date()&"', '1')"
			set rs = db.execute(sql)
%>
			<script>
			alert("Se ha subido el archivo exitosamente");
			opener.document.getElementById('msg').innerHTML = "<%=msg_1 %>";
			this.close();
			</script>
<%
		End If
	End IF 
End if 
%>
</BODY>
</HTML>

saludos a todos y ojala les sirva

trasgukabi · #4 (**permalink**) 28/02/2006, 08:30

ah!! las drogas son incompatibles con la programación?

jajajajaj

u_goldman · #5 (**permalink**) 28/02/2006, 09:45

No se si las drogas, pero preguntales a AZ y Myakire del alcohol! je je je

gorka_arai · #6 (**permalink**) 28/02/2006, 10:01

Depende de la sustancia en cuestión...

AlZuwaga · #7 (**permalink**) 28/02/2006, 10:17

El alcohol lo dejé hace un par de días... el problema es que no recuerdo dónde!!!

juanmi321 · #8 (**permalink**) 28/02/2006, 11:53

Cuando estaba la duda, nadie respondia, pero solo dijeron DROGAS y ALCOHOL y miren que el tema se ha hecho mas grande jajajajaja