+ Başlığa Yanıt Yaz
3 sonuçtan 1 - 3 arası sonuçlar
Başlık: Ufak Tefek Uygulamalar
-
12.04.2005 21:32 #1
- Katılım Tarihi
- 2004
- Yer
- İstanbul
- Mesaj
- 286
Ufak Tefek Uygulamalar
Selam arkadaşlar
Burada işinize yarayacak bir iki ufak asp kodu var. İşinizi kolaylaştırması açısından...
Sizin bildiğiniz ufak tefek uygulamalar varsa paylaşabiliriz...
--------------------------------------------------------------------------------
Ziyaretçiye IP adresini göstermek
Bu ASP ile çok basit bir işlemdir.
<% Abdurrahman = Request.ServerVariables("REMOTE_ADDR" ) %>
Bu kodu yazarak ziyaretçinin IP Numarasını "Abdurrahman" adlı bileşkene bağladık.ve
<%=Abdurrahman%> yazarsanız ziyaretçiye IP Numarasını gösterirsiniz.veya veritanınıza kaydedersiniz.Seçim sizin...
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Sayfaya şifre koymak
Bu işlemi yapmak için 2 tane sayfamız olsun.Biri admin.asp diğeride sifre.asp.
Admin.asp : Bu sayfada admin bölümünüzün olduğunu farzedelim.
Sifre.asp : Bu sayfada birşey yapmanıza gerek yok sadece şifreyi kendinize göre değiştirmeniz yeterli olacaktir.şu an ki şifremiz "sifreburaya" dır.
Admin.asp sayfasının en başına aşağıdaki kodları koymanız yeterli olacaktir.Bu uygulamada admin.asp adındaki sayfayı yapalım.
<-------------------------- Admin.asp Kod baslangiç ------------------------->
<%
If NOT session("admin")="girdi" then
response.write "Lütfen yonetici girisi yapiniz.
Giris yapmak icin <a href=sifre.asp>tiklayin.</a>"
response.end
end if
%>
Eger bu yaziyi görüyorsanız admin girişi yapılmış ve şifreyi doğru yazmışsınız demektir.
Tebrikler !!!
<-------------------------- Admin.asp Kod bitis ------------------------->
Böylece admin.asp sayfanizda session("admin")="girdi" değeri olumsuzsa giriş izni verilmiyor.
Bu kodlar da sifre.asp sayfanız olsun.ıçinden sadece "sifreburaya" seçeneğini degistirmeniz yeterli olacaktır.
<-------------------------- sifre.asp Kod baslangiç ------------------------->
<%
act=request.querystring("act")
if act="" then
call form
elseif act="gir" then
call gir
elseif act="form" then
call form
end if
sub gir
%>
<% sifre = request.form("sifre")
if sifre = "sifreburaya" then
session("admin")="girdi"
response.write "şıFRE DOğRU !!!
Admin bölümüne yönleniyorsunuz.
Hemen gitmek için <a href=admin.asp>tıklayın.</a>"
%><meta http-equiv="Refresh" content="3; URL=admin.asp"><%
else
session("admin")=""
response.write "Yanlis sifre girdiniz.
<a href=sifre.asp?act=form>Geri Dön</a>"
response.end
end if
end sub
sub form
%>
<html>
<head>
<title>Sifre paneli</title>
</head>
<body>
<form method="POST" action="sifre.asp?act=gir">
<input type="text" name="sifre" size="20">
<input type="submit" value="gir" name="cmd">
</form>
</body>
</html>
<% end sub %>
<-------------------------- sifre.asp Kod bitis ------------------------->
Böylece admin.asp sayfamıza giriş şifresini girmeyenler kabul edilmeyilecektir.Admin.asp sayfasının basında olan kodu baska sayfalara yerleştirerek istediğiniz kadar sayfaya şifre koyabilirsiniz.
Çalisma sistemi : Eger admin.asp yazarsanız size şifre girmenizi söyleyecektir.Eger gelen yerden şifreyi dogru girerseniz admin.asp sayfasına giriş yapabileceksiniz, aksi durumda şifre yanlış diye yazdırcaktır.
-------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------
Kayıtları Sayfalara bölmek
Eğer veritabanımızda çok fazla veri varsa bunları tek sayfada göstermek yerine belli bi yerden keserek sayfalatmayı tercih ederiz.
Bu konuda bu olayın nasıl yapıldığını göreceğiz.
ılk önce sayfa numarasını querystring ile alalım.
<%
sf = Request.querystring("sf")
if sf="" then
sf=1
end if
%>
Bu kodu sayfanızın en başına koymalısınız.Bu kod ile eğer sf boş ise sayfa numarasını 1 diye belirttik
şimdi sırada döngüyü başlatacak kodumuz var.Altta gördüğünüz 10 rakamı o 1 sayfada kaç tane veri listeleneceğidir.Veritabanımızdaki tabloya bağlandığımız değişkenin ismi "rs" olsun.
<%
rs.pagesize = 10
rs.absolutepage = sf
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
%>
Bu kodu koyarak döngümüzü başlattık.Sırada döngüye nereden devam edeceğimiz var.
<%
rs.movenext
next
%>
Bir sonraki veriye geçmesini belirttik.Son olarak sayfaları ekrana yazdıracağız.
<%
for y=1 to sayfa
if CINT(TRIM(sf))=CINT(TRIM(y)) then%>
[<%response.write "" & y %>"><%
else
response.write " " & y & ""
end if
%><%next%>
Böylece sayfalatma işlemimizi tamamlamış olduk."rs.pagesize = 10" yazan yerdeki 10 numarasını değiştirerek bir sayfada kaç tane veri olacağını belirleyebilirsiniz.
Kodları sırasıyla yerlerine yerleştirmeniz önemlidir.
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
Maillist Yapımı
Bu konuda Maillist yapımını öğreneceğiz.
ılk önce hangi bileşeni kullanarak mail göndereceğimiz önemlidir.
Ben en çok kullanılan bileşen olan Jmail bileşenini kullanacağım.
Tabi böylelikle dışarı mail atmış oluyoruz.Bunu mail adresimize giriş yapmadan yapamayız.
Mail kodumuz aşağıdaki gibi olacak.
<%
Set Jmail = Server.Createobject("JMail.Message")
Jmail.Charset = "ISO-8859-9"
Jmail.From = "mail@domain.com"
Jmail.MailServerUserName = "Kullanıcı adım(mail@domain.com)"
Jmail.MailServerPassWord = "sifrem(şifre)"
Jmail.Subject = "Maillist"
Jmail.AddRecipient "birisi@mail.com"
Jmail.Body = "Maillist yapımı gönderilecek mesaj"
Jmail.Send("mail.domain.com")
Jmail.close
%>
Böylece kendi mail'ımızdan "birisi@mail.com" a "Maillist yapımı gönderilecek mesaj" mesajını yollamış olduk.
şimdi bunu vertabanımızdan aldığımız bütün isimlere sırayla gönderme koduna çevirelim.
Mesela veritabanımızdaki mailları "mail" alanı farzedelim.
<%
On error resume next
do while not rs.eof
Set Jmail = Server.Createobject("JMail.Message")
Jmail.Charset = "ISO-8859-9"
Jmail.From = "mail@domain.com"
Jmail.MailServerUserName = "Kullanıcı adım(mail@domain.com)"
Jmail.MailServerPassWord = "sifrem(şifre)"
Jmail.Subject = "Maillist"
Jmail.AddRecipient rs("mail")
Jmail.Body = "Maillist yapımı gönderilecek mesaj"
Jmail.Send("mail.domain.com")
rs.movenext
loop
Jmail.close
%>
Böylece veritabanımızdaki mailların hepsine sırayla aynı mesajı göndermiş olduk.
--------------------------------------------------------------------------
--------------------------------------------------------------------------
--------------------------------------------------------------------------
Bazı yerlerde kodlarla oynadım kusura bakmayın forumda html yazamıyoz ya ondan
Ben Aklıma geldikçe daha kod eklerim arkadaşlar kolay gelsin...
-
12.04.2005 22:24 #2
- Katılım Tarihi
- 2004
- Yer
- Balıkesir/Bandırma
- Mesaj
- 461
teşekkürler.....
-
15.04.2005 15:58 #3
teşekkürler
Alıntıyla YanıtlaBenzer Başlıklar
-
Bedava Nokia Uygulamalar
cemtcm tarafından Mobil Aygıtlar forumundaYanıt: 3Son Mesaj: 25.01.2006, 00:21 -
16 bit uygulamalar
fatcom99 tarafından Yazılım forumundaYanıt: 1Son Mesaj: 12.09.2005, 08:01 -
symbian uygulamalar bu sitede..
xunrealx tarafından Web İnceleme forumundaYanıt: 2Son Mesaj: 14.01.2005, 21:18 -
Mobil uygulamalar
JackBlack tarafından Programlama Dilleri forumundaYanıt: 0Son Mesaj: 27.12.2004, 20:25 -
linux'ta uygulamalar...
baykush tarafından Linux forumundaYanıt: 5Son Mesaj: 10.10.2002, 13:31
Access Point Önerisi?
Bugün, 18:55 / Donanım