Sigo con el problema del xelupload

yesmina · #1 (**permalink**) 09/04/2006, 16:39

hola amigos,
sigo sufriendo con el xelupload, ya revise los permisos, y al parecer todo es correcto la carpeta en el SEVIRDOR DE LA EMPRESA donde subo mis archvos tiene permisos de escritura. LO UNICO QUE ME muestra es una pagina en blanco..mostrando unicamente los valores que envio en la url.....

Se los suplico alguien quien tenga alguna idea del problema al ke me estoy enfrentando,,,HELP ME !!!

atte
Yesmina

ElAprendiz · #2 (**permalink**) 09/04/2006, 18:14

buuu si no sabes hacer eso, no te mereces ese segundo contrato.

a n g e l u s · #3 (**permalink**) 09/04/2006, 19:03

SSSSSSSSSSSH, QUE BUENA ONDA DJ APRENDIZ, si recuerdas estamos en un foro donde compartimos conocimientos y ayudamos segun nuestros conocimientos y experiencias, y como no somos tan pero tan perfectos nos equivocamos y no lo sabemos todo.

hola yesmina,
a mi me paso algo con los upload que te puede servir, mira dentro de una empresa, por lo general hay un firewall que protege y administra este puede ser un hardware o software, verifica con el administrador de red cuanto de cuanto son los paquetes que permite mover de entrada y salida, si te sirve nos cuentas.

ElAprendiz · #4 (**permalink**) 09/04/2006, 19:25

jejeje ya bueno, pero es la verdad..

ahora vamos a tratar de ayudarte y puedas llegar a lo mas alto de la empresa.

yo creo que es un problema de rutas, pero estoy especulando ya que no pusiste el codigo.

saludos

yesmina · #5 (**permalink**) 09/04/2006, 19:36

hola ,, aki les va mi codigo


<%
Server.ScriptTimeOut = 300
Dim up, fich, fich_1
set up = new Trans_Upload
up.Upload()

