Foros del Web - Ver Mensaje Individual - Un bloque de codigo que se muestre como codigo en un textarea

CoolMac · #25 (**permalink**) 27/01/2004, 21:13

El codigo

Código:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Bannear Visitantes segun su IP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body,td,th {
	color: #FFFFFF;
}
body {
	background-color: #000000;
}
a:visited {
	color: #0099FF;
}
a:link {
	color: #FF0000;
}
.Estilo2 {
	font-family: Geneva, Arial, Helvetica, sans-serif;
	color: #3399FF;
	font-size: x-large;
	font-style: italic;
	font-weight: bold;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<script language="javascript">

//variable con el texto a mostrar
var texto = "Te agradeceriamos mucho que hicieses click en alguno de los banners o que nos linkees"
//variable con la posicion en el texto. poner siempre a 0
var pos = 0

//creo una funcion para cambiar el texto de la barra de estado
function textoEstado(){
   //incremento la posicion en 1 y extraigo el texto a mostrar en este momento.
   pos = pos + 1
   textoActual = texto.substring(0,pos)
   //pongo el texto que quiero mostrar en la barra de estado del navegador
   window.status = textoActual
   //Llamamos otra vez a esta funcion para que continue    mostrando texto
   if (pos == texto.length){
      //si hemos llegado al final, vuelvo al principio y hago un retardo superior
      pos = 0
      setTimeout("textoEstado()",1500)
   } else{
      //si no hemos llegado al final, sigo con la funcion con un retardo minimo.
      setTimeout("textoEstado()",100)
   }
}

//llamo a la función para poner el texto en movimiento
textoEstado()
</script>
</head>
<body>

<div id="Layer1" style="position:absolute; left:451px; top:101px; width:530px; height:273px; z-index:1">
  <p>Simplemente con este sencillo script en php podremos bannear visitantes segun su IP </p>
  <p>Recuerda cambiar la variable $host por la IP de tu host y $test por la IP que quieras bannear.</p>
  <p>Por favor haz click en el banner de abajo y ayudanos a seguir actualizando esta pagina web. </p>
</div>
<div id="Layer2" style="position:absolute; left:23px; top:102px; width:411px; height:285px; z-index:2">
  <form name="form1" method="post" action="">
    <textarea name="script" cols="44" rows="16" wrap="OFF" id="script" readonly>&lt;?php
<!-- Script obtenido en www.tonycoolmac.tk -->

<?php
$IP=$_SERVER["REMOTE_ADDR"];
$host = gethostbyaddr($_SERVER['REMOTE_ADDR']);
$host=Array("235.444.25.12", "216.229.45.11");
$test=$IP.".".$lh;
If(in_array($test, $host) || in_array($host, $IP)) {
header("Location: http://www.tudominio.com/pagina_expulsados.html"); }
?>


<!-- Fin script obtenido en www.tonycoolmac.tk  -->              
</textarea>
  </form>
</div>
<div align="center">
  <p class="Estilo2">Bannear visitantes segun IP </p>
  <p>Demo no disponible </p>
  <table width="967" height="288" border="0" cellpadding="0">
    <tr>
      <td height="284"><div align="left">
        </div>
      <div align="center"></div></td>
    </tr>
  </table>
  <p align="center">Demo no disponible </p>
  <p align="center">&nbsp;</p>
  <p align="center">  <p align="center"><!-- INICIO GeoPromos.com - 468x60 -- www.tonycoolmac.tk -->
<iframe src="http://www.geopromos.com/show/?158120.29425@459" frameborder="no" border="0" MARGINWIDTH="0" MARGINHEIGHT="0" SCROLLING="no" width="468" height="60">
<a href=http://www.geopromos.com/escaparate/noiframehref.asp?158120.29425 target=_blank ><img src=http://www.geopromos.com/escaparate/noiframeimg.asp?1 width=468 height=60 border=0></a>
<br><a href=http://www.geopromos.com>Programas de afiliados gestionados por Geopromos.com: ganar dinero con pago por click (CPC), sms, dialers...</a>
</iframe>
<!-- FIN GeoPromos.com - 468x60 -- www.tonycoolmac.tk -->&nbsp; </p>&nbsp;</p>
</div>
</body>
</html>

no le emboco a una en php