MONTON DE FUNCIONES! Código PHP:
<%
REM INC_FUNCIONES_BASICAS.ASP
REM VERSION 1.1
REM 20051212
REM 20061017
REM escribe(str)
REM imprime(str)
REM mensaje(txt)
REM imprime_xml(xml_str)
REM termina()
REM cierra_y_recarga()
REM cierra_ventana()
REM redirecciona(url,target)
REM imprime_variables_del_form()
REM Imprime_Variables_servidor()
REM impide_almacenamiento_en_cache()
REM abre_xhtml(titulo,estilo)
REM cierra_xhtml()
REM configuracion_regional(region)
REM checa_error()
REM ruta_fisica_actual()
REM nombre_archivo_actual()
REM hola()
REM fuerza_dos_digitos(numero)
sub escribe(str)
response.write str & chr(10)
end sub
sub imprime(str)
escribe str & "<br>"
end sub
sub mensaje(txt)
dim aux
aux = txt
aux = replace(aux,"'","")
aux = replace(aux,"""","")
escribe "<script>"
escribe "alert(""" & aux & """)"
escribe "</script>"
end sub
sub imprime_xml(xml_str)
imprime "<textarea rows=""7"" name=""test"" cols=""70"">"& xml_str &"</textarea>"
end sub
sub termina()
response.end
end sub
sub cierra_y_recarga()
escribe "<script>" & chr(10)
escribe "window.opener.location.reload();"
escribe "window.close();"
escribe "</script>" & chr(10)
end sub
sub cierra_ventana()
escribe "<script>" & chr(10)
escribe "window.close();"
escribe "</script>" & chr(10)
end sub
sub redirecciona(url,target)
escribe "<script>"
escribe "window.open("""& url &""", """& target &""");"
escribe "</script>"
end sub
sub imprime_variables_del_form()
for each x in Request.Form
imprime "<strong>" & x & "</strong> = " & Request.Form(x)
Next
end sub
Sub Imprime_Variables_servidor()
escribe "<TABLE border=""1""><TR><TD><B>Nombre Varaible de servidor</B></TD><TD><B>Valor</B></TD></TR>"
For Each name In Request.ServerVariables
escribe "<TR><TD>" & name & "</TD><TD>" & Request.ServerVariables(name) & "</TD></TR>"
Next
escribe "</TABLE>"
end sub
sub impide_almacenamiento_en_cache()
response.buffer = true
response.expires = 0
response.expiresabsolute = now() - 1
response.addheader "pragma","no-cache"
response.addheader "cache-control","private"
response.cachecontrol = "no-cache"
end sub
sub abre_xhtml(titulo,estilo)
escribe "<meta http-equiv=""Content-Type"" content=""text/html; charset=ISO-8859-1"" />"
escribe "<html>"
escribe "<title>"& titulo &"</title>"
escribe "<link href="""& estilo &""" type=""text/css"" rel=""stylesheet"">"
escribe "<body leftmargin=""0"" rightmargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0"" onload=""window.defaultStatus='MP-NETWORK'"">"
end sub
sub cierra_xhtml()
escribe "</body>"
escribe "</html>"
end sub
Sub configuracion_regional(region)
Select Case region
Case 0
execute("session.lcid=1034") 'CL
Case 1
execute("session.lcid=1033") 'US
Case Else
execute("session.lcid=1034") CL
End Select
end Sub
sub checa_error()
if err.number <> 0 then
call mensaje("Error en tiempo de ejecucion")
call imprime("<b>Codigo Error: </b>" & err.number)
call imprime("<b>Glosa Error: </b>" & err.description)
termina
end if
end sub
function ruta_fisica_actual()
dim aux
dim arreglo
dim nombre_pagina
dim ruta_fisica
aux = Request.ServerVariables("PATH_TRANSLATED")
arreglo = split(aux,"\")
nombre_pagina = arreglo(ubound(arreglo))
ruta_fisica = replace(aux,nombre_pagina,"")
ruta_fisica_actual = ruta_fisica
end function
function nombre_archivo_actual()
dim aux
dim arreglo
dim nombre_pagina
aux = Request.ServerVariables("PATH_TRANSLATED")
arreglo = split(aux,"")
nombre_pagina = arreglo(ubound(arreglo))
nombre_archivo_actual = nombre_pagina
end function
sub hola()
call imprime("hola mundo!")
call termina
end sub
function fuerza_dos_digitos(numero)
aux = "00000" & cstr(numero)
aux = right(aux,2)
fuerza_dos_digitos = aux
end function
%>
FELIZ DIA DEL
