the x-factory
%Europe/Berlin %484 %2005, 12:37
Hallo!
ik wil het volgende script in flash hebben, maar snap niet helemaal hoe ik dat moet doen.
Kunnen jullie mij helpen?
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>NIEUWSBRIEF</title>
<style type="text/css">
<!--
body { margin: 0px; font-family: Tahoma; font-size: 8pt; color: #FFFFFF; }
table.menu { font-family: Tahoma; font-size: 8pt; background-color: #DDDDDD; text-align: center; border: 2px #000000 solid; }
table.list { font-family: Tahoma; font-size: 10pt; color: #000000; }
table { font-family: Tahoma; font-size: 8pt; color: #000000; }
tr.info { font-family: Tahoma; font-size: 10pt; color: #000000; font-weight: bold; }
input { font-family: Tahoma; font-size: 8pt; color: #000000; background-color: #999999; border: 1px; border-color: #ffffff; }
textarea { font-family: Tahoma; font-size: 9pt; color: #000000; background-color: #999999; border: 1px; border-color: #ffffff; cols: 50; }
-->
</style>
</head>
<body bgcolor="#999999">
<?php
##############################################
# NIEUWSBRIEF SYSTEEM v1.0 #
##############################################
# #
# nieuwsbrief systeem + admin #
# admin = URL?admin=wachtwoord #
# Met afmeld link zoals het hoort #
# volgens de wet in nederland. #
# vragen? webmaster@watbenje.nl #
# voor gebruik wel graag linkje naar #
# WWW.WATBENJE.NL #
##############################################
$vars=explode(",","admin,send,subject,message,email,action");
foreach($vars as $v){
if ($HTTP_GET_VARS[$v]!=""){$$v=$HTTP_GET_VARS[$v];}
if ($HTTP_POST_VARS[$v]!=""){$$v=$HTTP_POST_VARS[$v];}
}
# wachtwoord voor de administratie sectie! ADMIN SECTIE OPVRAAGBAAR MET: ?admin=wachtwoord
$pass="hier je wachtwoord!!";
# URL naar het bestand voor de afmeld link in bevestiging
$lokatie="http://www.watbenje.nl/nieuwsbrief/index.php";
# database voor emailadressen
$database="emailadressen.php";
# van adres, nieuwsbriefnaam
$nieuwsbriefnaam="nieuws@watbenje.nl";
# client reply email adres
$clientreply="webmaster@watbenje.nl";
# block email domeinen
$blockdomein = "watbenje.nl";
# dubbel ingevoerd
$dubbelemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>$email is al eerder opgegeven!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# niks ingevoerd
$geenemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Wij hebben geen email adres ontvangen!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# foutief ingevoerd
$onjuistemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Sorry, maar dit \"$email\" is een incorrect emailadres!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# eigen domein
$eigendomeinemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Geblokkeerd domein!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# aanmeldings bericht
$aanmeldingemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"thanks\">
<p align=\"center\"><font color=\"#FFFFFF\"><b>Bedankt voor het aanmelden, er is een bevestigings email naar u toegestuurd!</b></font></div></td>
</tr>
</table>
</center>
</div>";
# Email handtekening
$handtekening = "Met vriendelijke groet,
Webmaster
www.watbenje.nl
mailto:webmaster@watbenje.nl";
# autoreplybericht
$autoreplybericht = "Beste lezer,
U bent aangemeld bij onze nieuwsbrief.
U zult van ons maandelijks een digitale nieuwsbrief ontvangen.
We hebben het volgende emailadres ontvangen: $email
Moch u ongewenst te zijn aangemeld dan kunt zich onderaan dit bericht afmelden.
Wij hebben het doel om u van de laaste actualiteiten op de hoogte te houden.
$handtekening";
# verwijderemail uit bestand
$verwijderemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"thanks\"><p align=\"center\"><font color=\"#FFFFFF\"><b>We hebben uw emailadres verwijderd uit onze database!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# verwijderemail error
$foutverwijderemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Sorry, we kunnen $email niet terugvinden in onze database!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
if (!file_exists($database)) {
$newfile = fopen($database,"w+");
fclose($newfile);
}
$newfile = fopen($database,"r");
$content = fread($newfile, filesize($database));
fclose($newfile);
$content=stripslashes($content);
$out="";
$lines = explode("%",$content);
foreach($lines as $ontvanger){
if ($ontvanger != $email){$out .= "%".$ontvanger;}
else{$found=1;}
}
if ($action=="sign"){
if ($found==1 or $email=="" or !checkmail($email) or preg_match("/".$blockdomein."/",$email)){
if ($email==""){echo $geenemail;}
else if ($found==1){echo $dubbelemail;}
else if (!checkmail($email)){echo $onjuistemail;}
else if (preg_match("/".$blockdomein."/",$email)){echo $eigendomeinemail;}
$disp="yes";
}
else {
$disp="no";
$newfile = fopen($database,"a+");
$add = "%".$email;
fwrite($newfile, $add);
fclose($newfile);
// $hash = md5('hash'.$email); UITGESCHAKELD (md5 Hash Emailadressen)
echo $aanmeldingemail;
mail ($email,"Aanmelding!",$autoreplybericht."\n\n\nIk wil me afmelden!\n$lokatie?action=delete&email=".$email,"From: Nieuwsbrief<$nieuwsbriefnaam>\nReply-To: $clientreply\n");
$submailheaders = "From: Nieuwsbrief<$nieuwsbriefnaam>\n";
$submailheaders .= "Reply-To: $clientreply\n";
}
}
if ($action=="delete"){
$disp="no";
if ($found == 1){
$newfile = fopen($database,"w+");
fwrite($newfile, $out);
fclose($newfile);
echo $verwijderemail;
$disp="no";
}
if ($found != 1){
echo $foutverwijderemail;
$disp="YES";
}
}
if ($admin == $pass){
if ($send != "yes" && $send != "test"){
print'<br><br><div align="center">
<center>
<form method="post"><input type="hidden" name=admin value='.$pass.' /><input type="hidden" name="send" value="yes">
<table border="1" cellpadding="0" cellspacing="0" width="39%" height="230" bordercolorlight="#000000" bordercolordark="#000000">
<tr>
<td width="100%" colspan="2" height="16" bgcolor="#666666">
<p align="center"><b>NIEUWSBRIEF</b></td>
</tr>
<tr>
<td width="14%" height="21" bgcolor="#C0C0C0"> Van naam:</td>
<td width="86%" height="21" bgcolor="#808080"> Nieuwsbrief</td>
</tr>
<tr>
<td width="14%" height="21" bgcolor="#C0C0C0"> Van adres:</td>
<td width="86%" height="21" bgcolor="#808080"> nieuwsbrief@watbenje.nl</td>
</tr>
<tr>
<td width="14%" height="25" bgcolor="#C0C0C0"> Onderwerp:</td>
<td width="86%" height="25" bgcolor="#808080"> <input type="text" class="input" name="subject" size="45"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="7" bgcolor="#666666"></td>
</tr>
<tr>
<td width="14%" height="127" bgcolor="#808080"> Bericht:</td>
<td width="86%" height="127" bgcolor="#808080"><textarea cols="50" rows="10" class="input" wrap="virtual" name="message"></textarea></td>
</tr>
<tr>
<td width="100%" colspan="2" height="1" bgcolor="#666666"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="34" bgcolor="#C0C0C0"><center><input type="reset" value="Wissen" /> <input type="submit" value="Verstuur nieuwsbrief" /></center></td>
</tr>
</table>
</form>
</center>
</div>
';
}
$mailheaders = "From: Nieuwsbrief<$nieuwsbriefnaam>\n";
$mailheaders .= "Reply-To:$clientreply\n";
$mailheaders .= "Content-Type: text/html; charset=iso-8859-1\n"; // HTML MIMEMAILS
if ($send == "yes"){
$message="".stripslashes($message);
$subject=stripslashes($subject);
// $hash = md5('hash'.$ontvanger); UITGESCHAKELD (md5 Hash Emailadressen)
$lines = explode("%",$content);
foreach ($lines as $ontvanger){mail ($ontvanger,$subject,$message."\n$handtekening\n\n\nIk wil me afmelden!\n$lokatie?action=delete&email=".$ontvanger,"From: Nieuwsbrief<$nieuwsbriefnaam>\nReply-To: $clientreply\n");}
print "<b>The following email has been sent!</b>";
print "<pre>$mailheaders\n$subject\n$message</pre>";
}
}
if ($admin != $pass && $disp != "no"){
print'
<br><br><div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="30%" height="83">
<tr>
<td width="100%" bgcolor="#333333" height="21">
<p align="center"><b><font color="#C0C0C0">N i e u w s b r i e f</font></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#666666" height="62"><form method="post"><center>
<font color="#C0C0C0"> Email adres: <input type="text" name="email" class="inputsmall" value="" size="30" />
<br> <input type="radio" name="action" value="sign" checked="checked" />Aanmelden
<input type="radio" name="action" value="delete" />Afmelden
<input type="submit" value="Verstuur" />
</font>
</center></form> </td>
</tr>
</table>
</center>
</div>';
print '<center><font size="1">copyright: <a href="http://www.watbenje.nl">www.watbenje.nl</a>!</font></center>';
}
function checkmail($string){
return preg_match("/^[^\s()<>@,;:\"\/\[\]?=]+@\w[\w-]*(\.\w[\w-]*)*\.[a-z]{2,}$/i",$string);
}
?>
</body>
Ik heb ook zoiets nodig, maar dan dat je alleen je naam hoeft in te vullen en die naam in een txt bestandje komt te staan. Hoe werkt dat?
ik wil het volgende script in flash hebben, maar snap niet helemaal hoe ik dat moet doen.
Kunnen jullie mij helpen?
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>NIEUWSBRIEF</title>
<style type="text/css">
<!--
body { margin: 0px; font-family: Tahoma; font-size: 8pt; color: #FFFFFF; }
table.menu { font-family: Tahoma; font-size: 8pt; background-color: #DDDDDD; text-align: center; border: 2px #000000 solid; }
table.list { font-family: Tahoma; font-size: 10pt; color: #000000; }
table { font-family: Tahoma; font-size: 8pt; color: #000000; }
tr.info { font-family: Tahoma; font-size: 10pt; color: #000000; font-weight: bold; }
input { font-family: Tahoma; font-size: 8pt; color: #000000; background-color: #999999; border: 1px; border-color: #ffffff; }
textarea { font-family: Tahoma; font-size: 9pt; color: #000000; background-color: #999999; border: 1px; border-color: #ffffff; cols: 50; }
-->
</style>
</head>
<body bgcolor="#999999">
<?php
##############################################
# NIEUWSBRIEF SYSTEEM v1.0 #
##############################################
# #
# nieuwsbrief systeem + admin #
# admin = URL?admin=wachtwoord #
# Met afmeld link zoals het hoort #
# volgens de wet in nederland. #
# vragen? webmaster@watbenje.nl #
# voor gebruik wel graag linkje naar #
# WWW.WATBENJE.NL #
##############################################
$vars=explode(",","admin,send,subject,message,email,action");
foreach($vars as $v){
if ($HTTP_GET_VARS[$v]!=""){$$v=$HTTP_GET_VARS[$v];}
if ($HTTP_POST_VARS[$v]!=""){$$v=$HTTP_POST_VARS[$v];}
}
# wachtwoord voor de administratie sectie! ADMIN SECTIE OPVRAAGBAAR MET: ?admin=wachtwoord
$pass="hier je wachtwoord!!";
# URL naar het bestand voor de afmeld link in bevestiging
$lokatie="http://www.watbenje.nl/nieuwsbrief/index.php";
# database voor emailadressen
$database="emailadressen.php";
# van adres, nieuwsbriefnaam
$nieuwsbriefnaam="nieuws@watbenje.nl";
# client reply email adres
$clientreply="webmaster@watbenje.nl";
# block email domeinen
$blockdomein = "watbenje.nl";
# dubbel ingevoerd
$dubbelemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>$email is al eerder opgegeven!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# niks ingevoerd
$geenemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Wij hebben geen email adres ontvangen!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# foutief ingevoerd
$onjuistemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Sorry, maar dit \"$email\" is een incorrect emailadres!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# eigen domein
$eigendomeinemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Geblokkeerd domein!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# aanmeldings bericht
$aanmeldingemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"thanks\">
<p align=\"center\"><font color=\"#FFFFFF\"><b>Bedankt voor het aanmelden, er is een bevestigings email naar u toegestuurd!</b></font></div></td>
</tr>
</table>
</center>
</div>";
# Email handtekening
$handtekening = "Met vriendelijke groet,
Webmaster
www.watbenje.nl
mailto:webmaster@watbenje.nl";
# autoreplybericht
$autoreplybericht = "Beste lezer,
U bent aangemeld bij onze nieuwsbrief.
U zult van ons maandelijks een digitale nieuwsbrief ontvangen.
We hebben het volgende emailadres ontvangen: $email
Moch u ongewenst te zijn aangemeld dan kunt zich onderaan dit bericht afmelden.
Wij hebben het doel om u van de laaste actualiteiten op de hoogte te houden.
$handtekening";
# verwijderemail uit bestand
$verwijderemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"thanks\"><p align=\"center\"><font color=\"#FFFFFF\"><b>We hebben uw emailadres verwijderd uit onze database!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
# verwijderemail error
$foutverwijderemail = "<div align=\"center\">
<center><br>
<table border=\"1\" cellpadding=\"5\" cellspacing=\"0\" width=\"67%\" bordercolor=\"#C0C0C0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><div class=\"warning\"><p align=\"center\"><font color=\"#FFFFFF\"><b>Sorry, we kunnen $email niet terugvinden in onze database!</div></b></font></div></td>
</tr>
</table>
</center>
</div>";
if (!file_exists($database)) {
$newfile = fopen($database,"w+");
fclose($newfile);
}
$newfile = fopen($database,"r");
$content = fread($newfile, filesize($database));
fclose($newfile);
$content=stripslashes($content);
$out="";
$lines = explode("%",$content);
foreach($lines as $ontvanger){
if ($ontvanger != $email){$out .= "%".$ontvanger;}
else{$found=1;}
}
if ($action=="sign"){
if ($found==1 or $email=="" or !checkmail($email) or preg_match("/".$blockdomein."/",$email)){
if ($email==""){echo $geenemail;}
else if ($found==1){echo $dubbelemail;}
else if (!checkmail($email)){echo $onjuistemail;}
else if (preg_match("/".$blockdomein."/",$email)){echo $eigendomeinemail;}
$disp="yes";
}
else {
$disp="no";
$newfile = fopen($database,"a+");
$add = "%".$email;
fwrite($newfile, $add);
fclose($newfile);
// $hash = md5('hash'.$email); UITGESCHAKELD (md5 Hash Emailadressen)
echo $aanmeldingemail;
mail ($email,"Aanmelding!",$autoreplybericht."\n\n\nIk wil me afmelden!\n$lokatie?action=delete&email=".$email,"From: Nieuwsbrief<$nieuwsbriefnaam>\nReply-To: $clientreply\n");
$submailheaders = "From: Nieuwsbrief<$nieuwsbriefnaam>\n";
$submailheaders .= "Reply-To: $clientreply\n";
}
}
if ($action=="delete"){
$disp="no";
if ($found == 1){
$newfile = fopen($database,"w+");
fwrite($newfile, $out);
fclose($newfile);
echo $verwijderemail;
$disp="no";
}
if ($found != 1){
echo $foutverwijderemail;
$disp="YES";
}
}
if ($admin == $pass){
if ($send != "yes" && $send != "test"){
print'<br><br><div align="center">
<center>
<form method="post"><input type="hidden" name=admin value='.$pass.' /><input type="hidden" name="send" value="yes">
<table border="1" cellpadding="0" cellspacing="0" width="39%" height="230" bordercolorlight="#000000" bordercolordark="#000000">
<tr>
<td width="100%" colspan="2" height="16" bgcolor="#666666">
<p align="center"><b>NIEUWSBRIEF</b></td>
</tr>
<tr>
<td width="14%" height="21" bgcolor="#C0C0C0"> Van naam:</td>
<td width="86%" height="21" bgcolor="#808080"> Nieuwsbrief</td>
</tr>
<tr>
<td width="14%" height="21" bgcolor="#C0C0C0"> Van adres:</td>
<td width="86%" height="21" bgcolor="#808080"> nieuwsbrief@watbenje.nl</td>
</tr>
<tr>
<td width="14%" height="25" bgcolor="#C0C0C0"> Onderwerp:</td>
<td width="86%" height="25" bgcolor="#808080"> <input type="text" class="input" name="subject" size="45"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="7" bgcolor="#666666"></td>
</tr>
<tr>
<td width="14%" height="127" bgcolor="#808080"> Bericht:</td>
<td width="86%" height="127" bgcolor="#808080"><textarea cols="50" rows="10" class="input" wrap="virtual" name="message"></textarea></td>
</tr>
<tr>
<td width="100%" colspan="2" height="1" bgcolor="#666666"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="34" bgcolor="#C0C0C0"><center><input type="reset" value="Wissen" /> <input type="submit" value="Verstuur nieuwsbrief" /></center></td>
</tr>
</table>
</form>
</center>
</div>
';
}
$mailheaders = "From: Nieuwsbrief<$nieuwsbriefnaam>\n";
$mailheaders .= "Reply-To:$clientreply\n";
$mailheaders .= "Content-Type: text/html; charset=iso-8859-1\n"; // HTML MIMEMAILS
if ($send == "yes"){
$message="".stripslashes($message);
$subject=stripslashes($subject);
// $hash = md5('hash'.$ontvanger); UITGESCHAKELD (md5 Hash Emailadressen)
$lines = explode("%",$content);
foreach ($lines as $ontvanger){mail ($ontvanger,$subject,$message."\n$handtekening\n\n\nIk wil me afmelden!\n$lokatie?action=delete&email=".$ontvanger,"From: Nieuwsbrief<$nieuwsbriefnaam>\nReply-To: $clientreply\n");}
print "<b>The following email has been sent!</b>";
print "<pre>$mailheaders\n$subject\n$message</pre>";
}
}
if ($admin != $pass && $disp != "no"){
print'
<br><br><div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="30%" height="83">
<tr>
<td width="100%" bgcolor="#333333" height="21">
<p align="center"><b><font color="#C0C0C0">N i e u w s b r i e f</font></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#666666" height="62"><form method="post"><center>
<font color="#C0C0C0"> Email adres: <input type="text" name="email" class="inputsmall" value="" size="30" />
<br> <input type="radio" name="action" value="sign" checked="checked" />Aanmelden
<input type="radio" name="action" value="delete" />Afmelden
<input type="submit" value="Verstuur" />
</font>
</center></form> </td>
</tr>
</table>
</center>
</div>';
print '<center><font size="1">copyright: <a href="http://www.watbenje.nl">www.watbenje.nl</a>!</font></center>';
}
function checkmail($string){
return preg_match("/^[^\s()<>@,;:\"\/\[\]?=]+@\w[\w-]*(\.\w[\w-]*)*\.[a-z]{2,}$/i",$string);
}
?>
</body>
Ik heb ook zoiets nodig, maar dan dat je alleen je naam hoeft in te vullen en die naam in een txt bestandje komt te staan. Hoe werkt dat?