Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Aderson Designer

Newsletter - ASP para PHP

Por , em ASP Clássico

Recommended Posts

Aderson Designer    3

Aderson Designer
Postado

Olá Galera, to com um script de Newsletter em asp que captura os e-mails e salva em um arquivo de bloco de notas .txt


o meu servidor é em PHP e não roda asp.



Quero saber se tem como eu transforma o script em php.



abaixo segue o <form:




<form name="form1" method="post" action="ProcLista.asp">

              <div align="center"> 

                <input type="text" name="NovoEmail" size="24">

                <br /><br />

                <input type="submit" name="Submit" value="OK" onClick="FDK_AddEmailValidation('form1','document.form1.NovoEmail',true,true,'\'Você deve digitar um e-mail correto !\'');FDK_Validate('form1',true,false,'<< % ALERTA DE E-MAIL % >>\n\n');return document.MM_returnValue">

              </div>

        </form>

esse acima é o form onde coloco no site.



abaixo que o script em asp ProcLista.asp :




<%

	'Variáveis e ambiente global...

	Option Explicit

	Response.Expires = -1600 'controle de cache no cliente

	Response.CacheControl = "Private"  'controle de cache na rede


	Dim lista,objLista,objFSO,NovoEmail,msg,gravar,email

	NovoEmail = Request("NovoEmail")


	If NovoEmail <> "" then

		lista = Server.MapPath("lista.txt")

		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")


		'verificação do e-mail...

		Set objLista = objFSO.OpenTextFile(lista,1)

		If objLista.AtEndofStream = False then

			Do While Not objLista.AtEndofStream

			email = objLista.ReadLine

			If email = NovoEmail then

				gravar = false

				msg = "Seu e-mail não foi cadastrado , pois o mesmo já se encontra em nosso banco de dados."

				Exit Do

			Else

				gravar = true

				msg = "teste no true"

			End If

			Loop

		Else

			gravar = true

		End If

		objLista.Close()

		Set objLista = Nothing


		If gravar = true then

			'gravação do e-mail...

			Set objLista = objFSO.OpenTextFile(lista, 8)

			objLista.WriteLine(NovoEmail)

			objLista.Close()

			Set objLista = Nothing

			Set objFSO = Nothing

			msg = "Obrigado, a partir de hoje você estará recebendo nossos informativos!"

		End If

	End If

%>


<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>


<body bgcolor="#FFFFFF" text="#000000">

<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=msg%> </font></p>

<p><a href="../default.asp"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">voltar</font> 

</a> 

</p>

</body>

</html>

e o arquivo chamdo de lista.txt onde todo os endereços de e-mail fica armazenados..



um código bem simples mais é em asp e quero em php,




tem como ?



Obrigado!



Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

sim, com certeza, mas aconselho a dar uma procurada no fórum de php.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito