Jmail ile

bir form hazırlaycaksın.. kutucuklara isim vereceksin..
gönderim metodunu her zaman post sec..örnek
Kod:
<form method="POST" action="mailgonder.asp">


formdan gelen bilgileri böyle alacaksın..
bu dosya adı mailgonder.asp olsun
Kod:

<%
ad = Request.Form ("ad")
tel = Request.Form ("tel")
mail = Request.form ("mail")
baslik = Request.Form ("baslik")
mesaj = Request.Form ("mesaj")

gidecek = " " & ad & " şahıs size siteden mail atmıştır.<br>Şahısın iletişim adresi aşağıdaki gibidir.<br><b>Adı

Soyadı:</b> " & ad & " <br><b>Mail Adresi:</b> " & mail & " <br><b>Telefon:</b> " & tel & " <br><b>Mesaj Başlığı:</b> " &

baslik & " <br><b>Mesajı:</b> " & mesaj & " <br> "

CONST infMailSunucu = "mail.turk-dizayn.net"
CONST infMailKullaniciAdi = "info"
CONST infMailSifre = "123456789"
CONST infMailYollayan = "info@turk-dizayn.net"

SET objMail = Server.CreateObject("JMail.Message" )
With objMail
.ContentType = "text/html"
.CharSet = "ISO-8859-9"
.AddRecipient mail
.From = infMailYollayan
.MailServerUserName = infMailKullaniciAdi
.MailServerPassWord = infMailSifre
.Logging = True
.Silent = True
.Subject = baslik
.Body = gidecek
.Send(infMailSunucu)
End With
SET objMail = Nothing
%>

Nüve Forum » kütüphane » Bilim ve Teknoloji » Bilgisayar » Yazılım » Asp

Veri tabanından kayıt çekme

<%
Set ObjRs = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("SELECT top 5 * FROM tablo_adi order by id asc") 'burada top 5 son 5 kayıt sıralar asc yukrıdan aşağıya desc

aşağıdan yukarıya
ObjRs.Open StrSql, ObjCon, 1, 3
%>
<%
if ObjRs.RecordCount = 0 then
Response.Write "Kayıt yok!" 'Eğer kayıt yoksa bu uyarı gelir
Else
%>
<%
Do While not ObjRs.Eof
%>
<%=ObjRs("resim")%><br>
<%

ObjRs.Movenext
Loop
%>
<% End If %>


birde mesela bir kategorilerin var.. menu.asp de.. bunu default.asp de çıkartmak istiyorsun...



Kod:

<!--#include file="inc.asp"-->


ama bunu hangi tabloda çıkartmak istiyorsan orada yap..

Nüve Forum » kütüphane » Bilim ve Teknoloji » Bilgisayar » Yazılım » Asp

haa birde kategorileme yapalım..
veri tabanında id, kategori bölümleri var sayalım

Kod:

'Veri tabanı açtım var sayalım
'Recordseti açalım
'Döngüye gir
<a href="git.asp?ID=<%=ObjRs("id")%>"><%=ObjRs("kateg ori")%></a><br>
'Döngüyü bitir
Recordseti kapat



şimdi birde git.asp yapalım

Kod:

id = Request.QueryString ("id")
'Gerekli prosedürler falan
.
.

kayıt ekleme ise bir form hazılıyorsun gene mail göndermede gibi..
ondan sonra eklenecek şeyleri request.form ile belirliyorsun..
buna bir örnek..

Kod:

<%
ad = Request.Form ("ad")
tel = Request.Form ("tel")
fax = Request.Form ("fax")
mail = Request.Form ("mail")


if adres = "" or ad = "" then
Response.Write "Lütfen alanları eksiksiz ve tam doldurunuz"
Else

Set teslim = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Select * from tablo_adi")
teslim.Open StrSql, ObjCon, 1, 3

teslim.AddNew 'Bu yeni kayıt nesnesidir Ama kayıtları değiştireceksen yine form aynı ama bu satır olmayacak yoksa yeni eklenir
teslim("ad") = ad
teslim("tel") = tel
teslim("fax") = fax
teslim("mail") = mail
teslim.Update
Response.Write "Bilgiler Eklenmiştir."
end if
%>

birde böyle ufak tefek sub olayları var.. çok işe yarar.. örnek kodlar.. sayfa sub.asp olsun

Kod:

