funciones en ASP

28/05/2004 - 22:22 por Edilberto Arteaga Lopez | Informe spam
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
 

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


Preguntas similares