Includes (Solo para conocedores WebMaster)

[Ivan]

Hola !!!
Amigos, necesito su ayuda.
Lo que pasa que tengo una gran aplicación que usa muchos includes y necesito saber si se puede hacer algo asi como includes dinamicos, que no se cargen todos los que tenga en la página, si no nadamas el que necesite de todos

Muchas Gracias

(V)
('.')
(") (")
Gracias

[urjose]

lo que quieres hacer en pocas palabras es meterlos en If's?...hsta donde se, y creo que una vez El compañero Aston lo dijo....

NO SE PUEDE y si se puede pues que alguien me desmienta y no hay pex

saludos :)

[movizonio]

hasta lo que yo entiendo, no se puede.
estoy contigo urjose. :P

[jasistemas]

En efecto, no se puede, ya que, como me expliocaron en alguna ocasion... los includes se procesan en un programita ANTES que los tome el "parser" ASP, asi, al ASP llega el codigo fuente con los archivos ya incluidos.. imposible entonces hacerlos variables, pero alegrate, exite el metodo:
server.execute() que puedes usar asi, por ejemplo:

variable = "programacualquiera.asp"
server.execute(variable)

y te funcionara EXACTAMENTE (muy aproximadamente) como el INCLUDE, mas informacion?.,.. usa el buscados del foro, o mira en www.ultimateasp.com sobre los objetos de server, tambien debe haber algo en www.aspin.com

[Ivan]

Vientos !!!
GRacias, voy a probarlo como me dices con el SERVER

(V)
('.')
(") (")
Gracias

[MariHo]

Lo malo de ASP, no puedes hacer ese tipo de cosas, puedes usar un case busca en <a href='ir.asp?http://www.aspfacil.com' target='_blank'>http://www.aspfacil.com...</a>.

O puedes utilizar el PHP, si el proyecto no va avanzado, PHP si puede hacerlo.


saludos

MariHo
;¬)

[galindox]

amigo, buena parte de los servidores internet IIS tienen habilitado el windows script host que es el que permite leer y escribir archivos a traves de su obfeto fso (file system object), con este si puedes hacer includes dinamicos a traves de una rutina, el execute es otra alternativa no puedes llamar desde alli un asp pasandole parametros y aplican varias restricciones mas (revisa la ayuda del IIS) lo que te digo es lo que se, tengo una extension de ultradev que lo hace si vas a buscar por internet, busca la frase asp dynamic include
suerte

[urjose]

<a href='ir.asp?http://www.asp101.com/articles/michael/dynamicincludes/default.asp' target='_blank'>http://www.asp101.com/articles/michael/d...</a>

pues me puse a buscar

jeje

saludos :)

[Aston]

Buenísima la solución de JaSistemas. Muchas gracias y un saludo. :) ;)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Ivan]

Alguien Podria Explicarme esto??

&lt;%

'-------------------------------------------------------------
'The &quot;getFileContents&quot; function should be included at the top
'of the ASP file.
'-------------------------------------------------------------

'Declare variables to hold the content of the main page and
'the include file.
Dim strMain, strInclude

'Get the contents of the main page and pass them to the &quot;strMain&quot;
'variable.
strMain = getFileContents(&quot;maintemplate.inc&quot;)

'Test to see if the &quot;cboFile&quot; select box is being submitted. If so,
'load the requested include file. If not, load the default include.
If Request.form(&quot;cboFile&quot;) = &quot;&quot; Then
strInclude = getFileContents(&quot;includedefault.inc&quot;)
Else
strInclude = getFileContents(Request.form(&quot;cboFile&quot;))
End If

'After the proper include file contents are loaded (&quot;strInclude&quot;),
'then insert it into the main page (&quot;strMain&quot;) using the &quot;Replace&quot;
'function.
strMain = replace(strMain,&quot;&lt;!-- INCLUDE FILE HERE --&gt;&quot;,strInclude)

'Use the &quot;Response&quot; Object to &quot;Write&quot; the completed page to the client.
Response.Write strMain


(V)
('.')
(") (")
Gracias

[Ivan]

Ayuda porfavor, quiero hacer los includes dinamicos pero no sale, este es el codigo que segun me sacaria del apuro.

Function LeerArchivo(nombreArchivo)
dim fso, f, fs, contenidoArchivo
nombreArchivo = server.mapPath(nombreArchivo)
Set fso = Server.CreateObject(&quot;Scripting.FileSystemObje ct&quot;)
set f = fso.openTextFile(nombreArchivo)
contenidoArchivo = f.readall
set f = nothing
set fs = nothing
LeerArchivo = contenidoArchivo
end function

Gracias



(V)
('.')
(") (")
Gracias