<%
function bajar_archivo(ruta,nombre,donde)
select case donde
case "web":path=ruta
case "servidor":path="ht"&"tp://"&request.servervariables("server_name")&"/"&ruta
end select
set ajax=server.createobject("msxml2.XMLHTTP")
ajax.open"GET",path,false
ajax.send
binarios=ajax.responsebody
set stream=server.createobject("adodb.stream")
stream.type=1
stream.open
stream.write binarios
stream.savetofile server.mappath(nombre)
end function
function variables_servidor()
variables_servidor="<table border=1>"
for each item in request.servervariables
variables_servidor=variables_servidor&"<tr><td><b>"&item&"</b></td><td>"&replace(request.servervariables(item),vbcrlf,"<br>")&"</td></tr>"&vbcrlf
next
variables_servidor=variables_servidor&"</table>"
end function
function generar_clave(tamano)
todo=array(0,1,2,3,4,5,6,7,8,9,"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
randomize
for i=1 to tamano
generar_clave=generar_clave&todo(int(ubound(todo)*rnd))
next
end function
function calculadora(numero1,operacion,numero2)
numerico1=isnumeric(numero1)
numerico2=isnumeric(numero2)
select case numerico1
case false:calculadora="Los valores deben ser numéricos."
case else:select case numerico2
case false:calculadora="Los valores deben ser numéricos."
case else:select case operacion
case "+":calculadora=numero1+numero2
case "-":calculadora=numero1-numero2
case "*":calculadora=numero1*numero2
case "/":select case numero2
case 0:calculadora="La división no puede ser entre cero."
case else:calculadora=numero1/numero2
end select
end select
end select
end select
end function
function generar_color()
randomize
todo=array("a","b","c","d","e","f",0,1,2,3,4,5,6,7,8,9)
for i=1 to 6
color=color&todo(int(ubound(todo)*rnd))
next
generar_color="<h1><font color=#"&color&">"&color&"</font></h1>"
end function
function calcular_palabras(texto)
todo=split(texto," ")
calcular_palabras=ubound(todo)+1
end function
function fisica(path)
fisica=server.mappath(path)
end function
function todos_los_cookies()
todos_los_cookies="<table border=1>"
for each item in request.cookies
todos_los_cookies=todos_los_cookies&"<tr><td><b>"&item&"</b></td><td>"&request.cookies(item)&"</td></tr>"&vbcrlf
next
todos_los_cookies=todos_los_cookies&"</table>"
end function
function variables_session()
variables_session="<table border=1>"
for each item in session.contents
variables_session=variables_session&"<tr><td><b>"&item&"</b></td><td>"&session(item)&"</td></tr>"&vbcrlf
next
variables_session=variables_session&"</table>"
end function
function enviar_email(de,para,asunto,cuerpo)
set cdo1=server.createobject("cdo.message")
set cdo2=server.createobject("cdo.configuration")
set fields=cdo2.fields
fields.item("ht"&"tp://schemas.microsoft.com/cdo/configuration/smtpserver")="xxxx.xxxxx.com"
fields.item("ht"&"tp://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
fields.item("ht"&"tp://schemas.microsoft.com/cdo/configuration/SendUsing")=2
fields.update
cdo1.configuration=cdo2
cdo1.to=para
cdo1.from=de
cdo1.subject=asunto
cdo1.textbody=cuerpo
on error resume next
cdo1.send
if err.description<>"" then
enviar_email="No se ha enviado el e-mail:<br>"&err.description
else
enviar_email="Se ha enviado el e-mail."
end if
end function
'response.write enviar_email("Nombre","[email protected]","Prueba","ésto es una prueba") 'response.write variables_session 'Graba todas las variables session en una tabla
'response.write todos_los_cookies 'Graba todos los cookies en una tabla
'response.write fisica("carpeta/archivo.algo") 'Devuelve una ruta física
'response.write calcular_palabras("soy un programador experto") 'Devolveria 4
'response.write generar_color 'Genera un color aleatoriamente
'response.write calculadora(520,"*",999) '¿Hace falta descripción?
'response.write generar_clave(10) 'Genera una clave aleatoria, en este caso de 10 caracteres
'response.write variables_servidor 'Graba todas las variables del servidor en una tabla
call bajar_archivo("ht"&"tp://google.com/webhp?hl=es","file.html","web") 'Istrucciones; primero debemos poner la url completa del archivo a bajar. Segundo: Hay que poner el nombre de archivo reultante. Tercero: Hay que poner si la url es de la web o de nuestro servidor. En caso que sea del servidor, solo se pone así : bajar_archivo("/sitio/carpeta/Archivo.asp","archivo.html","servidor")
%>