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>
<?
}
?>

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

Para que haces 2 temas, con 1 es suficiente

Avatar Image
Moderador
Moderador
Escrito originalmente por MaIcOl
Para que haces 2 temas, con 1 es suficiente
Nunca se te ha pegado el mouse, además ese día los foros andaban lentisimos...
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
Come y duerme en el foro
Come y duerme en el foro

Facil:

1) guarda la pagina con el nombre
listaCorreo.php

2) configura esto


//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";

3) configura esto otro

//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";

//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 Luisnjorge@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/";


Asi deberia de funciona( no lo he provado..,pero seguro que va)

Avatar Image
Come y duerme en el foro
Come y duerme en el foro

ahora que acabo de ver el script en mas profundida te digo que el script son dos archivos y que tienes que configurar los dos como te he mencionado en el segundo y tecer paso ( los datos que tienes que poner estan en el panel de control del espacio web ).

Salu2.

Avatar Image
Moderador
Moderador
Escrito originalmente por phpmysql
ahora que acabo de ver el script en mas profundida te digo que el script son dos archivos y que tienes que configurar los dos como te he mencionado en el segundo y tecer paso ( los datos que tienes que poner estan en el panel de control del espacio web ).

Salu2.


voy a probar gracias
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:57
chavp MaIcOl23kJun/03
Por: , el 23/Sep/2003, 00:32
chavp User 283183614Sep/03