Ver Mensaje Individual
  #4 (permalink)  
Antiguo 18/02/2006, 23:27
Avatar de juanmi321
juanmi321
 
Fecha de Ingreso: septiembre-2004
Mensajes: 262
Antigüedad: 20 años, 8 meses
Puntos: 1
Exclamación

Bueno mas o menos es esto. Haber si me doy a explicar, estoy haciendo una pagina en donde esta insertado el componente XUpload, este componente al hacer el upload de mis archivos, manda a llamar a un asp en donde se le indica la ruta en la cual va a guardar los archivos subidos. En esta direccion al final le estoy pasando una variable de sesion del usuario que esta ingresando, con la finalidad que en la ruta que la va a guardar, lo meta en una carpeta ya hecha con su nombre de mi usuario.
El codigo es esto

PAGINA DONDE ESTA EL XUPLOAD
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conectabd.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conectabd_STRING
Recordset1.Source = "SELECT NOMBRES, USUARIO FROM dbo.LOGIN WHERE USUARIO='" & Session("MM_Username") &"'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
PID = "PID=" & UploadProgress.CreateProgressID()
barref = "framebar.asp?to=10&" & PID
%>
<html>
<head>
<title>Formulario de envío de ficheros</title>
</head>
<body>
<SCRIPT LANGUAGE="VBScript">
Sub Select_OnClick
MyUpload.Select
End Sub

Sub SelectFolder_OnClick
MyUpload.SelectFolder
End Sub

Sub Remove_OnClick
MyUpload.RemoveHighlighted
End Sub

Sub RemoveAll_OnClick
MyUpload.RemoveAll
End Sub

Sub Upload_OnClick
MyUpload.Upload
MyUpload.RemoveAll

End Sub
</SCRIPT>
<p align="center">
<object classid="CLSID:E87F6C8E-16C0-11D3-BEF7-009027438003" codebase="XUpload.ocx" width="545" height="200" class="style1" id="MyUpload">
<param name="Server" value="localhost">
<param name="Script" value="/spa/progress_upload2.asp">
<param name="Redirect" value="false">

</object>
<p align="center">
<INPUT TYPE="BUTTON" class="button" NAME="SELECT" VALUE="Seleccionar archivo">
<INPUT TYPE="BUTTON" class="button" NAME="SELECTFOLDER" VALUE="Seleccionar carpeta">
<INPUT TYPE="BUTTON" class="button" NAME="REMOVE" VALUE="Borrar">
<INPUT TYPE="BUTTON" class="button" NAME="REMOVEALL" VALUE="Borrar todo">
</p>
<p align="center">
<center><input type="submit" class="button" name="UPLOAD" value="UPLOAD" onpress="return upload(this)" >
</center>
</p>
<p>&nbsp;</p>

</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
-------------------------------------------------------------
PAGINA A LA QUE ESTA LLAMANDO DONDE VA LA RUTA (progress_upload2.asp)

<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.ProgressID = Request.QueryString("PID")
Count = Upload.Save("c:\Inetpub\wwwroot\respaldosfebrero\" & Session("MM_Username"))
Response.Write(" HAZ SUBIDO " & Count & " ARCHIVOS CORRECTAMENTE")
%>

-------------------------------------------------

Se supone que me deberia subir mis archivos la ruta c:\Inetpub\wwwroot\respaldosfebrero\juan (juan es el usuario), pero no me reconoce ahi la variable solo la guarda en c:\Inetpub\wwwroot\respaldosfebrero\
LA linea que me indica eso es la de
Count = Upload.Save("c:\Inetpub\wwwroot\respaldosfebrero\" & Session("MM_Username"))

Espero haber sido claro :)
DE ANTEMANO GRACIAS
----------------
__________________
<>< EN MOMENTOS DE CRISIS, SOLO LA IMAGINACIÓN ES MÁS IMPORTANTE QUE EL CONOCIMIENTO <><