Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

funciones en ASP

28/05/2004 - 22:22 por Edilberto Arteaga Lopez | Informe spam
Ayuda Hacer una pregunta
Hola
deseo crear un archivo donde tenga todas las funciones mas usada en mis
paginas para reutilizar codigo y no estar escribiendo a cada rato lo mismo,
pero no le encuentro como instanciar las funciones desde otra pagina
prove con <!#include File"archivo.asp"--> pero eso no funciona ya que
segun lei solo puedo enviar codigo HTML y mis funciones estan en VBScript

Alguien sabe como hacer esto

Gracias
email Siga el debateRespuesta 7 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Franco Figun
28/05/2004 - 23:46 | Informe spam
Yo uso un asp como este:
'cerrar conexion
<%
Function cerrar
rs.close
cnn1.Close
Set rs = nothing
Set cnn1 = Nothing
end sub
%>
'convertir fecha
<%
Function convertir_fecha(ByVal fecha)
convertir_fecha = Right(Day(fecha), 2) & "/" & _
Right(Month(fecha), 2) & "/" & _
Year(fecha)
End Function
%>
'convertir hora
<%
Function convertir_hora(ByVal hora)
convertir_hora = Right(Hour(hora), 2) & ":" & _
Right(Minute(hora), 2) & ":" & _
Right(Second(hora), 2) & " AM" & _
" "
End Function
%>
'corregir caracteres
<%
FUNCTION corregircaracteres(cadena)
' corregircaracteres = REPLACE(cadena, ">", "> ")
corregircaracteres = Replace( _
Replace( _
Replace( _
Replace( _
Replace( cadena, "'", "''"), _
"<", "< "), _
">", "> "), _
"|", ""), _
"%", "")
' corregircaracteres = REPLACE(cadena, "<", "< ")
' corregircaracteres = REPLACE(cadena, "&", "& ")
END FUNCTION
%>
'corregir comillas
<%
FUNCTION corregircomillas(cadena)
corregircomillas = REPLACE(cadena, "'", "''")
END FUNCTION
%>
'e-mail no valido
<%
FUNCTION emailnoValido(email)
IF INSTR( Email, "@" ) = 0 OR INSTR( Email, "." ) = 0 THEN
emailnovalido = TRUE
ELSE
emailnovalido = FALSE
END IF
END FUNCTION
%>
'errores
<%
Sub errores()
Response.Write "1- Descripcion: "& Err.Description &"<br>."
Response.Write "2- Numero "& Err.Number &"<br>."
Response.Write "3- Source "& Err.Source &"<br>."
Response.Write "4- Helpfile "& Err.Helpfile &"<br>."
Response.Write "5- HelpContext "& Err.HelpContext &"<br>."
Response.Write "<center><a
href='javascript:history.back();'>Atras</a></center>"

End sub
%>

Luego, para "instanciar" cada funcion en paginas asp, pongo un include y
hago esto:
<!--#include file="Funciones/funciones.asp" -->
<%=function(rs("tbl"))%>

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 305336919
Yahoo MSN:
"Edilberto Arteaga Lopez" escribió en el mensaje
news:OwUP$
Hola
deseo crear un archivo donde tenga todas las funciones mas usada en mis
paginas para reutilizar codigo y no estar escribiendo a cada rato lo


mismo,
pero no le encuentro como instanciar las funciones desde otra pagina
prove con <!#include File"archivo.asp"--> pero eso no funciona ya que
segun lei solo puedo enviar codigo HTML y mis funciones estan en VBScript

Alguien sabe como hacer esto

Gracias


Respuesta Responder a este mensaje
#2 Edilberto Arteaga Lopez
29/05/2004 - 00:18 | Informe spam
Comprendo lo de la instanciarlo
!--#include file="Funciones/funciones.asp" -->

<%=function(rs("tbl"))%> Esta linea no comprendo
Saludos


"Franco Figun" escribió en el mensaje
news:%
Yo uso un asp como este:
'cerrar conexion
<%
Function cerrar
rs.close
cnn1.Close
Set rs = nothing
Set cnn1 = Nothing
end sub
%>
'convertir fecha
<%
Function convertir_fecha(ByVal fecha)
convertir_fecha = Right(Day(fecha), 2) & "/" & _
Right(Month(fecha), 2) & "/" & _
Year(fecha)
End Function
%>
'convertir hora
<%
Function convertir_hora(ByVal hora)
convertir_hora = Right(Hour(hora), 2) & ":" & _
Right(Minute(hora), 2) & ":" & _
Right(Second(hora), 2) & " AM" & _
" "
End Function
%>
'corregir caracteres
<%
FUNCTION corregircaracteres(cadena)
' corregircaracteres = REPLACE(cadena, ">", "> ")
corregircaracteres = Replace( _
Replace( _
Replace( _
Replace( _
Replace( cadena, "'", "''"), _
"<", "< "), _
">", "> "), _
"|", ""), _
"%", "")
' corregircaracteres = REPLACE(cadena, "<", "< ")
' corregircaracteres = REPLACE(cadena, "&", "& ")
END FUNCTION
%>
'corregir comillas
<%
FUNCTION corregircomillas(cadena)
corregircomillas = REPLACE(cadena, "'", "''")
END FUNCTION
%>
'e-mail no valido
<%
FUNCTION emailnoValido(email)
IF INSTR( Email, "@" ) = 0 OR INSTR( Email, "." ) = 0 THEN
emailnovalido = TRUE
ELSE
emailnovalido = FALSE
END IF
END FUNCTION
%>
'errores
<%
Sub errores()
Response.Write "1- Descripcion: "& Err.Description &"<br>."
Response.Write "2- Numero "& Err.Number &"<br>."
Response.Write "3- Source "& Err.Source &"<br>."
Response.Write "4- Helpfile "& Err.Helpfile &"<br>."
Response.Write "5- HelpContext "& Err.HelpContext &"<br>."
Response.Write "<center><a
href='javascript:history.back();'>Atras</a></center>"

