Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   ASP Clásico (http://www.forosdelweb.com/f15/)
-   -   Como hacer un Include de un archivo... (http://www.forosdelweb.com/f15/como-hacer-include-archivo-553753/)

Fabu_dina 01/02/2008 18:44

Como hacer un Include de un archivo...
 
lo que necesito hacer es un include de un archivo contenido su nombre en un campo de la DB es decir:

campo... nomArchivo

nomArchivo="socio.asp?ide=222"

como se podria hacer un

<!--#include file="../../includes/&nomArchivo&&" -->

Shiryu_Libra 01/02/2008 19:32

Re: Como hacer un Include de un archivo...
 
cada usuario tiene un include??? el nombre esta guardado en una base de datos?

si esta guardado el nombre en la base de datos
Cita:

nomArchivo=RS("campo") '<--- Escribe el nombre del campo que contiene el dato o ruta
%><!--#include file="../../includes/<%=nomArchivo%>" --><%


deberia funcionar, el error que podria salir es de que no existe, pero debes fijarte bien, que la ruta de acceso sea correcta

intentalo y comenta
:adios:

u_goldman 01/02/2008 19:55

Re: Como hacer un Include de un archivo...
 
No, eso no funciona -el tag de include intenta ejecutarse antes de que pueda leer lo demas- necesitas valerte de otros medios, tal vez:

Código:

Server.Execute("ruta/"&variable&".asp")
Saludos

PosProdukcion 02/02/2008 14:14

Re: Como hacer un Include de un archivo...
 
Un truquillo:

http://www.tutores.org/?codigo=1217

este creo que es el mismo pero más explicado: http://www.aspfacil.com/articulos/includes.asp

Chory 02/02/2008 17:50

Re: Como hacer un Include de un archivo...
 
X cosas como esas me pase al PHP

Fabu_dina 03/02/2008 12:20

Re: Como hacer un Include de un archivo...
 
Muchas gracias posprodukcion

Esto fue lo que me funciono:



Function IncluirHTML(archivo)
Dim objFSO
Dim objText
Dim strPage


'Instanciamos el objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")


'Abrimos el archivo pasado como argumento
'Utilizamos "MapPath" para hallar la ruta física al archivo.

Set objText = objFSO.OpenTextFile(Server.MapPath(archivo))


'Leemos el contenido y lo devolvemos como una cadena de texto
IncluirHTML = objText.ReadAll

objText.Close
Set objText = Nothing
Set objFSO = Nothing
End Function

La forma de utilizar esta función sería:


Dim aspecto

aspecto = Response.Cookies("aspecto")

'Imprimimos el HTML que el usuario decidió
Response.Write(IncluirHTML(aspecto))


La zona horaria es GMT -6. Ahora son las 00:22.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.