El peso adecuado de una página asp???

[u_goldman]

sin mencionar que tomaria mucho tiempo el bajarlo con el getright y verle el codigo...

[elkronos]

aunque tambien podrias comprimir la pagina investiga

[PMP]

Me gustaría ver el código.
Jamas he visto algo igual y no me lo imagino, ya que es puro texto.
A mi entender me parece que no es posible.

[Pachangero]

Cita:

Originalmente Escrito por PMP
Me gustaría ver el código.
Jamas he visto algo igual y no me lo imagino, ya que es puro texto.
A mi entender me parece que no es posible.
------------------------------------------------------------------

Saludos

Como menciona PMP yo tambien pensaba que no era posible hasta que lo hice, exacto es puro texto, actualmente estoy probandolo y como mencionan muchos tarde en leer cosa obvia, puesto que son muchas condiciones.

Lo bueno es que funciona lo malo que es demasiado peso.

Disculpen si no pongo texto pero es que se traba cuando copia y toma mucho tiempo, por lo mismo es demasiado grande.

Vere la manera de subir ya sea el codigo o el archivo.

Actualmente ando buscando una manera optima para realizar la actualización de los campos.

[Myakire]

Si traducimos la página a JSP (¿quien se avienta ese trompo a la uña?) se evitan los problemas que Neuron menciona de que cada petición carga una copia en memoria, ya que el Tomcat carga solo una instancia del compilado generado en la primera petición y la gestiona a los diversos clientes.

[Muzztein]

los servlets dices tu ????

[Pachangero]

Saludos

Les pongo una parte del codigo porque es demasiado grande y colocarlo todo hace que exista un problema

Estos son los campos que pido para la información:

Number2 = Request.Form("Number")
Equipo2 = Request.Form("Equipo")
clave=Request.Form("orden")
Fecha_captura2 = Request.Form("Fecha_captura")
Fecha_deteccion2 = Request.Form("Fecha_deteccion")
Fecha_compromiso2 = Request.Form("Fecha_compromiso")
Fecha_correccion2 = Request.Form("Fecha_correccion")
Rubro2 = Request.Form("Rubro")
Ponderacion2 = Request.Form("Ponderacion")
maquina2 = Request.Form("maquina")
Componente2 = Request.Form("Componente")
Avance2 = Request.Form("Avance")
Anomalia2 = Request.Form("Anomalia")
Solucion2 = Request.Form("Solucion")
Observacion2 = Request.Form("Observacion")
Costo2 = Request.Form("Costo")
Elaboro2 = Request.Form("Elaboro")

Posteriormente se realiza la conexion a la BD

Después entran las condiciones primero para ver si seleccionada alguna opcion del campo ORDEN

if Trim(request.form("Orden")) <> "" then 'Orden

A continuación de realizan cada una de las condiciones con los IF de los demas campos. Unicamente pongo un ejemplo puesto que es demasiado.

Select Case clave
Case "Activo":
if Trim(request.form("Equipo")) <> "" then 'Equipo
if Trim(request.form("Fecha_captura")) <> "" then 'Fecha_captura
if Trim(request.form("Fecha_deteccion")) <> "" then 'Fecha_deteccion
if Trim(request.form("Fecha_compromiso")) <> "" then 'Fecha_compromiso
if Trim(request.form("Fecha_correccion")) <> "" then 'Fecha_correccion
if Trim(request.form("Rubro")) <> "" then 'Rubro
if Trim(request.form("Ponderacion")) <> "" then 'Ponderacion
if Trim(request.form("maquina")) <> "" then 'maquina
if Trim(request.form("Componente")) <> "" then 'Componente
if Trim(request.form("Avance")) <> "" then 'Avance
if Trim(request.form("Anomalia")) <> "" then 'Anomalia
if Trim(request.form("Solucion")) <> "" then 'Solucion
if Trim(request.form("Observacion")) <> "" then 'Observacion
if Trim(request.form("Costo")) <> "" then 'Costo
if Trim(request.form("Elaboro")) <> "" then 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Observacion ='" & Observacion2 & "', Costo ='" & Costo2 & "', Elaboro ='" & Elaboro2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
else 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Observacion ='" & Observacion2 & "', Costo ='" & Costo2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
end if 'Elaboro
else 'Costo

