Asp de form mail nasıl yapılır

admin — Sat, 18 Dec 2010 17:22:37 +0000

Sitenizdeki ziyaretçilerin size kolay bi şekilde ulaşması için bir formmail yapalım.

Bir db ve 6 tane sayfadan oluşacak formmailimiz.

Başlayalım ilk olarak default sayfasını yapalım

Aşağıdaki kodları default.asp olarak kayıt edin…

<% @LANGUAGE=VBscript %>




****** http-equiv="Content-Language" *********"tr">
****** name="GENERATOR" *********"Microsoft FrontPage 5.0">
****** name="ProgId" *********"FrontPage.Editor.Document">
****** http-equiv="Content-Type" *********"text/html; charset=windows-1254">
İletişim Forumu



<%
	Dim  temp, ip
	temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	If  temp<>""  Then
	ip = temp
	Else
	ip = Request.ServerVariables("REMOTE_ADDR")
	End  If
%>


       
  
    
      
      İLETİŞİM
    
    
       
      
      İSİM  
      
                   
                  *
    
    
       
      
      SOY İSİM
      
                   
                  *
    
    
      
       
      
      CİNSİYET
      
                *
    
    
      
       
      
      TEL:
      
                   Alan :-
                  *
    
    
      
       
      E-MAIL:
      
                   
                  *
    
    
      
      WEB
      SİTE
      
                   
    
    
       
      
      KONU:
      
                *
    
    
       
      
      MESAJINIZ:
      
	
      *
    
    
      
      
      TARİH / SAAT:
       <% = Date %>
      - <% = time %>
    
    
      
       
      IP
      ADRESİNİZ:
      
      <% Response.Write ip %>
    
    
      
      
      


    
    
      
       Güvenlik Sebebi ile Ip
      Adresi Tarih ve Saat ile birlikte Kayıt Edilmektedir

Şimdi vereceğim kodları ise datagönder.asp olarak kayıt edin..




İletişim Formu




<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")

isim = Request.Form ("isim")
soyisim = Request.Form ("soyisim")
sehir = Request.Form ("sehir")
yas = Request.Form ("yas")
cinsiyet = Request.Form ("cinsiyet")
telalan = Request.Form ("telalan")
tel = Request.Form ("tel")
cepalan = Request.Form ("cepalan")
cep = Request.Form ("cep")
email = Request.Form ("email")
website = Request.Form ("website")
konu = Request.Form ("konu")
mesaj = Request.Form ("mesaj")
tarihsaat = Request.Form ("tarihsaat")
ip = Request.Form ("ip")

Set Rs = Server.CreateObject ("ADODB.RecordSet")
Sql = "Select * from sancak"
Rs.Open Sql, Connect, 1, 3

'doldurulmamis form kutucuklarini doldurulmasini istiyoruz

if isim ="" or soyisim ="" or cinsiyet ="" or telalan ="" or tel ="" or konu ="" or mesaj ="" then
Response.Write " * Lütfen İşaretli alanları Doldurunuz..."
else
Rs.AddNew
Rs("isim")=isim
Rs("soyisim")=soyisim
Rs("sehir")=sehir
Rs("yas")=yas
Rs("cinsiyet")=cinsiyet
Rs("telalan")=telalan
Rs("tel")=tel
Rs("cepalan")=cepalan
Rs("cep")=cep
Rs("email")=email
Rs("website")=website
Rs("konu")=konu
Rs("mesaj")=mesaj
Rs("tarihsaat")=tarihsaat
Rs("ip")=ip

Rs.Update
Response.Write "Mesajınız iletilmiştir En kısa Sürede incelenecektir."
end if
Rs.close
Set Rs = Nothing
%>

Bunları da yaptıysanız şimdi yönetim bölümünü yapalım. Aşağıdaki kodlarıda yonetim.asp diye kayıt edin…


<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
%>


<%
Set Rs = Server.CreateObject ("ADODB.RecordSet")
Sql = "Select * from sancak"
Rs.Open Sql,Connect,1,3

%>
 
   
  

  
    ADI SOYADI
    İLETİŞİM KONUSU
    OKU
    SİLME İŞLEMİ
  

   

 
   <%
  Do while not Rs.eof
  %>
  

  
     
  

  

    <%=Rs("isim")%> <%=Rs("soyisim")%>
    <%=Rs("konu")%>
    
    
    ">
    
    ">
    
  
  
     
  
  
<%
Rs.MoveNext
Loop
%>

Bunuda yaptıysanız yönetime giriş için şifre sayfamızı oluşturalım vereceğim kodları sifre.asp olarak kayıt edin…

<%
dim sifre
sifre = "admin"
if session("administrator") <> sifre then
if request.form("administrator") <> sifre then
call sifreform
else
session("administrator") = sifre
end if
end if
%>

<%
sub sifreform
aynen = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
%>




İletişim Formu



 
 
 


 Yönetici Parolası :



 



 

<%
response.end
end sub
%>