<%
if request ("page") = "" then
call default
elseif request ("page") = "hakkimizda" then
call hakkimizda
elseif request ("page") = "sozlesme" then
call sozlesme
elseif request ("page") = "odeme" then
call odeme
end if
%>
<% Sub default %>
<a href="sub.asp">Ana Sayfa</a><br>
<a href="sub.asp?page=hakkimizda">Hakkimizda</a><br>
<a href="sub.asp?page=sozlesme">Sözleşme</a><br>
<a href="sub.asp?odeme">Ödeme</a><br>

Ana Sayfadasınız

<% End Sub %>

<% Sub hakkimizda %>
<a href="sub.asp">Ana Sayfa</a><br>
<a href="sub.asp?page=hakkimizda">Hakkimizda</a><br>
<a href="sub.asp?page=sozlesme">Sözleşme</a><br>
<a href="sub.asp?odeme">Ödeme</a><br>

Hakkimizda Sayfadasınız

<% End Sub %>

<% Sub sozlesme %>
<a href="sub.asp">Ana Sayfa</a><br>
<a href="sub.asp?page=hakkimizda">Hakkimizda</a><br>
<a href="sub.asp?page=sozlesme">Sözleşme</a><br>
<a href="sub.asp?odeme">Ödeme</a><br>

sozleşme Sayfadasınız

<% End Sub %>

<% Sub odeme %>
<a href="sub.asp">Ana Sayfa</a><br>
<a href="sub.asp?page=hakkimizda">Hakkimizda</a><br>
<a href="sub.asp?page=sozlesme">Sözleşme</a><br>
<a href="sub.asp?odeme">Ödeme</a><br>

Ödeme Sayfadasınız

<% End Sub %>

Mesela hazırladığınız admin bölümündeki bir başlığı silmek istiyorsunuz.. Admin panelinde şöyle bir linke tıkladınız.

sil.asp?ID=2565

bundan sonraki olacak olaylar ve kodları aşağıdaki gibidir.

Kod:

<%
ID = Request.QueryString ("ID") 'Stringi alıyor
Set ObjSil = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Delete From tablo_adi where ID = " & ID & "")
ObjSil.Open StrSql, ObjCon, 1, 3

if ID = "" then 'ID boş ise sayfaya yönlendirecek
Response.Redirect Request.ServerVariables ("HTTP_REFERER")
Else

'Eğer ID dolu ve işlem yapıldıysa silind yazısı gelir ve tekrar önceki sayfaya döner
Response.Write "Silindi"
Response.Redirect Request.ServerVariables ("HTTP_REFERER")
End if
%>

Arkadaşlar çoğu hosting spam mail için CDO mail gönerimini yasaklamıştır. Bunun için jmail eya persist ile gönderim yapılmaktadır. bunun için örnek kodlar..

Kod:

<%
email="Gönderenin E-Mail Adresi" ' örnek "admin@benimsite.com"
adisoyadi="Gönderenin İsmi" ' örnek "BenimSite.Com Duyurusu"
addresstoemail="E-Mail Alacak Kisinin E-Mail Adresi" ' örnek "huseyinyildirim@hotmail.com"
addressto="E-Mail Alacak Kisinin Adi Soyadi" ' örnek "Hüseyin Yıldırım"

konu="Mesajın Konusu" ' örnek "Benim sitem ile ilgili duyuru"
emailbody="Mesajın içi" ' Burası request.formla da alınabilir.

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.From = email
Mail.FromName = adisoyadi
Mail.AddAddress addresstoemail, addressto
Mail.AddReplyTo email
Mail.Subject = konu
Mail.Body = emailbody

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Hata Var: " & Err.Description
Else
Response.Write "Mesajınız gönderilmiştir."
End If
%>

Birazda operatörlerden bahsedelim.

Kod:

dim a,b,c,Topla
a = 2
b = 3
c = 4
Topla = a + b + c
Response.Write Topla


Bu kodun sonucunda 9 çıkar.

Diğer Operatör işlemleri

Topla +
Çıkarma -
Bölme /
Çarpma *
Tam bölme \
Mod alma Mod

Kod:

'Hangi gün
<%= WeekdayName(Weekday(Date))%>

'Hangi ay
<%= MonthName(Month(Date))%>

'Kaçıncı gün
<%= Day(Date)%>
'Kaçıncı Ay
<%= Month(Date)%>

'Hangi yıl
<%= Year(Date)%>

'Şuanki tarih ve saati verir
<%=Now()%>