Avatar Image
Moderador
Moderador
Hola quiero instalar una lista de correos en mi@, esta en php y no tengo la más mínima idea de este lenguaje. Tengo que editar los archivos "install"

cuyo código es este:

<?php
#######################################################################
# JLM ListaDeCorreo v0.1 - Por jlmnetwork.com (16/02/2002) #
# =================================================================== #
# Copyright 2002 por Jorge Luis Martinez Mazuera #
# (jorge@jlmnetwork.com)<http://www.jlmnetwork.com/> #
# =================================================================== #
# #
# Este Script Fue Creado Por Jorge Luis Martinez Mazuera de Bogota, #
# Colombia. #
# #
# Si Pones Este Archivo En Tu Pagina, Te Pido Conservar El Copyright. #
#######################################################################

#############################################################################
# MODIFICA LAS SIGUIENTES VARIABLES DE ACUERDO A TUS NECESIDADES #
#############################################################################

//Login Para Conectarnos Con El Host
$loginBaseDatos = "jlmnetwork";

//Password Para Conectarnos Con El Host
$passwordBaseDatos = "";

//Nombre De La Base De Datos A Seleccionar
$nombreBaseDatos = "jlmnetwork_db";

#############################################################################
#############################################################################

function ConectarseBaseDatos()
{
global $loginBaseDatos,$passwordBaseDatos,$nombreBaseDatos;

if (!($link=mysql_connect("localhost","$loginBaseDatos","$passwordBaseDatos&quot))
{
echo "No Se Ha Podido Conectar A La Base de Datos, Revise El Password O Login!.";
exit();
}
if (!mysql_select_db("$nombreBaseDatos",$link))
{
echo "Error Seleccionando La Base De Datos!.";
exit();
}
return $link;
}

$link = ConectarseBaseDatos();

// CREAMOS LA TABLA
$sql = "CREATE TABLE listaCorreo (";
$sql .= "id INT NOT NULL AUTO_INCREMENT, ";
$sql .= "Email CHAR(50), ";
$sql .= "KEY (id) ) ";

if (@mysql_db_query($nombreBaseDatos, $sql, $link))
{
echo "<h2 align='center'>La tabla se ha creado con éxito, Ya Puede Borrar Este Archivo</h2>";
}
else
{
echo "<h2 align='center'>No se ha podido crear la tabla</h2>";
}

y ListaCorreo cuyo código es este:

<?php

#######################################################################
# JLM ListaDeCorreo v0.1 - Por jlmnetwork.com (16/02/2002) #
# =================================================================== #
# Copyright 2002 por Jorge Luis Martinez Mazuera #
# (jorge@jlmnetwork.com)<http://www.jlmnetwork.com/> #
# =================================================================== #
# #
# Este Script Fue Creado Por Jorge Luis Martinez Mazuera de Bogota, #
# Colombia. #
# #
# Si Pones Este Archivo En Tu Pagina, Te Pido Conservar El Copyright. #
#######################################################################

#############################################################################
# MODIFICA LAS SIGUIENTES VARIABLES DE ACUERDO A TUS NECESIDADES #
#############################################################################

//Nombre Que Quieres Aparesca En El Correo Como Remitente.
$nombre = "Jorge Luis";

//Tu Email, Sera Usado Como Nombre De Usuario Para Las Opciones De Administracion.
$emailWebmaster = "jorge@jlmnetwork.com";

//Escoje Un Password Para Las Opciones De Administracion.
$passwordAD = "123456";

//Login Para Conectarnos Con El Host
$loginBaseDatos = "jlmnetwork";

//Password Para Conectarnos Con El Host
$passwordBaseDatos = "807780";

//Nombre De La Base De Datos A Seleccionar
$nombreBaseDatos = "jlmnetwork_db";

//Direccion De La Pagina Principal De Su Web
$direccionWeb = "http://www.jlmnetwork.com/";

//Aqui Escribes La Firma, Que Ira Al Final Del Email Que Se Envia A Los Usuarios.
//Para Saltos De Linea Utiliza \n
$firma = "Jorge Luis\njorge@jlmnetwork.com";

//Direccion Donde Se Aloja El Script, Si Es En http://www.servidor.com/cuenta/listaCorreo.php.
//Solamente escribimos http://www.servidor.com/cuenta/
$direccionScript = "http://membres.lycos.fr/jlmnetwork/PHPScripts/Pruebas/";

#############################################################################
#############################################################################
#############################################################################
#############################################################################
#############################################################################
#############################################################################

function ConectarseBaseDatos()
{
global $loginBaseDatos,$passwordBaseDatos,$nombreBaseDatos;

if (!($link=mysql_connect("localhost","$loginBaseDatos","$passwordBaseDatos&quot))
{
echo "No Se Ha Podido Conectar A La Base de Datos, Revise El Password O Login!.";
exit();
}
if (!mysql_select_db("$nombreBaseDatos",$link))
{
echo "Error Seleccionando La Base De Datos!.";
exit();
}
return $link;
}
?>

<HTML>
<HEAD>
<TITLE>JLM ListaDeCorreo V 0.1 - Por jlmnetwork.com</TITLE>
<META NAME="GENERATOR" CONTENT="ListaDeCorreo v 0.1 - http://www.jlmnetwork.com">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META NAME="ROBOTS" CONTENT="noindex, nofollow">
</HEAD>
<STYLE>
A
{
color:"Black";
text-decoration:none;
font-family:Tempus Sans ITC:font-size:12px
}
A:active
{
color:"Red";
}
A:hover
{
color:"Black";
text-decoration:none
}
A:visited
{
color:"Black";
}
</STYLE>
<BODY>
<?
//Si Vamos A Agregar Un Nuevo Usuario.
if($accion == "suscribir&quot
{
//Conectamos Con La Base De Datos.
$link=ConectarseBaseDatos();
$result = mysql_query("SELECT Email FROM listaCorreo WHERE Email='$email'",$link);
if($row = mysql_fetch_array($result))
{
?>
<SCRIPT LANGUAGE="javascript">
alert("EMAIL YA EXISTENTE EN LA LISTA DE CORREO&quot;
top.location = "<? echo "$direccionWeb"; ?>";
</SCRIPT>
<?
}
else
{
//Guardaremos La Informacion En La Tabla De listaCorreo Temporales.
mysql_query("insert into listaCorreo (Email) values ('$email')",$link);

//Direccion Para Borrarse De La Lista De Correo
$direccionBorrarEmail = "$direccionScript";
$direccionBorrarEmail .= "listaCorreo.php?accion=cancelar&email=$email";

//Enviamos El Email Al Usuario Informandole Que Ha Sido Suscrito.
mail($email, "Suscripcion Lista De Correo", "Hola!,\n\nEste Email Es Generado Automaticamente Para Informarte Que Estas Has Sido Suscrito A La Lista De Correo De $direccionWeb.\n\n$firma\nEsta Suscripcion Es Voluntaria, Y Su Correo Electronico Puede Ser Sacado De La Lista En Cualquier Momento Con Solo Dar Click En El Siguiente Enlace:\n$direccionBorrarEmail","FROM: $nombre <$emailWebmaster>&quot;

//Direccion Administrar Lista
$direccionAdministrarLista = "$direccionScript";
$direccionAdministrarLista .= "listaCorreo.php?accion=administrar";

//Informamos al Webmaster Que Tenemos Un Nuevo Usuario De La Lista De Correo.
mail($emailWebmaster, "Nueva Suscripcion Lista De Correo", "Hola!,\n\nUn Nuevo Usuario Cuyo Email Es: $email, Se Ha Suscrito A La Lista De Correo.\n\nRecueda Que En Cualquier Momento Puedes Dirigirte A La Seccion De Administracion Con Solo Dar Click En El Siguiente Enlace:\n$direccionAdministrarLista\n\n$firma\n\nSi Deseas Borrar Esta Persona Directamente Da Click En El Siguiente Enlace:\n$direccionBorrarEmail","FROM: $nombre <$emailWebmaster>&quot;
?>
<SCRIPT LANGUAGE="javascript">
alert("Su Email A Sido Suscrito, En Pocos Minutos Recibira Confirmacion En Su Casilla De Correo Electronico, Ahora Sera Dirigido A La Pagina Principal De Nuevo&quot;
top.location = "<? echo "$direccionWeb"; ?>";
</SCRIPT>
<?
}
//Liberamos La Memoria, Cerramos La Conexion Con La Base De Datos.
mysql_free_result($result);
mysql_close($link);
}
//Si La Accion Es La De Cancelar.
else if($accion == "cancelar&quot
{
//Conectamos Con La Base De Datos.
$link=ConectarseBaseDatos();

//Obtenemos Resultados.
$result = mysql_query("SELECT * FROM listaCorreo WHERE Email='$email'",$link);
$row = mysql_fetch_array($result);
$ID = $row["id"];
mysql_free_result($result);

//Guardaremos La Informacion En La Tabla De listaCorreo Temporales.
mysql_query("delete from listaCorreo where id=$ID",$link);

//Liberamos La Memoria, Cerramos La Conexion Con La Base De Datos.
mysql_close($link);

//Enviamos El Email Al Usuario Informandole Que Ha Sido Borrado.
mail($email, "Su Suscripcion Ha Sido Cancelada", "Hola!,\n\nEste Email Es Generado Automaticamente Para Informarte Que Tu Email Ha Sido Borrado De Nuestra Lista De Correo En $direccionWeb.\n$firma","FROM: $nombre <$emailWebmaster>&quot;
//Informamos al Webmaster Que Tenemos Un Desertot.
mail($emailWebmaster, "Usuario $email Ha Sido Borrado", "Hola!,\n\nEl Usuario Cuyo Email Es: $email Ha Sido Borrado De La Lista De Correo, Tal Vez Por Usted O Por El Usuario Mismo.\n\nRecueda Que En Cualquier Momento Puedes Dirigirte A La Seccion De Administracion Con Solo Dar Click En El Siguiente Enlace:\n$direccionScriptlistaCorreo.php?accion=administrar\n\n$firma","FROM: $nombre <$emailWebmaster>&quot;
?>
<SCRIPT LANGUAGE="javascript">
alert("Su Email A Sido Borrado De La Lista De Correo, En Pocos Minutos Recibira Confirmacion En Su Casilla De Correo Electronico, Ahora Sera Dirigido A La Pagina Principal De Nuestra Web&quot;
top.location = "<? echo "$direccionWeb"; ?>";
</SCRIPT>
<?
}
//Si Es Administrar.
if($accion == "administrar&quot
{
if($passwordAD == $password && $emailWebmaster == $email)
{
if($subAccion =="&quot
{
?>
<BR>
<BR>
<CENTER>
<TABLE WIDTH="500" CELLSPACING="1" CELLPADDING="1" ROWSSPACING="1" ROWSPADDING="1" STYLE="border:gray 3px outset">
<TR>
<TD BGCOLOR="#BBBBBB" STYLE="BORDER:gray 2px outset">
<CENTER><B>Administracion Lista De Correo</B></CENTER>
</TD>
</TR>

<TR>
<TD BGCOLOR="#CCCCCC" STYLE="border-bottom:gray 1px solid">
<A HREF="listaCorreo.php?accion=administrar&subAccion=enviarEmail&password=<? echo"$password"; ?>&email=<? echo"$email"; ?>">
.ENVIAR EMAIL A LOS USUARIOS.
</A>
<BR>
<A HREF="listaCorreo.php?accion=administrar&subAccion=borrarUsuarios&password=<? echo"$password"; ?>&email=<? echo"$email"; ?>">
.BORRAR USUARIOS.
</A>
</TD>
</TR>
</TABLE>
<BR>
<BR>
<CENTER>
<FONT SIZE=2>
ListaDeCorreo v 0.1 - Creada Por Jorge Luis Martinez Mazuera
<BR>
http://www.jlmnetwork.com/
<BR>
Bogota, Colombia
</FONT>
</CENTER>
</BODY>
</HTML>
<?
}
if($subAccion =="borrarUsuarios&quot
{
?>
<BR>
<BR>
<CENTER>
<TABLE WIDTH="500" CELLSPACING="1" CELLPADDING="1" ROWSSPACING="1" ROWSPADDING="1" STYLE="border:gray 3px outset">
<TR>
<TD BGCOLOR="#BBBBBB" STYLE="BORDER:gray 2px outset">
<CENTER><B>Administracion Lista De Correo - Borrado De Usuarios</B></CENTER>
</TD>
</TR>
<TR>
<TD BGCOLOR="#BBBBBB" STYLE="BORDER:gray 2px outset">
<CENTER><B>De Click Sobre El Email Para Borrarlo</B></CENTER>
</TD>
</TR>
<TR>
<TD BGCOLOR="#BBBBBB" STYLE="BORDER-BOTTOM:gray 2px outset">
<A HREF="listaCorreo.php?accion=administrar&password=<? echo"$password"; ?>&email=<? echo"$email"; ?>">
.VOLVER.
</A>
</TD>
</TR>

<?
if($emailABorrar != "&quot
{
//Conectamos Con La Base De Datos.
$link=ConectarseBaseDatos();

//Obtenemos Resultados.
$result = mysql_query("SELECT * FROM listaCorreo WHERE Email='$emailABorrar'",$link);
$row = mysql_fetch_array($result);
$ID = $row["id"];
mysql_free_result($result);

//Guardaremos La Informacion En La Tabla De listaCorreo Temporales.
mysql_query("delete from listaCorreo where id=$ID",$link);

//Liberamos La Memoria, Cerramos La Conexion Con La Base De Datos.
mysql_close($link);
?>
<TR>
<TD BGCOLOR="#BBBBBB" STYLE="BORDER-BOTTOM:gray 2px outset">
.El Email <FONT COLOR=RED><B><? echo "$emailABorrar"; ?></B></FONT> A Sido Borrado.
</TD>
</TR>
<?
}
?>
<TR>
<TD BGCOLOR="#CCCCCC" STYLE="border-bottom:gray 1px solid">
<?
//CONTECTAMOS CON LA BASE DE DATOS
$link=ConectarseBaseDatos();
//OBTENEMOS LOS EMAILS
$result=mysql_query("SELECT * FROM listaCorreo",$link);
while ( $row = mysql_fetch_array($result) )
{
$rowW = $row["Email"];
?>
<BR>
<A HREF="listaCorreo.php?accion=administrar&subAccion=borrarUsuarios&password=<? echo"$password"; ?>&email=<? echo"$email"; ?>&emailABorrar=<? echo"$rowW"; ?>">
<? echo "$rowW"; ?>
</A>
<?
}
mysql_free_result($result);
mysql_close($link);
?>
</TD>
</TR>
</TABLE>
<BR>
<BR>
<CENTER>
<FONT SIZE=2>
ListaDeCorreo v 0.1 - Creada Por Jorge Luis Martinez Mazuera
<BR>
http://www.jlmnetwork.com/
<BR>
Bogota, Colombia
</FONT>
</CENTER>
</BODY>
</HTML>
<?
}
if($subAccion =="enviarEmail&quot
{
?>
<BR>
<BR>
<CENTER>
<TABLE WIDTH="500" CELLSPACING="1" CELLPADDING="1" ROWSSPACING="1" ROWSPADDING="1" STYLE="border:gray 3px outset">
<TR>
<TD BGCOLOR="#BBBBBB" STYLE="BORDER:gray 2px outset">
<CENTER><B>Administracion Lista De Correo</B></CENTER>
</TD>
</TR>
<TR>
<TD BGCOLOR="#BBBBBB" STYLE="BORDER-BOTTOM:gray 2px outset">
<A HREF="listaCorreo.php?accion=administrar&password=<? echo"$password"; ?>&email=<? echo"$email"; ?>">
.VOLVER.
</A>
</TD>
</TR>
<TR>
<TD BGCOLOR="#CCCCCC" STYLE="border-bottom:gray 1px solid">
<CENTER><B>.ENVIAR EMAIL A LOS USUARIOS.
</TD>
</TR>
<?
if($mensaje != "" && $asunto != "&quot
{
//CONTECTAMOS CON LA BASE DE DATOS
$link=ConectarseBaseDatos();
//OBTENEMOS LOS EMAILS
$result=mysql_query("SELECT * FROM listaCorreo",$link);
while ( $row = mysql_fetch_array($result) )
{
$roWW = $row["Email"];
$direccionBorrarLista = "$direccionScript";
$direccionBorrarLista .= "listaCorreo.php?accion=cancelar&email=$roWW";
//Informamos al Webmaster Que Tenemos Un Nuevo Usuario De La Lista De Correo.
mail($roWW, "$asunto", "$mensaje\n\n$firma\n\nSi Deseas Borrar Borrarte De La Lista De Correo:\n$direccionBorrarLista","FROM: $nombre <$emailWebmaster>&quot;
}
mysql_free_result($result);
mysql_close($link);
?>
<TR>
<TD BGCOLOR="#CCCCCC" STYLE="border-bottom:gray 1px solid">
<CENTER><B>.EMAILS ENVIADOS CON EXITO.</b></center>
</TD>
</TR>

<?
}
?>
<TR>
<TD BGCOLOR="#CCCCCC" STYLE="border-bottom:gray 1px solid">
<FORM ACTION="listaCorreo.php" METHOD=POST>
<INPUT TYPE="HIDDEN" NAME="accion" VALUE="administrar">
<INPUT TYPE="HIDDEN" NAME="subAccion" VALUE="enviarEmail">
<INPUT TYPE="HIDDEN" NAME="password" VALUE="<? echo"$password"; ?>">
<INPUT TYPE="HIDDEN" NAME="email" VALUE="<? echo"$email"; ?>">
Asunto : <INPUT TYPE="Text" NAME="asunto" SIZE=40>
<BR>
Mensaje:
<BR>
<TEXTAREA COLS=30 ROWS=8 NAME="mensaje"></TEXTAREA>
<BR>
<INPUT TYPE=submit VALUE=enviar>
</FORM>
</TD>
</TR>
</TABLE>
<BR>
<BR>
<CENTER>
<FONT SIZE=2>
ListaDeCorreo v 0.1 - Creada Por Jorge Luis Martinez Mazuera
<BR>
http://www.jlmnetwork.com/
<BR>
Bogota, Colombia
</FONT>
</CENTER>
</BODY>
</HTML>
<?
}
}
else
{
?>
<BR>
<BR>
<BR>
<BR>
<CENTER>
<TABLE WIDTH="500" CELLSPACING="1" CELLPADDING="1" ROWSSPACING="1" ROWSPADDING="1" STYLE="border:gray 3px outset">
<TR>
<TD BGCOLOR="#BBBBBB" STYLE="BORDER:gray 2px outset">
<CENTER><B>Administracion Lista De Correo</B></CENTER>
</TD>
</TR>

<TR>
<TD BGCOLOR="#CCCCCC" STYLE="border-bottom:gray 1px solid">
<FORM ACTION="listaCorreo.php">
<INPUT TYPE="HIDDEN" NAME="accion" VALUE="administrar">
Email:
<BR>
<INPUT TYPE="Text" NAME="email" SIZE=30>
<BR>
Contraseña:
<BR>
<INPUT TYPE="password" NAME="password" SIZE=30>
<BR>
<INPUT TYPE="submit" VALUE="Entrar">
</FORM>
</TD>
</TR>
</TABLE>
<BR>
<BR>
<CENTER>
<FONT SIZE=2>
ListaDeCorreo v 0.1 - Creada Por Jorge Luis Martinez Mazuera
<BR>
http://www.jlmnetwork.com/
<BR>
Bogota, Colombia
</FONT>
</CENTER>
</BODY>
</HTML>
<?
}
}
else
{
?>
<SCRIPT>
top.location = "<? echo"$direccionWeb"; ?>";
</SCRIPT>
<?
}
?>

Otra cosa en el archivo leame sale esto:

Modifique El Archivo install.php y listaCorreo.php De Acuerdo A Sus Necesidades, Solo Necesita Modificar Las Variables Descritas En Cada Archivo, Luego Subalos, Ejecute install.php, Despues De Crear La Tabla Con El install.php Borrelo del Servidor.

Lo Importante A Saber:

Para Suscribir:

<FORM ACTION=listaCorreo.php>
<INPUT TYPE="hidden" NAME=accion VALUE=suscribir>
Email:
<BR>
<INPUT TYPE="Text" NAME="email" SIZE=30>
<BR>
<INPUT TYPE="submit" VALUE="Suscribir">
</FORM>

Ò

<A HREF="HTTP://TUSERVIDOR.COM/CUENTA/listaCorreo.php?accion=suscribir&email=EMAIL_A_AGREGAR">

Para Cancelar Suscribcion:

<FORM ACTION=listaCorreo.php>
<INPUT TYPE="hidden" NAME=accion VALUE=cancelar>
Email:
<BR>
<INPUT TYPE="Text" NAME="email" SIZE=30>
<BR>
<INPUT TYPE="submit" VALUE="Cancelar Suscripcion">
</FORM>

Ò

<A HREF="HTTP://TUSERVIDOR.COM/CUENTA/listaCorreo.php?accion=cancelar&email=EMAIL_A_BORRAR">

PARA ADMINISTRAR:

listaCorreo.php?accion=administrar

Que debo hacer, alguien me puede ayudar,se que estan las instrucciones en el código pero no las entiendo...

Creo que a muchos les podrá intresar el tema y el scrip ese.

Saludos y gracias de ante mano...


De interés Público
NO AGREGARME COMO AMIGO, gracias
Asuntos claros en los temas
Consultas en temas no afines serán borradas
Tratemos de expresarnos bien, que así da gusto leer


Avatar Image
@man / @woman
@man / @woman
Si no sabes que es php, te recomiendo que comieinzes con sctips mas faciles
Avatar Image
Moderador
Moderador
Escrito originalmente por MaIcOl
Si no sabes que es php, te recomiendo que comieinzes con sctips mas faciles


Gracias Por el ánimo...
De interés Público
NO AGREGARME COMO AMIGO, gracias
Asuntos claros en los temas
Consultas en temas no afines serán borradas
Tratemos de expresarnos bien, que así da gusto leer


ATENCIÓN: Este tema no tiene actividad desde hace más de 6 MESES,
te recomendamos abrir un nuevo tema en lugar de responder al actual
Opciones:
Ir al subforo:
Permisos:
TU NO PUEDES Escribir nuevos temas
TU NO PUEDES Responder a los temas
TU NO PUEDES Editar tus propios mensajes
TU NO PUEDES Borrar tus propios mensajes
Temas similares
TemaUsuariosRespuestasVisitasActividad
Por: , el 09/Jun/2003, 22:55
chavp phpmysql.tk MaIcOl52kJun/03
Por: , el 23/Sep/2003, 00:32
chavp User 283183559Sep/03