Request.UserHostAddress

Tabi ki bu kodu direk böyle yazdığımız zaman ekrana IP adresimizi vericek değil. Ekrana yazdırabilmemiz için `response.write` komutu içinde bu komutu kullanmamız gerekmektedir.

Response.Write(Request.UserHostAddress)

`Request.UserHostAddress` komutunda ki `Request` ve `UserhostAddress` kodcuklarını inceleyelim. `Request`, İngilizce’den Türkçe’ye çevirilicek olursa ‘istek’ anlamına gelmektedir. ‘İstek’ deyince akla ‘Ne isteği?’ gibi bir soru gelebiliyor. Bu kodu kullanarak form vb. yerlerden isteklerde bulunabiliriz. `UserHostAddress` ile de sayfayı açan kullanıcının kullanmış olduğu IP adresini istedik.

<%@ Import Namespace="System.Data.OleDb" %>

Alttaki kodlarda `page_load` bölümümüzün,

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
dim conn,sql,rs
conn=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("veritabanı.mdb"))
conn.Open()
sql=New OleDbCommand("INSERT INTO üyeler(ad,soyad) values('ali','barın')",conn)
sql.ExecuteNonQuery()
conn.close()
End Sub

Bu kodlarda ilk önce 3 değişken tanımladık. Değişken adları `conn`, `sql`, `rs`. `conn` değişkenine bağlantı türünü ve veritabanı dosyasının adını belirtiyoruz. Bağlantı türünü ve dosya adını belirttikten sonra `conn.Open()` kodu ile veritabanına bağlanıyoruz. Daha önce tanımlamış olduğumuz `sql` değişkeninde veritabanında işlenicek olan kodumuz bulunmaktadır. `sql.ExecuteNonQuery()` koduylada `sql` değişkeninde tanımlamış olduğumuz kodumuzu veritabanında işlettiriyoruz. `conn.close()` koduylada daha önce bağlandığımız veritabanından bağlantımızı kapatıyoruz. Kısacası bu kadar fakat veritabanında işlenicek olan yani SQL kodumuzu açıklayacak olursak şöyle bir paragraf daha çıkıyor ortaya. SQL sorgusunda ki kodlara göre tablomuzun adı `üyeler`, veri eklenicek olan sütünlarımızın adı `ad`, `soyad` ve bu sütünlara sırasıyla `ali` ve `barın` değerleri ekleniyor. `values` yani değer bölümünde ki sıra `üyeler(ad,soyad)` bölümünde ki sıraya göre gitmektedir.

