Untitled Document

CODIGOS JAVA, JAVA SCRIPTS, PERL, ASP Y PHP

RECOMIENDA ESTA PAGINA A UN AMIGO BODY/BODY.

<form name="eMailer">
ENVÍA ESTA PÁGINA A UN AMIGO
<br>
Indica su e-mail:
<br>
<input type="text" name="address" size="25">
<br>
<input type="button" value="Send this URL" onClick="mailThisUrl();">
</form>
<script language="JavaScript1.2">
var good;
function checkEmailAddress(field) {
// the following expression must be all on one line...
var goodEmail = field.value.match(/\b(^(\S+@).+((\.com)|(\.net)|(\.edu)|(\.mil)|(\.gov)|(\.org)|(\..{2,2}))$)\b/gi);
if (goodEmail){
good = true
} else {
alert('Por favor introduce un e-mail valido')
field.focus()
field.select()
good = false
}
}
u = window.location;
m = "Pienso que te puede interesar esta página...";
function mailThisUrl(){
good = false
checkEmailAddress(document.eMailer.address)
if (good){
// the following expression must be all on one line...
window.location = "mailto:"+document.eMailer.address.value+"?subject="+m+"&body="+document.title+" "+u;
}
}
</script>

----------------
HORA EN LA BARRA DE STATUS

-----------------------
HABRIR VENTANA CON EFECTO

<script language="JavaScript">
<!--
var ancho=100
var alto=100
var fin=300
var x=100
var y=100

----------------------------
CODIGO ASP
ENCUESTA PARA LA WEB

'---------------inicio.asp------------- '--- http://www.lawebdelprogramador --- <table border=1 CELLSPACING=0 CELLPADDING=5 WIDTH=200 bordercolor="#3a6ea5"> <tr> <td> <table border=0 CELLSPACING=0 CELLPADDING=0 WIDTH=100%> <tr> <td><font face="Arial" size=2> Crees que el programa Napster está incurriendo en alguna ley contra el mercado discográfico? <% 'Abrimos la base de datos set objBase=server.CreateObject("ADODB.Connection") set objTabla=server.CreateObject("ADODB.RecordSet") 'Servidor=Dirección de nuestro servidor 'BaseDatos=Nombre de nuestra base de datos objbase.Open "PROVIDER=SQLOLEDB;DATA SOURCE=Servidor;UID=Usuario;PWD=Password; DATABASE=BaseDatos" 'Consulta SQL Sobre la tabla Encuesta, la cual nos devuelve el primer y unico registro. set objtabla=objbase.Execute("select * from Encuesta") varsi=clng(objtabla.Fields("e_si")) varno=clng(objtabla.Fields("e_no")) 'Comprobamos que la IP del usuario sea distinta de la que hay en al base de datos ipUser=cstr(Request.ServerVariables("REMOTE_ADDR")) cor=False if ipuser=objtabla.Fields("ip") then Cor=true if Request.QueryString("Encuesta")="true" and cor=false then if Request.QueryString("Valor")="Si" then 'Aumentamos en uno el valor de si, y guardamos la IP en la Tabla varsi=varsi+1 set objtabla=objbase.Execute("UPDATE Encuesta SET e_si=" & varsi & ",ip='" & ipuser & "'") end if if Request.QueryString("Valor")="No" then 'Aumentamos en uno el valor de no, y guardamos la IP en la Tabla varno=varno+1 set objtabla=objbase.Execute("UPDATE Encuesta SET e_no=" & varno & ",ip='" & ipuser & "'") end if end if objbase.close%> <center> <%if Request.QueryString("Valor")="" and cor=false then%>  <form method=GET action="inicio.asp" id=form1 name=form1> <input type="hidden" name="Encuesta" value="true"> <table border=0 cellpadding=0 cellspacing=0 width=100%> <tr> <td align=center><font face="Arial" size=2> <input type="radio" name="Valor" Value="Si">Si <BR><input type="radio" name="Valor" Value="No">No </td>
------------------------
<script language=vbscript runat=server>

Sub Application_OnStart
Application("Activos") = 0
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
Application.Lock
Application("Activos") = Application("Activos") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("Activos") = Application("Activos") - 1
Application.Unlock
End Sub

</script>
----
Para que la gente los pueda ver pon este codigo donde quieras de la web
<P>En este momento hay <%=Application("Activos")%> usuario/s en nuestro sitio</P>
------------------------------
CONTADOR DE VISITANTES EN LA WEB
<%
'Hacemos la conexión a la BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\trabajo\db\mibd.mdb"
sql = "SELECT * FROM visitas"
RS.Open sql, oConn, 1,3
'Ahora nos fijamos si existe ya un registro.
'Si no existe lo creamos.
If RS.EOF then
oConn.Execute"INSERT INTO cuenta (hits) VALUES (1)"
'Si existe el registro se aumenta en 1 el valor.
Else
oConn.Execute"UPDATE cuenta SET hits="&(rs("hits")+1)&""
End IF
'La siguiente linea imprime la cantidad de hits.
Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("hits")&"</B>"
RS.CLose
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
--------------------
ENVIADO DE BASE DE DATOS PARA MAIL Este texto va entre <BODY> y </BODY>

<%
'Hacemos la conexión a la BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\trabajo\db\mibd.mdb"
sql = "SELECT * FROM visitas"
RS.Open sql, oConn, 1,3
'Ahora nos fijamos si existe ya un registro.
'Si no existe lo creamos.
If RS.EOF then
oConn.Execute"INSERT INTO cuenta (hits) VALUES (1)"
'Si existe el registro se aumenta en 1 el valor.
Else
oConn.Execute"UPDATE cuenta SET hits="&(rs("hits")+1)&""
End IF
'La siguiente linea imprime la cantidad de hits.
Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("hits")&"</B>"
RS.CLose
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
---------------
TIEMPO DE CARDO DE LA PAGINA WEB
CODIGO PHP
<?
# http://www.lawebdelprogramador.com
# Coge la hora actual. Tiene que estar al principio de la pagina
$InicioCarga=date("H-i-s");
#Aqui empieza nuestra pagina
#......
#qui finaliza nuestra pagina
#Coge la hora actual. Tiene que estar al final de la pagina
$FinCarga=date("H-i-s");
#la funcion SegundosDiferencia devuelve el numero de segundos entre dos horas.
$resultado=SegundosDiferencia($InicioCarga,$FinCarga);
#Mostramos los resultados.
echo "Ha tardado ".$resultado." segundos en cargar la pagina.";
function SegundosDiferencia($horaini,$horafin)
{
$horai=substr($horaini,0,2);
$mini=substr($horaini,3,2);
$segi=substr($horaini,6,2);
$horaf=substr($horafin,0,2);
$minf=substr($horafin,3,2);
$segf=substr($horafin,6,2);
$ini=((($horai*60)*60)+($mini*60)+$segi);
$fin=((($horaf*60)*60)+($minf*60)+$segf);
$dif=$fin-$ini;
return $dif;
}
?>