End sub
%>

Luego, para "instanciar" cada funcion en paginas asp, pongo un include y
hago esto:
<!--#include file="Funciones/funciones.asp" -->
<%=function(rs("tbl"))%>

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 305336919
Yahoo MSN:
"Edilberto Arteaga Lopez" escribió en el


mensaje
news:OwUP$
> Hola
> deseo crear un archivo donde tenga todas las funciones mas usada en mis
> paginas para reutilizar codigo y no estar escribiendo a cada rato lo
mismo,
> pero no le encuentro como instanciar las funciones desde otra pagina
> prove con <!#include File"archivo.asp"--> pero eso no funciona ya que
> segun lei solo puedo enviar codigo HTML y mis funciones estan en


VBScript
>
> Alguien sabe como hacer esto
>
> Gracias
>
>


Respuesta Responder a este mensaje
#3 Franco Figun
29/05/2004 - 00:21 | Informe spam
Es como instancias o llamas a la funcion desde asp.

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 305336919
Yahoo MSN:
"Edilberto Arteaga Lopez" escribió en el mensaje
news:%
Comprendo lo de la instanciarlo
!--#include file="Funciones/funciones.asp" -->

<%=function(rs("tbl"))%> Esta linea no comprendo
Saludos


"Franco Figun" escribió en el mensaje
news:%
> Yo uso un asp como este:
> 'cerrar conexion
> <%
> Function cerrar
> rs.close
> cnn1.Close
> Set rs = nothing
> Set cnn1 = Nothing
> end sub
> %>
> 'convertir fecha
> <%
> Function convertir_fecha(ByVal fecha)
> convertir_fecha = Right(Day(fecha), 2) & "/" & _
> Right(Month(fecha), 2) & "/" & _
> Year(fecha)
> End Function
> %>
> 'convertir hora
> <%
> Function convertir_hora(ByVal hora)
> convertir_hora = Right(Hour(hora), 2) & ":" & _
> Right(Minute(hora), 2) & ":" & _
> Right(Second(hora), 2) & " AM" & _
> " "
> End Function
> %>
> 'corregir caracteres
> <%
> FUNCTION corregircaracteres(cadena)
> ' corregircaracteres = REPLACE(cadena, ">", "> ")
> corregircaracteres = Replace( _
> Replace( _
> Replace( _
> Replace( _
> Replace( cadena, "'", "''"), _
> "<", "< "), _
> ">", "> "), _
> "|", ""), _
> "%", "")
> ' corregircaracteres = REPLACE(cadena, "<", "< ")
> ' corregircaracteres = REPLACE(cadena, "&", "& ")
> END FUNCTION
> %>
> 'corregir comillas
> <%
> FUNCTION corregircomillas(cadena)
> corregircomillas = REPLACE(cadena, "'", "''")
> END FUNCTION
> %>
> 'e-mail no valido
> <%
> FUNCTION emailnoValido(email)
> IF INSTR( Email, "@" ) = 0 OR INSTR( Email, "." ) = 0 THEN
> emailnovalido = TRUE
> ELSE
> emailnovalido = FALSE
> END IF
> END FUNCTION
> %>
> 'errores
> <%
> Sub errores()
> Response.Write "1- Descripcion: "& Err.Description &"<br>."
> Response.Write "2- Numero "& Err.Number &"<br>."
> Response.Write "3- Source "& Err.Source &"<br>."
> Response.Write "4- Helpfile "& Err.Helpfile &"<br>."
> Response.Write "5- HelpContext "& Err.HelpContext &"<br>."
> Response.Write "<center><a
> href='javascript:history.back();'>Atras</a></center>"
>
> End sub
> %>
>
> Luego, para "instanciar" cada funcion en paginas asp, pongo un include y
> hago esto:
> <!--#include file="Funciones/funciones.asp" -->
> <%=function(rs("tbl"))%>
>
> FF
> www.francofigun.com.ar
> www.microsofties.com.ar
> MSN:
> UIN: 305336919
> Yahoo MSN:
> "Edilberto Arteaga Lopez" escribió en el
mensaje
> news:OwUP$
> > Hola
> > deseo crear un archivo donde tenga todas las funciones mas usada en