if Trim(request.form("Elaboro")) <> "" then 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Observacion ='" & Observacion2 & "', Elaboro ='" & Elaboro2 & "' Where Number =" & Number2 & ""


set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
else 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Observacion ='" & Observacion2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing end if 'Elaboro
end if 'Costo
else 'Observacion
if Trim(request.form("Costo")) <> "" then 'Costo
if Trim(request.form("Elaboro")) <> "" then 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Costo ='" & Costo2 & "', Elaboro ='" & Elaboro2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
else 'Elaboro
sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Costo ='" & Costo2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
end if 'Elaboro
else 'Costo

if Trim(request.form("Elaboro")) <> "" then 'Elaboro
sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "', Elaboro ='" & Elaboro2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
else 'Elaboro

sSQL="Update TAnomalias Set Equipo ='" & Equipo2 & "', Departamento =' Activo ', Area =' Activo ', Fecha ='" & Fecha_captura2 & "', Fecha_deteccion ='" & Fecha_deteccion2 & "', Fecha_compromiso ='" & Fecha_compromiso2 & "', Fecha_correcion ='" & Fecha_correccion2 & "', Rubro ='" & Rubro2 & "', Ponderacion ='" & Ponderacion2 & "', maquina ='" & maquina2 & "', Componente ='" & Componente2 & "', Avance ='" & Avance2 & "', Anomalia ='" & Anomalia2 & "', Solucion ='" & Solucion2 & "' Where Number =" & Number2 & ""

set RS = Conn.Execute(sSQL)
response.write("<h1><center> Registro Actualizado </center></h1>")
Conn.Close
Set Conn = nothing
end if 'Elaboro
end if 'Costo
end if 'Observacion
.
.
.


Case "Activo2":
Case "Activo3":
Case "Activo4":
Case "Activo5":


End Select
end if 'Orden

Me gustaria subir el archivo mas no esta permitido y como les menciono subir todo el codigo es demasiado.

[Pachangero]

Saludos

Por eso hago mención si alguno tiene otra manera de como hacer una actualización se lo agradecere mucho puesto que con condiciones es demasiado largo aunque si funciona porque ya lo probe pero no es optimo.

[u_goldman]

Y que problema te da? en realidad para esto se ocupan los queries dinamicos, veo que las sentencias son las mismas solo cambia un campo, dependiendo de un parametro? no le revise 100% porque es demasiado largo el post, pero una idea es hacerlo asi:

Tienes un query basico:

param = 0
sql = "SELECT campo1, campo2, campo3 FROM tabla"

'Si llega este valor, habilitaremos una busqueda
if len(request.form("buscar")) > 0 then
if param = 0 then
sql = sql & " WHERE "
param = param + 1
else
sql = sql & " AND "
end if
valor = " & request.form("buscar")
sql = sql & " campo = " & valor
end if

etc...

Solo una idea

Salu2

[Pachangero]

Saludos

El problema en si es sobre el peso, puesto que el archivo para actualizar pesa mas de 20 mb y la verdad es demasiado peso para realizar una actualización, una de mis intenciones es optimizar el archivo.

Como menciona u_goldman "las sentencias son las mismas solo cambia un campo, dependiendo de un parametro", motivo por el cual el codigo es muy extenso.

Si alguien sabe de alguna manera de como optimizarlo, se lo agradezco mucho.

No te entendi muy bien el ejemplo que pusistes, mas lo revisare con mas calma, gracias u_goldman.

[PMP]

Yo particularmente, por lo menos eso que expones, lo haría así:

Código:

Dim varUpdate
if Trim(request.form("Equipo")) <> "" then 'Equipo
	varUpdate = "equipo = '" & Trim(request.form("Equipo")) & "'"
end if

if Trim(request.form("Fecha_captura")) <> "" then 'Fecha_captura
	varUpdate = varUpdate & ", Fecha = '" & Trim(request.form("Fecha_captura")) & "'"
end if

'etc, etc, etc...

sSQL="Update TAnomalias Set " & varUpdate & "' Where Number =" & Number2 & ""

[Pachangero]

Saludos

Analizare y probare tu opcion PMP gracias.

[Pachangero]

Saludos

Gracias a todos por su apoyo, el problema quedo resuelto.

[trasgukabi]

como? tengo curiosidad!!!

[AlZuwaga]

Yo también!!!!

[Pachangero]

Saludos

Lo resolvi utilizando la sugerencia de PMP (aunque claro con unos cambios), en donde revise todos los campos, si estaban llenos se guardaba en una variable y una vez que se revisaban todos los campos se ejecutaba.

Gracias a todos por su ayuda.

[mamon]

el patiota está loco.. es imposible q pese 20 megas pes!! lo unico que seria es q todo el site esté en una misma página.. x ejemplo la página home, el formulario para inscribirse al site, la página con los productos a vender, envio de mails, etc, etc, etc.. si es asi.. estáas demasiado loco uon!!

[trasgukabi]

con todo el perdón del mundo, le voy a cantar una canción:

ala vete, ala vete, ala vete, ala vete a tomar por el culo!!!!!!!

no me las doy de sabio ni mucho menos, pero que alguien me intente engañar diciéndome que ha resuelto un problema de un fichero asp de 20 Mbs(?!¿?!¡?¿) con includes.......VAMOS, POR FAVOR!!!!!!!!!!!!!

Y si quiere callarme la boca, que ponga el fichero por ahí en descarga directa. Es que si ese fichero existe, por la gloria de mi madre, que quiero verlo.

[pedroinfante]

Si es cierto que tu archivo pesa, o pesaba, 20 MB, es porque no usas adecuadamente la lógica, ni los recursos que te ofrece el lenguaje de programacion.....


ya en una ocasion reduje un codigo con mas de 500 if's, que tenia unos cuantos miles de lineas de codigo, a unas 100 lineas de codigo, o menos....

use un par de matrices, unas cuantas variables, y un ciclo muy sencillo....
y resuelto el problema de un codigo demasiado largo!!!!!
eso lo hice en ActionScript.... pero todo depende de la logica que se use...

A mi tambien me gustaria ver el codigo completo.... debe ser asombroso!!!

[3pies]

Es que no entiendo como os podeis creer que alguien haga una página que pese 20 Gb. En uno de los primeros mensajes escribió esto: "Todavia no la pruebo porque esta pendiente terminarla."

Cojonudo. ¿Cuántos meses para preparar esa página?. ¿2, 3, 4, 18, 256?. ¿Y no la ha probado?. Mejor, mejor que no la pruebe, porque seguramente hay un error en la primera línea.

Igual es que confunde los Gb con los Kb, o peor aún, quizás no sean ni Gb ni Kb, posiblemente sean gramos, metros cúbicos, o incluso litros (de alcohol, claro).

[Pachangero]

Saludos

Se nota que algunos toman las cosas por broma y otros no, pero lo bueno es que la gente que si lo tomo enserio logro ayudar a solucionarlo.

Exacto estaba mal el planteamiento mas una vez que se analizo se logro corregir, no me pondre a discutir por cosas sin sentido, mas si dire que la página pesaba mas de 20 Mb.

Gracias a los que en realidad me ayudaron.

[mariano_donati]

No puedo creer algunas de las cosas que estuve leyendo... 20 mb?.... no lo creo amigo. Y si no haz lo que dijo trasgukabi y callanos la boca a todos. Además otra cosa, Pachangero inició este post diciendo "será normal que una página ASP tenga 20 mb?", hasta cualquier inexperto en esto de ASP sabe que una pagina sola es imposible que tenga 20 mb, por eso, esa pregunta que has tirado no es lógica para alguien que dice haber arreglado un archivo ASP de 20 mb.
Si quieres taparme la boca, no quiero palabras, sino el fichero ASP para que todos tengamos acceso, si es que existe, a semejante joya de la programación.
No es nada personal Pachangero, pero tampoco es cuestion de andar tomandonos el pelo.
Saludos.

[mariano_donati]

Bueno, el post anterior lo escribi antes de leer todos los mensajes, pero mi opinion cambio. Si antes le daba una remota chance a Pachangero para que muestre el codigo y nos sorprenda a todos, luego de leer todos los mensajes no tengo ni esa esperanza. No existe Pachangero lo que tu dices que has hecho. Es imposible!!. Y si piensas que nos vamos a tragar que has hecho un codigo de 120.000 lineas, solo por poner en el post, cuantas? 200 habran sido?, estas equivocado. Esas 200 lineas debe ser todo lo que tienes.
Y no sigo mas porque me parece que le estoy dedicando mucho tiempo a semejante mentira.