Evet, sıra geldi oku ve sil komutlarına. İlk verdiğim kodları oku.asp, ikinci verdiğim kodlarıda sil.asp olarak kayıt edin.

oku.asp

<% @LANGUAGE=VBscript %>










İletişim Formu



<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
%>

<%
id= Request("id")
Set Rs = Server.CreateObject ("ADODB.RecordSet")
Sql = "Select * from sancak where id = " &id& ""
Rs.Open Sql,Connect,1,3
%>



       
  
    
      
      
      İLETİŞİM
    
    
       
      
      İSİM  
      
                   <%=Rs("isim")%>
    
    
       
      
      SOY İSİM
      
                   <%=Rs("soyisim")%>
    
    
      
       
      
      CİNSİYET
      
               <%=Rs("cinsiyet")%>
    
    
      
       
      
      TEL:
      
                   <%=Rs("telalan")%>-<%=Rs("tel")%>
    
    
      
       
      E-MAIL:
      
                   <%=Rs("email")%>
    
    
      
      WEB
      SİTE
      
                   <%=Rs("website")%>
    
    
       
      
      KONU:
      
               <%=Rs("konu")%>
    
    
       
      
      MESAJI : <%=Rs("mesaj")%>
    
    
      
      GÜVENLİK BİLGİLERİ
    
    
      
      
      TARİH / SAAT:
      
<%=Rs("tarihsaat")%>      
    
    
      
      
      IP
      ADRESİNİZ:
      
      <%=Rs("ip")%>
    
    
      
      
      
      
      
 ">

sil.asp


İletişim Formu
<% Response.Buffer = True %>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb")
%>
<%
id = Request("id")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Delete = "DELETE from sancak WHERE id="&id&""
Rs.open Delete,Connect,1,3

Response.Redirect Request.serverVariables("HTTP_REFERER")
%>

Şimdi bir kod daha vereceğim, bunu da not defterine yazıp stil.css olarak kayıt edeceksiniz.



#clsCode {
	font: "Courier New";
	font-size: 12;
	color: gray;
	text-decoration: none;
	background-color: #D3D3D3;
	border: 1px solid gray;
	width: 90%;
}

#mostSelect {
	width: 150px;
	font: 11px "Trebuchet MS";
}

#fontStyle {
	font: 11px "Trebuchet MS";
	cursor: pointer;
}

#hostingP
{
	color: #1061BF;
	height: 1px;
}

#ucretliHosting
{
	background-image: url('http://download.aspindir.com/images/title.gif');
	border: 1px solid;
	border-color: #003CAD;
}

#uHText {
	font-family: Arial;
	font-size: 8pt;
	color:white;
	font-weight: bold;
}

#hostingMasterTable
{
	border: 1px solid;
	border-color: #111111;
	font-family: Arial;
	font-size: 8pt;
	font-weight: bold;
	padding: 3px;
}

#hmTText {
	font-family: Arial;
	font-size: 8pt;
	color: #689EDD;
}

#slaveHosting {
	font-family: Arial;
	font-size: 8pt;
}

#hrP {
	color: #EBE5E5;
	height: 1px;
}

Bunu da bitirdiyseniz son olarak db’yi vereceğim. Burayı dikkatli okuyun lütfen.

Vereceğim db’yi db adında bir klasör oluşturup içine atınız.

Db’yi indirmek için buraya tıklayınız.

Bu linkten indirerek hostunuza upload edin.

Form maili eklemek istediğiniz sayfaya:

The post Asp de form mail nasıl yapılır first appeared on Barış ÖZCAN Web Tasarım | antalya web tasarım | antalya web tasarımı | Sosyal Medya Danışmanlığı.

İLETİŞİM
	İSİM	*
	SOY İSİM	*
	CİNSİYET	*
	TEL:	Alan :- *
	E-MAIL:	*
	WEB SİTE
	KONU:	*
	MESAJINIZ:	*
	TARİH / SAAT:	<% = Date %> - <% = time %>
	IP ADRESİNİZ:	<% Response.Write ip %>

Güvenlik Sebebi ile Ip Adresi Tarih ve Saat ile birlikte Kayıt Edilmektedir

İLETİŞİM
	İSİM	<%=Rs("isim")%>
	SOY İSİM	<%=Rs("soyisim")%>
	CİNSİYET	<%=Rs("cinsiyet")%>
	TEL:	<%=Rs("telalan")%>-<%=Rs("tel")%>
	E-MAIL:	<%=Rs("email")%>
	WEB SİTE	<%=Rs("website")%>
	KONU:	<%=Rs("konu")%>
	MESAJI : <%=Rs("mesaj")%>
GÜVENLİK BİLGİLERİ
	TARİH / SAAT:	<%=Rs("tarihsaat")%>
	IP ADRESİNİZ:	<%=Rs("ip")%>
		">

mail sayfası asp | Barış ÖZCAN Web Tasarım | antalya web tasarım | antalya web tasarımı | Sosyal Medya Danışmanlığı

Asp de form mail nasıl yapılır