mis
> > paginas para reutilizar codigo y no estar escribiendo a cada rato lo
> mismo,
> > pero no le encuentro como instanciar las funciones desde otra pagina
> > prove con <!#include File"archivo.asp"--> pero eso no funciona ya


que
> > segun lei solo puedo enviar codigo HTML y mis funciones estan en
VBScript
> >
> > Alguien sabe como hacer esto
> >
> > Gracias
> >
> >
>
>


Respuesta Responder a este mensaje
#4 Edilberto Arteaga Lopez
29/05/2004 - 00:55 | Informe spam
si mi funcion se llama enviar_correo
la instansia seria
<%=function(enviar_correo(direccio))%>

Saludos
"Franco Figun" escribió en el mensaje
news:
Es como instancias o llamas a la funcion desde asp.

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 305336919
Yahoo MSN:
"Edilberto Arteaga Lopez" escribió en el


mensaje
news:%
> Comprendo lo de la instanciarlo
> !--#include file="Funciones/funciones.asp" -->
>
> <%=function(rs("tbl"))%> Esta linea no comprendo
> Saludos
>
>
> "Franco Figun" escribió en el mensaje
> news:%
> > Yo uso un asp como este:
> > 'cerrar conexion
> > <%
> > Function cerrar
> > rs.close
> > cnn1.Close
> > Set rs = nothing
> > Set cnn1 = Nothing
> > end sub
> > %>
> > 'convertir fecha
> > <%
> > Function convertir_fecha(ByVal fecha)
> > convertir_fecha = Right(Day(fecha), 2) & "/" & _
> > Right(Month(fecha), 2) & "/" & _
> > Year(fecha)
> > End Function
> > %>
> > 'convertir hora
> > <%
> > Function convertir_hora(ByVal hora)
> > convertir_hora = Right(Hour(hora), 2) & ":" & _
> > Right(Minute(hora), 2) & ":" & _
> > Right(Second(hora), 2) & " AM" & _
> > " "
> > End Function
> > %>
> > 'corregir caracteres
> > <%
> > FUNCTION corregircaracteres(cadena)
> > ' corregircaracteres = REPLACE(cadena, ">", "> ")
> > corregircaracteres = Replace( _
> > Replace( _
> > Replace( _
> > Replace( _
> > Replace( cadena, "'", "''"), _
> > "<", "< "), _
> > ">", "> "), _
> > "|", ""), _
> > "%", "")
> > ' corregircaracteres = REPLACE(cadena, "<", "< ")
> > ' corregircaracteres = REPLACE(cadena, "&", "& ")
> > END FUNCTION
> > %>
> > 'corregir comillas
> > <%
> > FUNCTION corregircomillas(cadena)
> > corregircomillas = REPLACE(cadena, "'", "''")
> > END FUNCTION
> > %>
> > 'e-mail no valido
> > <%
> > FUNCTION emailnoValido(email)
> > IF INSTR( Email, "@" ) = 0 OR INSTR( Email, "." ) = 0 THEN
> > emailnovalido = TRUE
> > ELSE
> > emailnovalido = FALSE
> > END IF
> > END FUNCTION
> > %>
> > 'errores
> > <%
> > Sub errores()
> > Response.Write "1- Descripcion: "& Err.Description &"<br>."
> > Response.Write "2- Numero "& Err.Number &"<br>."
> > Response.Write "3- Source "& Err.Source &"<br>."
> > Response.Write "4- Helpfile "& Err.Helpfile &"<br>."
> > Response.Write "5- HelpContext "& Err.HelpContext &"<br>."
> > Response.Write "<center><a
> > href='javascript:history.back();'>Atras</a></center>"
> >
> > End sub
> > %>
> >
> > Luego, para "instanciar" cada funcion en paginas asp, pongo un include


y
> > hago esto:
> > <!--#include file="Funciones/funciones.asp" -->
> > <%=function(rs("tbl"))%>
> >
> > FF
> > www.francofigun.com.ar
> > www.microsofties.com.ar
> > MSN:
> > UIN: 305336919
> > Yahoo MSN:
> > "Edilberto Arteaga Lopez" escribió en el
> mensaje
> > news:OwUP$
> > > Hola
> > > deseo crear un archivo donde tenga todas las funciones mas usada en
mis
> > > paginas para reutilizar codigo y no estar escribiendo a cada rato lo
> > mismo,
> > > pero no le encuentro como instanciar las funciones desde otra pagina
> > > prove con <!#include File"archivo.asp"--> pero eso no funciona ya
que
> > > segun lei solo puedo enviar codigo HTML y mis funciones estan en
> VBScript
> > >
> > > Alguien sabe como hacer esto
> > >
> > > Gracias
> > >
> > >
> >
> >
>
>


Respuesta Responder a este mensaje
#5 Javier
29/05/2004 - 00:57 | Informe spam
No entiendo cual sea tu problema..yo tengo archivos .inc
en donde tengo procedimientos y funciones escritas en
VBscript y ningún problema.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida