Ejecutar archivo ASP rapidamente

[XaRoD]

En multitud de ocasiones, o por curiosidad o por cualquier otro motivo, necesitamos ejecutar rápidamente algún código, o simplemente ver que tal queda un cierto estilo en una tabla.

Para estas ocasiones puede venir bien la siguiente mini-aplicación.

Funciona de la siguiente manera.
Al cargarse veremos un cuadro de texto donde podremos escribir el código (asp, html, javascript). Dándole al botón "ejecutar" la aplicación genera un archivo de texto (con extensión .asp) e introduce en él el código que hemos escrito.

Dicho archivo se muestra en un iframe inferior y acto seguido se elimina.

Lo dicho, muy cómodo para ejecutar rápidamente sin tener que crear el archivo, guardarlo y ejecutarlo (y despues borrarlo).

Eso si, simplemente para probar curiosidades, porque si se quiere escribir "mucho" merece la pena crear nuestro archivo y guardarlo por si se ha hecho algo interesante.

La aplicación consta de un solo archivo asp al que le podeis dar el nombre que querais.

Esta idea no es mía, si no que la he cogido de www.planet-source-code.com (muy recomendable visitarlo y apuntarse a su lista de correo) y lo he modificado para que resulte más cómodo visualmente y funcione toda la aplicación en un solo archivo.

Requisitos:
-navegador que soporte iframes
-permisos de escritura en la carpeta donde se ejecute la aplicación


Ahí va:

[XaRoD]

<%
Option Explicit

Dim codigo, archivoNombre, oFso
Set oFso = Server.CreateObject("Scripting.FileSystemObje ct")

If Request.Querystring("borrar")<>&qu ot;" Then
If oFso.FileExists(server.MapPath(Request.Querystring ("borrar"))) = true then
oFso.DeleteFile server.MapPath(Request.Querystring("borrar&qu ot;))
Set oFSO = Nothing
Response.End
End If
End If

codigo = Request.Form("codigo")
archivoNombre = Request.Form("archivoNombre")

If archivoNombre = "" then
archivoNombre = DatePart("yyyy",now) & datepart("m",now) & _
datepart("d",now) & datepart("h",now) & _
datepart("n",now) & datepart("s",now) & int(rnd * 100) & ".asp"
End If

Response.Cookies("archivoNombre") = archivoNombre

If oFso.FileExists(server.MapPath(archivoNombre)) = true Then
oFso.DeleteFile server.MapPath(archivoNombre)
End If

Dim archivoNuevo
set archivoNuevo = oFso.CreateTextFile(server.MapPath(archivoNombre))
If codigo <> "" Then
archivoNuevo.write codigo
Else
archivoNuevo.write "Response.Write ""No has escrito codigo"""
End If
archivoNuevo.write vbcrlf & "<IFRAME SRC=DELETEFILE.ASP?file=" & archivoNombre & " WIDTH=0 HEIGHT=0></IFRAME>"
archivoNuevo.Close
%>
<a name="i"></a>
<FORM METHOD=POST>
CODIGO A EJECUTAR<br>
<script>
var ancho = screen.availWidth
ancho -= (ancho/28)
var alto = screen.availHeight
alto -= (alto/3)
document.write('<TEXTAREA NAME=codigo style="width: '+ancho +'px; height: '+alto +'px;">')
</script>
<% Response.Write codigo %>
</TEXTAREA>
<BR><INPUT TYPE=button VALUE=EJECUTAR onClick="this.form.action='runcode.asp#r';thi s.form.submit();"><input type=button value=SUBIR

onClick="location.href='#i'">
</FORM>
<hr>
<a name="r"></a>
RESULTADO DE CODIGO EJECUTADO<BR>
<script>
document.write('<IFRAME SRC="<%= archivoNombre %>" width="100%" style="height: '+alto+'px;" ></IFRAME>')
</script>
<IFRAME SRC="<%=request.servervariables("HTTP _REFERER")%>?borrar=<%=archivoNombre%&g t;" WIDTH=0 HEIGHT=0></IFRAME>

[XaRoD]

Perdón pero me he colado en el nombre del archivo. Llamadlo index.asp y modificad el siguiente código:

-eliminar la linea:
archivoNuevo.write vbcrlf & "<IFRAME SRC=DELETEFILE.ASP?file=" & archivoNombre & " WIDTH=0 HEIGHT=0></IFRAME>"

-modificar :
<INPUT TYPE=button VALUE=EJECUTAR onClick="this.form.action='runcode.asp#r'.... ..

por:
<INPUT TYPE=button VALUE=EJECUTAR onClick="this.form.action='index.asp#r'...... .


Así debería ir, fijaos en los espacios de interlineados del código porque no consigo que se muestre bien aquí.

Salu2