İlk önce sayfamıza bir tane file upload nesnesi ekliyoruz. File upload nesnesinin id sini “dosyam” koyuyoruz. Ardından bir tane id si “dosyaadi” olan textbox ve id si “mesaj” olan bir label ekliyoruz. Son olarakta dosya yükleme işlemimizi gerçekleştirmek için butonumu ekliyoruz. Butonumuzun ID sini “yukle” olarak değiştiriyoruz. Butonumuza çift tıklayıp aşağıdaki kodları kendinize göre değiştirip yazıyorsunuz.

	dosyam.PostedFile.SaveAs("c:\dizinadi\" & dosyaadi.Value)
	mesaj.text = "Dosya yüklendi!"

Üstteki kodda “c:\dizinadi\” yazan yeri dosyaları yüklüyeceğiniz dizin adresi ile değiştiriniz. Bölüm 1 bu kadar. Bölüm 2 de yüklediğimiz resimleri anında önizlemeyi ve dosyaların adlarını rastgele rakamlarla değiştirerek aynı isimli dosyaları üst üste yazmayı %90 civarın engellemeyi göstericem.

<%@ import namespace="System.Web.Mail" %>

Bu ‘Namespace’ satırını ekledikten sonra bir butonun click ine veya ‘page_load’ ‘a şu kodları yazıyoruz.

        Dim yenimail As New MailMessage 'mail nesnesi oluş

        yenimail.from = "gonderen@hotmail.com" 'gönderen kişinin mail adresi
        yenimail.to = "kime@hotmail.com" 'mail kime gidicek onun adresi
        yenimail.subject = "deneme mail" 'mailin konusu
        yenimail.body = "mesaj" 'mailin içeriği
        SmtpMail.SmtpServer = "mail.sunucuadresi.com" 'mailin gönderiliceği sunucu adresi. örn; mail.alicantari.com
        SmtpMail.Send(yenimail)
        Response.Write("Mail başarı ile gönderildi!")
        Response.End()

Bu kodlardaki gerekli yerleri değiştirerek ve isteğinize göre değiştirirek kullanabilirsiniz. Bu kodlar sayesinde textbox, buton gibi nesneleri kullanıp ve ajax ile desteklediğiniz zaman ortaya gayet güzel bir iletişim formu çıkacaktır. (:
Not: ‘ işaretinden sonraki yerler yorum yerleridir. Yani buradaki kodlar tarayıcılarda gözükmemektedir.

yazi1.visible = false

yazi1 ID li yazı kutumuzun görünmesi için yazılabilicek kod.

yazi1.visible = true

Not: yazi1 ID li yazı kutumuz zaten normalde görünür halde bulunur. Fakat görünmez yaptıktan sonra görünür yapmak için bu kod kullanılır.

• İstediğin seçeneğe ayrı ayrı değer ve yazı verebilirsiniz.
• AutoPostBack özelliği..
• Listede seçili olan seçenekin yazısını veya değerini ayrı ayrı gösterebilirsiniz.
• Listenin enini ve boyunu ayarlıyabiliriz.

1. İstediğin seçeneğe ayrı ayrı değer ve yazı

Örnek dropdownlist

<asp:DropDownList ID="dropdownlist1" runat="server">
<asp:ListItem Value="secenek1_deger">seçenek1_yazı</asp:ListItem>
<asp:ListItem Value="secenek2_deger">seçenek2_yazı</asp:ListItem>
</asp:DropDownList>

2. AutoPostBack

Bu özellik sayesinde dropdownlist te bir seçenek seçildiği zaman bulunduğu sayfa kendi içinde yenilenir.
AutoPostBack i aktif edelim

<asp:DropDownList ID="dropdownlist1" runat="server" AutoPostBack="true">
</asp:DropDownList>

3. Seçeli olan seçeneğin yazısı ve değerini gösterme

dropdownlist1 ID li dropdownlist teki seçili seçeneğin değerini ve yazısını gösterelim. SelectedValue ile değerini, SelectedItem ile de yazısını gösterdik.

<%@ Page Language="VB"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Write(DropDownList1.SelectedValue)
        Response.Write(DropDownList1.SelectedItem)
    End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>asp.net ~ webogrencisi.com</title>
</head>
<body>
<form id="form1" runat="server">
<asp:DropDownList ID="DropDownList1" runat="server" AutoPostBack="true">
<asp:ListItem Value="secenek1_deger">seçenek1_yazı</asp:ListItem>
<asp:ListItem Value="secenek2_deger">seçenek2_yazı</asp:ListItem>
</asp:DropDownList>
</form>
</body>
</html>

4. Listenin eni ve boyunu ayarlamak

width ve height parametrelerini kullanıp ayarlıyalım.

<asp:DropDownList ID="dropdownlist1" runat="server" width="100" height="20">
</asp:DropDownList>

<script runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 DropDownList1.Items.Add(TextBox1.Text)
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 DropDownList1.Items.Remove(TextBox1.Text)
End Sub
</script>

default.aspx

<form id="form1" runat="server">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" onclick="Button1_Click" Text="Button" />
<asp:Button ID="Button2" runat="server" onclick="Button2_Click" Text="Button" />
<br />
<asp:DropDownList ID="DropDownList1" runat="server">
<asp:ListItem>seçenek1</asp:ListItem>
<asp:ListItem>seçenek2</asp:ListItem>
</asp:DropDownList>
</form>