[Neuron_376]

Creo que ya han sido muchos mensajes innecesarios para esto, no creen, pachanguero acepto que estaba mal su logica de programacion, no es eso suficiente ya, como para dejar de opinar tonterias ??? ...

Imaginen esto:

1. Como imprimirian una cadena mil veces sin un for ?????

2. Como harian una consulta que regresa ID entre 1 y 5000 si no conocen el > < y los rangos ?????

3. Que pasaria si en una sola pagina programan todo su titio ????

Es sencillo, pachanguero ya acepto que planteo mal su problema y que lo hizo mal, entonces que mas quieren??? ... creo que la ayuda que necesitaba ya se le dio y dio gracias por eso... entonces opino que dejen de estar fastidiando ...

NOTA: Lo digo en buena onda, porque enfada ver tantos mensajes sin sentido para un asunto resulelto... preocupemonos por los demas casos que aun no tines solución...

Y no es por defender ni atacar a nadie... pero no exageren en algo tan trivial...

Suerte a todos!!!

[trasgukabi]

Neuron, ese no es el problema. el problema es que nos tomen el pelo diciéndonos que "por ahí existe un fichero ASP que pesa 20 Mb". Por mucha lógica que hayas dejado de meter en esa página, el programarla hasta que pese 20 Mbs es algo COLOSAL (Por no decir inadecuadísimo, fuera de toda razón y de cualquier norma de programación). Por eso, y sólo por eso, quisiera ver con mis propios ojos esa obra de arte (en ningún momento he tratado de desdecir a Pachangero, es sólo que me resulta muy difícil hacerme a la idea de semejante fichero).

ala prendas, buen rollito

[Ramonkill]

Digo yo si metes includes de todas formas lo que ocupa el include es una linea de codigo. Asi que aunque tuvieras toda tu pagina en una sola si es con includes no pesaria junto con el include en el ordenador solo se imprimirian las lineas en el html que manda al cliente. Yo suelo hacer mis web en 2 o 3 paginas porque va con includes lo demas pero vamos 20 megas no se lo cree nadie. Habria que buscar en los bytes que graba cada letra un archivo asp y contar pero vamos ni 120000 lineas ocuparan 20 megas.
Yo tengo gran curiosidad de verlo. Lo menos que puedes hacer si es cierto que en este foro te han ayudado es pegar el codigo, bueno pegarlo no poner un link, jaja.
Y sino admite que has mentido.
saludos.

[Pachangero]

Saludos

Ramonkill subir el codigo completo de la pagina que tenia un mal planteamiento seria ocupar espacio a lo puro tonto.

Y trasgukabi el fichero ya cambio como podras suponer, y como le comento a Ramonkill seria una tonteria subirlo.

Nada mas dejo en claro que el archivo ya no existe porque se les hicieron los cambios adecuados y para solucionarlo pueden utilizar el método sugerido por PMP

Código:

Dim varUpdate
if Trim(request.form("Equipo")) <> "" then 'Equipo
	varUpdate = "equipo = '" & Trim(request.form("Equipo")) & "'"
end if

if Trim(request.form("Fecha_captura")) <> "" then 'Fecha_captura
	varUpdate = varUpdate & ", Fecha = '" & Trim(request.form("Fecha_captura")) & "'"
end if

'etc, etc, etc...

sSQL="Update TAnomalias Set " & varUpdate & "' Where Number =" & Number2 & ""

Hasta luego y nuevamente gracias a todos los que me ayudaron

[Myakire]

Solo por curiosidad y sin afán de molestar ¿cuánto pesa ahora?

Y otra cosa de la que me interesaría saber tu experiencia (este caso puede ser más valioso de lo que otros creen)........¿que tanto te afectaba en el rendimiento al procesar un archivo tan grande (error de tiempo, de colgaba el IIS)?

[orharo2003]

Bueno pues es se volvio una tema muy polemico !!!!!!

[Pachangero]

Saludos

Myakire el archivo pesa 21.4 Kb y no me molestas.

Pues en si, mi experiencia en ASP es de apenas 4 meses.

El error principal que tenia era sobre el tiempo de proceso, (tardaba mucho ocasionando lentitud cuando se realizaba el proceso y en cierto momento desesperaba al usuario), ademas de saturar la memoria del equipo.