if up.Form("opc") = "insertar" then
id = up.Form("item_id")
if id = 13 then
set fich = up.Ficheros("archivo")
set fich_1 = up.Ficheros("img")
'Para guardarlos en el DISCO DURO
' Guardar el Archivo:
peri = up.Form("periodo")
anio = trim(up.Form("anio2"))
nuevo_nombre_arch = nomb(id,valor(peri),peri,anio)'
carpeta = cstr(up.Form("carpeta"))
fich.GuardarComo nuevo_nombre, Server.MapPath(carpeta)
' Guardar la Imagen:
nuevo_nombre_img = "memoriaicon" & anio & right(fich_1.Nombre,4)
carpeta = "../img"
fich_1.GuardarComo nuevo_nombre, Server.MapPath(carpeta)
'Para guardarlos en la BD
' Abrimos una conexión a una base de datos
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
' Nos conectamos
oConn.Open("DRIVER={SQL Server}; SERVER=YESMINA; DATABASE=transparencia; UID=sa")
' Calculamos el ID
SQL_1 = "select max(cumpli_id) + 1 as 'id' from cumplimiento"
' Recogemos el ID
Set objRS_1 = oConn.Execute(SQL_1)
' Generamos la consulta para la insercion en la BD
login = session("login_id")
cumpli_fecha = day(date()) & "/" & month(date()) & "/" & year(date())
cumpli_anio = year(date())
SQLINS = "insert into cumplimiento values('" & trim(objRS_1("id")) & "', '" & up.Form("item_id") & "', '" & up.Form("periodo") & "', '" & nuevo_nombre_arch & "', null, '" & CStr(trim(login)) & "', '" & cumpli_fecha & "', '" & cumpli_anio & "', '" & nuevo_nombre_img &"')"
oConn.Execute(SQLINS)
set fich = nothing
set fich_1 = nothing
set up = nothing
oConn.Close
set oConn = nothing
else
""....es otra opcion muy parecido el codigo.."""
'------------------------------------------------------------------

'funicones usadas...
<%
function nomb(id,dato,peri,anio)'
dim nombre
carac = len(id)
fre = left(peri,1)
if carac = 1 then
id = "0" & id
end if
if fre <> "A" then
nombre = "T" & id & fre & "_" & dato & "_" & anio & ".pdf"
else
nombre = "T" & id & fre & "_" & anio & ".pdf"
end if
nomb = nombre
end function

function valor(val)
dim dat
select case val
case "Enero"
dat = "01"
case "Febrero"
dat = "02"
case "Marzo"
dat = "03"
case "Abril"
dat = "04"
case "Mayo"
dat = "05"
case "Junio"
dat = "06"
case "Julio"
dat = "07"
case "Agosto"
dat = "08"
case "Septiembre"
dat = "09"
case "Octubre"
dat = "10"
case "Noviembre"
dat = "11"
case "Diciembre"
dat = "12"
case "Trimestre 1", "Semestre 1"
dat = "01"
case "Trimestre 2", "Semestre 2"
dat = "02"
case "Trimestre 3"
dat = "03"
case "Trimestre 4"
dat = "04"
end select
valor = dat
end function
%>

Atte. yesmina

Nota: este es el codigo donde sube el archivo, recibe datos de otro..y se acompña con el codigo del xelupload puro ke est aen otra pagina...si kiren mas detalle..este esmi email [email protected]

yesmina · #6 (**permalink**) 09/04/2006, 19:45

por cierto, soy novata en programacion web,, son mis primeras practicas pre-profesionales ...:(

gracias A n g e l u s...le dire eso a mi jefe, a el tampoc se le ocurrió verificar lo del firewall..

algo ke me comentaron es ke revise en el iis si esta activado la opcion:"habilitar rutas de acceso primarias"..en la carpeta que hace referencia a la pagina ....uds que opinan..??????

Atte.
Yesmina

ElAprendiz · #7 (**permalink**) 09/04/2006, 20:18

coloca antes de esta linea :
fich_1.GuardarComo nuevo_nombre, Server.MapPath(carpeta)

esto:
response.write Server.MapPath(carpeta)

y verifica que la ruta devuelta exista

saludos

trasgukabi · #8 (**permalink**) 09/04/2006, 22:10

primero: olvídate del firewall
segundo:los permisos de los que hablas están asignados a nivel de sistema operativo, no? no sólo en IIS
tercero:cuando postees TOOOODO el código, procura que éste no empiece por:


PD:Rediós, 1700 mensajes, igual que el año en el que nació el padre de la mecánica de fluidos!!!

u_goldman · #9 (**permalink**) 09/04/2006, 22:45

Vamos a hijackear el thread, felices 1,700 master!

Y ahora, cual es la conducta precisa de tu script?
De casualidad se queda colgado?

yesmina · #10 (**permalink**) 10/04/2006, 11:37

hola, intente lo ke escribiste...DJ ElAprendiz
pero me da el siguiente ERROR..

Tipo de error:
Server.MapPath(), ASP 0173 (0x80004005)
Se especificó un carácter no válido en el parámetro Path del método MapPath.
/egesur/tran/escribir.asp, línea 11

y la linea a la que señala es:

response.write Server.MapPath(carpeta)

por ke??

Recuerden que todo si me funciona localmente, en el servidor no ..:(...y si se me keda como colgado...

atte. yesmina..

u_goldman · #11 (**permalink**) 10/04/2006, 11:55

Cita:

Recuerden que todo si me funciona localmente, en el servidor no ..:(...y si se me keda como colgado...

Si es esto, quiere decir que no hay nada mal con tu código y seguramente es el antivirus que está bloqueando los scripts, desactiva el bloqueo de scripts en tu antivirus, si es Norton, no basta con desactivar el Norton, tienes que desactivar esta opción.

Saludos

ElAprendiz · #12 (**permalink**) 10/04/2006, 11:59

ma, que raro

y
response.write carpeta

yesmina · #13 (**permalink**) 10/04/2006, 12:00

hola amigos, de esta manera asigno la ruta...
function select_carpeta(id)
select case id
case 8,9,10,11
carpeta = "PDFs/Planeamiento/"
case 13,14
carpeta = "../publica/Pdfs/"
case 15,19
carpeta = "../publica/Pdfs/Indic/"
case 17,18
carpeta = "PDFs/Presupuesto/"
case 22,23,24,25,26
carpeta = "PDFs/Deuda/"
case 28,29
carpeta = "PDFs/Proyectos/"
case 31
carpeta = "PDFs/Acontecimientos"
case 34,35,36,37,38,39,40,41,42
carpeta = "PDFs/Personal/"
case 44,45,46,47,49,50,51,52,53,54
carpeta = "PDFs/Personal/"
case 56,58,59,60,62,63,64,65,66,68,69,71,72
carpeta = "PDFs/Logistica/"
case 74
carpeta = "PDFs/VtaBienes/"
case else
carpeta = "PDFs/Nuevos_Archivos/"
end select
select_carpeta = carpeta
end function
%>

fijense ke en case 31, cuando kise asignarle de esta forma la ruta, surgio el siguiente ERROR..

Tipo de error:
Server.MapPath(), ASP 0173 (0x80004005)
Se especificó un carácter no válido en el parámetro Path del método MapPath.
/egesur/tran/transparencia_upload_1.asp, línea 55

HACE REFRENCIA A ESTA LINEA:
fich.GuardarComo nuevo_nombre, Server.MapPath(carpeta)

es logico el error..entonces..ke debo hacer????..como le coloco la ruta...digamos que la ruta en internet es: www.yesmina.com, la cual tiene una carpeta tran donde esta a su vez otra carpeta PDFs con otra subcarpeta de nombre Acontecimientos.
supuestamente deberia dirigirse asi?...www.yesmina.com/tran/PDFs/Acontecimientos eso en la carpeta acontecimientos deberia guardarse los archivos..lo intentare..pero no sep si funcione..

ya les contare...en la tarde que voy a la empresa...

Atte.
Yesmina

yesmina · #14 (**permalink**) 10/04/2006, 12:10

Hola muchachos, gracias por sus respuestas,
mas bien los permisos a las carpetas solo les dia anivel del IIS, como lo haria a nivel del stma operativo??..

por cierto usamos Mc Afee Virus Scan, este tambien bloqueria los scripts?

atte

yesmina

u_goldman · #15 (**permalink**) 10/04/2006, 12:11

Cita:

Iniciado por yesmina

por cierto usamos Mc Afee Virus Scan, este tambien bloqueria los scripts?

atte

yesmina

yesmina · #16 (**permalink**) 10/04/2006, 12:13

Cita:

Iniciado por ElAprendiz

ma, que raro

y
response.write carpeta

hola, Si lo hice y me mostró----->> PDFs/Acontecimientos

ElAprendiz · #17 (**permalink**) 10/04/2006, 12:18

Cita:

ya les contare...en la tarde que voy a la empresa...

bueno tons esperemos hasta la tarde

yesmina · #18 (**permalink**) 10/04/2006, 15:35

Cita:

Iniciado por yesmina

hola, Si lo hice y me mostró----->> PDFs/Acontecimientos

hola, estoy ene ste momento en la empresa, probe ver la ruta...direccionandola a una pagina..donde coloke lo siguiente:

<% response.Write server.MapPath("carpeta")%>

el resultado fue el sgte: F:\xxxxxx\tran\carpeta
donde carpeta almacena lo sgte: PDFs/Acontecimientos
se supone que esta colocado el sitio en internet: www.xxxxx.com

esta bien el resultado?????????

Atte.
Yesmina

ElAprendiz · #19 (**permalink**) 10/04/2006, 16:02

Cita:

esta bien el resultado?????????

dimelo tu, existe la carpeta?

de todas maneras no dejes de lado lo que te han dicho antes sobre el bloqueo de los scripts.