Ver código fuente



Esta es la rutina que utilizo en este portal para ver los códigos fuentes de los archivos que contienen asp.

Código fuente de 'Ver código fuente.asp'

<html>
<head>
<title>Código fuente - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 9pt">
<p align="center"><b>Ver código fuente</b></p>
<br><br>
Esta es la rutina que utilizo en este portal para ver los códigos fuentes de los archivos que contienen asp.
</p>
<% @LANGUAGE="VBSCRIPT" %><%
' Muestra el código ASP coloreando los comentarios en otro color

Dim oFSO, oFich
Dim cadena, cadenatemp
Dim I
Dim nomfich
Dim bASP, bHTML, bContinuar

'Se le puede pasar como parámetro, por ejemplo 
'http://loquesea\Ver código fuente.asp?nomfich=Ver codigo fuente.asp
'nomfich=CStr(Request.QueryString("nomfich"))

'O especificar directamente como en este ejemplo
nomfich="Ver código fuente.asp"

bContinuar=True
bASP=False
bHTML=False


if nomfich <> "" then

' Comenzamos
	set oFSO=Server.CreateObject("Scripting.FileSystemObject")
	on error resume next

	'Aquí el fichero 
	set oFich = oFSO.OpenTextFile(server.mappath(nomfich))
	
	Response.Write "<H3>Código fuente de '" & nomfich & "'</H3>"
	Response.Write "<pre>" & VbCrLf
	Response.Write("<FONT SIZE=""2"">")
	

	' Itero sobre el archivo
	do while not oFich.AtEndOfStream and bContinuar
		cadena=oFich.Readline
		cadena=Server.HTMLEncode(cadena)
		if InStr(1, cadena, "&lt;!--FIN DEL SCRIPT--&gt;") then
			bContinuar=False
		else
		' No imprimo includes
		if InStr(1, cadena, "&lt;!--#include") then
			cadena=""
		end if
		
		if InStr(1, cadena, "'") then
			' Imprime comentarios de ASP en verde (solo los que esten en nueva linea)
			Response.Write("<FONT COLOR=green>"&cadena&"</FONT>" & VbCrLf)
		
		elseif InStr(1, cadena, "&lt;!--") then

			' Imprime comentarios de HTML en verde (solo los que esten en nueva linea)
			Response.Write("<FONT COLOR=green>"&cadena&"</FONT>" & VbCrLf)

		else
			' Imprime la línea normal
			Response.Write("<FONT COLOR=#0000FF>")
			Response.Write (cadena & VbCrLf)
			Response.Write("</FONT>")
			bASP=True
		end if
		end if
	loop

		Response.Write("</FONT>")
	Response.Write("</pre>" & VbCrLf )

oFich.Close
set oFich=nothing
set oFSO=nothing

end if

%>