Asp: August 2010

Form Mail JMAIL ILE MAIL YOLLAMA

Form Mail

Örnek:

<html>
<head>
<title> MAIL GONDER </title>
</head>
<body>
<form method=post action="mail.asp">
Isim : <input type="text" name="isim"><br>
Mail : <input type="text" name="mail"><br>
Konu : <input type="text" name="konu"><br>
Mesaj : <textarea name="mesaj" rows="" cols=""></textarea><br>
<input type="submit" value="yolla">
</form>
</body>
</html>

JMAIL ILE MAIL YOLLAMA

mail.asp (JMAIL ile )

<%
' formdan içerik al
isim = Request.form("isim")
mail = Request.form("mail")
konu = Request.form("konu")
mesaj = Request.form("mesaj")
' mektup kime gidecek abisi...
kime = "admin@site-adi.com"
' bir JMail SMTPMail nesnesi...
Set mektup = Server.CreateObject("JMail.SMTPMail")
' SMTP sunucusu
mektup.ServerAddress = "mail.Server.here"
' gonderen
mektup.Sender = isim & " <" & mail & ">"

' konu
mektup.Subject = konu
' aliciyi belirle
mektup.AddRecipient = kime
mektup.Body = mesaj
On Error Resume Next
mektup.Execute
' hata varsa
If err <> 0 Then
hata = err.description
Response.Write "hata oldu: " & hata
Else ' is temizse
tebrik = "mailiniz yolladı"
Response.Write tebrik
End If
Set mektup = Nothing
%>

Request Nesnesini Ögrenelim

response-->Ziyaretciye sunucudan çıktılar gönderiyordu. Request ise Kullanıcıdan bilgi saglamaya yönelik bir nesnedir.
Request.Querysting

Aynı Sayfaya veya farrklı sayfalara Degişken tanımlanmasını saglar <a href> veya response.Redirect ile yönlendirdigimiz sayfalara istedigimiz degişkenleri taşır. Yönlendirdigimiz Sayfanın Adresini yazdıktan sonra "?" işareti ile ardından sayfaya taşıyacagımız adını ve degerini belirtiyoruz. Daha iyi anlamak için bir örnek yapalım:

<html>
<head>
<title>Request.Querysting</title>
</head>
<% @ LANGUAGE=VBScript Codepage=1254 %>
<a href="gidensayfa.asp?aspnesnesi=Request&ismi=Querystring">
Soru isaretinden sonraki degiskenler belirtilen sayfaya tasınacak</a>
</BODY>
</HTML>

******************************

Yukaritaki sayfayı Deneme.asp Adıyla kaydedelim
******************************

Sonrada öteki Sayfamızı hazorlayalım

<html>
<head>
<title>giden Sayfa</title>
</head>
<% @ LANGUAGE=VBScript Codepage=1254 %>
<%
Nesne=Request.QueryString("aspnesnesi")ifade=Request.QueryString("ismi")
%>
Diger sayfadan gönderilen Bilgiler
<br>
Nesne ismi: <b><%=Nesne%></b>
<br>
İfade ismi: <b><%=ifade%></b>
</BODY>
</HTML>

******************************

Yukaridaki kotlarıda gidensayfa.asp Adıyla kaydedelim.
******************************

Dikkat edilmesi gerekenler:::::::::
gidensayfa.asp deki Nesne=Request.QueryString("aspnesnesi") ile
ifade=Request.QueryString("ismi")
Birsatır arayla yazılması gerekiyor yanlışlık yapmayın.
Birde bunları ögrenmek için kopyala yapıştır yöntemini kullanmanızı tavsiye etmem. Yazarak yaparsanız daha kolay ögrenir ve karıştırmazsınız.

Option Expilicit

Asp - Option Expilicit ;

Option expilicit’i yazdığınız ASP kodunun ilk satırına yazarsanız size tanımlamadığınız değişkenleri tanımlamadan programınızı çalıştırma izni vermeyecektir.
Bu sayede oldukça hızlı çalışan uygulamalar yazabilirsiniz

Global.Asa = sitede kaç kişi var

Bu dosya : Uygulamaların degişkenlerini global olarak saklamak ve ASP uygulamaları için özel fonksiyonlar tanımlamak için kullanılır. Bu dosya kullanıcıya gösterilecek bilgileri içermez.

Global.asa ;
Application ve sesiyon nesneleri için kullanılır. Ama diger nesneleride içerebilir.

Örnek :
Ziyaretci Sayısını hesaplamak

<SCRIPT LANGUAGE=VBScript runat=server><br>
Sub Application_OnStart<br>
Application ("Toplamziyaret") = 0<br>
end Sub<br>
Sub session_OnStart<br>
Application ("Toplamziyaret") = Application ("Toplamziyaret")
+ 1<br>
end session_Onend<br>
Application ("Toplamziyaret") = Application ("Toplamziyaret")
- 1<br>
end Sub<br>
</SCRIPT>

Şimdide Toplam ziyaretci sayısını bulalım:

<HTML><br>
<%@LANGUAGE=VBScript CODEPAGE=1254 %><br>
<%<br>
response.write Application ("Toplamziyaret") & "kişi siteyi
ziyaret etmiştir."<br>
%><br>
<BODY><br>
</BODY><br>
</HTML>

NOT: Bukadar Global.asa Dosyasını sitenizin Kök Dizinine kopyalayın (Ana Sayfanın Oldugu Yere)

Asp

Wednesday, 11 August 2010