zekiakdogan.net RSS Servisi

CodeBehind taraflı DataTable oluşturma

04.03.2010 06:26:54

private DataSet Data()
    {

        DataTable dt = new DataTable();
        dt.Columns.Add("Id", typeof(int));
        dt.Columns.Add("Name", typeof(string));

        dt.Rows.Add(new object[] { 1, "aaaa" });
        dt.Rows.Add(new object[] { 2, "bbbb" });
        dt.Rows.Add(new object[] { 3, "cccc" });
        dt.TableName = "Parent";

DataTable dtc = new DataTable();
        dtc.Columns.Add("Id", typeof(int));
        dtc.Columns.Add("Qul", typeof(string));

        dtc.Rows.Add(new object[] { 1, "aaaa" });
        dtc.Rows.Add(new object[] { 2, "bbbb" });
        dtc.Rows.Add(new object[] { 3, "bbbb" });
        dtc.TableName = "Child";

        DataSet ds = new DataSet();
        ds.Tables.Add(dt);
        ds.Tables.Add(dtc);

    }

CodeBehind kısmında javascript kullanımı

04.03.2010 06:24:19

Public Shared Sub CreateMessageAlert(ByVal strMessage As String)
        Dim guidKey As Guid = Guid.NewGuid()
        Dim pg As Page = HttpContext.Current.Handler
        Dim strScript As String = “alert(‘” & strMessage & “‘);”
        pg.ClientScript.RegisterStartupScript(pg.GetType(), guidKey.ToString(), strScript, True)
    End Sub

Update Panel içerisinde javascript kullanımı

04.03.2010 06:22:37

//Codebehind tarafında javascriptimizi oluşturacak fonksyon
public void CreateMessageAlertInUpdatePanel(UpdatePanel up, string strMessage)
    {
        string strScript = "alert('" + strMessage + "');";
        Guid guidKey = Guid.NewGuid();
        ScriptManager.RegisterStartupScript(up, up.GetType(), guidKey.ToString(), strScript, true);
    }

// Kullanımı

CreateMessageAlertInUpdatePanel(Me.UpdatePanel1, "Merhaba")

XML kullanarak gridview'de insert,update,delete işlemleri

12.02.2010 02:58:02

XML kodları,

<?xml version="1.0" standalone="yes"?>
<comments><comment>
<author>1Ahmet</author>
<email>ahmet@gmail.com</email>
<text>sdsdsd</text>
<date>08.02.2010</date>
<path>07.jpg</path>
<approve>true</approve>
</comment>

HTML kodları

<asp:GridView ID="gvitems" runat="server" OnRowEditing="Editdata" OnPageIndexChanging="pageddata"
        OnRowDeleting="Deletedata" OnRowUpdating="Updatedata" OnRowCancelingEdit="Canceldata"
        PageSize="10" AllowPaging="True" CellPadding="4" ForeColor="#333333" AutoGenerateColumns="False"
        Width="100%" GridLines="None" OnRowDataBound="gvitems_RowDataBound">
        <RowStyle BackColor="#F7F6F3" ForeColor="#333333" />
        <PagerSettings Position="Bottom" />
        <FooterStyle BackColor="#5D7B9D" ForeColor="White" Font-Bold="True" />
        <PagerStyle BackColor="#284775" ForeColor="White" HorizontalAlign="Center" />
        <SelectedRowStyle BackColor="#E2DED6" Font-Bold="True" ForeColor="#333333" />
        <HeaderStyle BackColor="#5D7B9D" Font-Bold="True" ForeColor="White" HorizontalAlign="Left" />
        <EditRowStyle BackColor="#999999" />
        <AlternatingRowStyle BackColor="White" ForeColor="#284775" />
        <Columns>
            <asp:TemplateField>
                <HeaderTemplate>
                    Row
                </HeaderTemplate>
                <ItemTemplate>
                    <asp:Label ID="lblRowNumber" runat="server" />
                </ItemTemplate>
            </asp:TemplateField>
            <asp:TemplateField>
                <HeaderTemplate>
                    Author
                </HeaderTemplate>
                <ItemTemplate>
                    <%#Eval("author") %>
                </ItemTemplate>
                <EditItemTemplate>
                    <asp:TextBox class="textbox" ID="txtauthor" runat="server" Text='<%#Eval("author") %>' />
                    <asp:RequiredFieldValidator ID="rfvAuthor" runat="server" ControlToValidate="txtauthor"
                        ValidationGroup="comments" ErrorMessage="Author empty.">*</asp:RequiredFieldValidator>
                </EditItemTemplate>
            </asp:TemplateField>
            <asp:TemplateField>
                <HeaderTemplate>
                    Email
                </HeaderTemplate>
                <ItemTemplate>
                    <%#Eval("email") %>
                </ItemTemplate>
                <EditItemTemplate>
                    <asp:TextBox class="textbox" ID="txtemail" runat="server" Text='<%#Eval("email") %>' />
                    <asp:RequiredFieldValidator ID="rfvEmail" runat="server" ControlToValidate="txtemail"
                        ValidationGroup="comments" ErrorMessage="Email empty.">*</asp:RequiredFieldValidator>
                    <asp:RegularExpressionValidator ID="revEmail" runat="server" ErrorMessage="Email format."
                        ControlToValidate="txtemail" ValidationGroup="comments" ValidationExpression="\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"></asp:RegularExpressionValidator>
                </EditItemTemplate>
            </asp:TemplateField>
            <asp:TemplateField>
                <HeaderTemplate>
                    Text
                </HeaderTemplate>
                <ItemTemplate>
                    <%#Eval("text") %>
                </ItemTemplate>
                <EditItemTemplate>
                    <asp:TextBox class="textbox" Rows="15" Columns="50" ID="txttext" runat="server" TextMode="MultiLine"
                        Text='<%#Eval("text") %>' />
                    <asp:RequiredFieldValidator ID="rfvText" runat="server" ControlToValidate="txttext"
                        ValidationGroup="comments" ErrorMessage="Text empty.">*</asp:RequiredFieldValidator>
                </EditItemTemplate>
            </asp:TemplateField>
            <asp:TemplateField>
                <HeaderTemplate>
                    Date
                </HeaderTemplate>
                <ItemTemplate>
                    <%#Eval("date") %>
                </ItemTemplate>
                <EditItemTemplate>
                    Time:
                    <asp:TextBox class="textbox" ID="txtTime" runat="server" Text='<%# Convert.ToDateTime(Eval("date").ToString()).ToShortTimeString() %>' /><br />
                    Date:
                    <asp:TextBox class="textbox" ID="txtDate" runat="server" Text='<%# Convert.ToDateTime(Eval("date").ToString()).ToShortDateString() %>' />
                </EditItemTemplate>
            </asp:TemplateField>
            <asp:TemplateField>
                <HeaderTemplate>
                    Path
                </HeaderTemplate>
                <ItemTemplate>
                    <%#Eval("path") %>
                </ItemTemplate>
                <EditItemTemplate>
                    <asp:TextBox class="textbox" ID="txtpath" runat="server" Text='<%#Eval("path") %>' />
                </EditItemTemplate>
            </asp:TemplateField>
            <asp:TemplateField>
                <HeaderTemplate>
                    Approve
                </HeaderTemplate>
                <ItemTemplate>
                    <%#Eval("approve") %>
                </ItemTemplate>
                <EditItemTemplate>
                    <asp:DropDownList ID="drpApprove" runat="server">
                        <asp:ListItem Value="true">True</asp:ListItem>
                        <asp:ListItem Value="false">False</asp:ListItem>
                    </asp:DropDownList>
                </EditItemTemplate>
            </asp:TemplateField>
            <asp:TemplateField>
                <ItemTemplate>
                    <asp:Button class="button" ID="btnEdit" runat="server" CommandName="Edit" Text="Düzenle" />
                    <asp:Button class="button" ID="btnDelete" runat="server" CommandName="Delete" Text="Sil"
                        OnClientClick="javascript:return confirm('Silmek istediğinizden eminmisiniz?')" />
                </ItemTemplate>
                <EditItemTemplate>
                    <asp:Button class="button" ValidationGroup="comments" ID="btnUpdate" runat="server"
                        CommandName="Update" Text="Güncelle" />
                    <asp:Button class="button" ID="btnCancel" runat="server" CommandName="Cancel" Text="İptal" />
                </EditItemTemplate>
            </asp:TemplateField>
        </Columns>
    </asp:GridView>
    <hr style="height: 15; text-align: left; color: #FF0000; width: 100%" />
    <div>
        <table>
            <tr>
                <td colspan="2" align="center">
                    <strong>NEW</strong>
                </td>
            </tr>
            <tr>
                <td>
                    <strong>Author :</strong>
                </td>
                <td>
                    <asp:TextBox class="textbox" ID="txtNewAuthor" runat="server" />
                    <asp:RequiredFieldValidator ID="rfvNewAuthor" runat="server" ControlToValidate="txtNewAuthor"
                        ValidationGroup="new" ErrorMessage="Author empty.">*</asp:RequiredFieldValidator>
                </td>
            </tr>
            <tr>
                <td>
                    <strong>Email :</strong>
                </td>
                <td>
                    <asp:TextBox class="textbox" ID="txtNewEmail" runat="server" />
                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtNewEmail"
                        ValidationGroup="new" ErrorMessage="Email empty.">*</asp:RequiredFieldValidator>
                    <asp:RegularExpressionValidator ID="revEmail" runat="server" ErrorMessage="Email format."
                        ControlToValidate="txtNewEmail" ValidationGroup="new" ValidationExpression="\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*">*</asp:RegularExpressionValidator>
                </td>
            </tr>
            <tr>
                <td>
                    <strong>Text :</strong>
                </td>
                <td>
                    <asp:TextBox class="textbox" ID="txtNewText" Rows="15" Columns="50" runat="server"
                        TextMode="MultiLine" />
                    <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="txtNewText"
                        ValidationGroup="new" ErrorMessage="Text empty.">*</asp:RequiredFieldValidator>
                </td>
            </tr>
            <tr>
                <td>
                    <strong>Date :</strong>
                </td>
                <td>
                    <asp:TextBox class="textbox" ID="txtNewDate" runat="server" />
                    <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="txtNewDate"
                        ValidationGroup="new" ErrorMessage="Date empty.">*</asp:RequiredFieldValidator>
                </td>
            </tr>
            <tr>
                <td>
                    <strong>Path :</strong>
                </td>
                <td>
                    <asp:TextBox class="textbox" ID="txtNewPath" runat="server" />
                    <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="txtNewPath"
                        ValidationGroup="new" ErrorMessage="Path empty.">*</asp:RequiredFieldValidator>
                </td>
            </tr>
            <tr>
                <td>
                    <strong>Approve :</strong>
                </td>
                <td>
                    <asp:DropDownList ID="drpApprove" runat="server">
                        <asp:ListItem Value="true">True</asp:ListItem>
                        <asp:ListItem Value="false">False</asp:ListItem>
                    </asp:DropDownList>
                    <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="txtNewPath"
                        ValidationGroup="new" ErrorMessage="Path empty.">*</asp:RequiredFieldValidator>
                </td>
            </tr>
            <tr>
                <td colspan="2">
                    <asp:Button class="button" ValidationGroup="new" ID="btnAddComment" runat="server"
                        Text="Kaydet" OnClick="btnAddComment_Click" />
                </td>
            </tr>
        </table>
    </div>

Code Behind kısmı

void Page_Load(object sender, EventArgs e) if (!Page.IsPostBack)
{
GetData();
}
}

void GetData()
{
DataSet ds = new DataSet();
ds.ReadXml(Server.MapPath("tempcomments.xml"));
gvitems.DataSource = ds;
gvitems.DataBind();
} protected void Editdata(object s, GridViewEditEventArgs e)

{
gvitems.EditIndex = e.NewEditIndex;
GetData();
}
protected void Deletedata(object s, GridViewDeleteEventArgs e)
{
GetData();
DataSet ds = gvitems.DataSource as DataSet;
ds.Tables[0].Rows[gvitems.Rows[e.RowIndex].DataItemIndex].Delete();
ds.WriteXml(Server.MapPath("tempcomments.xml"));
GetData();
}

protected void Canceldata(object s, GridViewCancelEditEventArgs e)
{
gvitems.EditIndex = -1;
GetData();
}
protected void Updatedata(object s, GridViewUpdateEventArgs e)
{
int i = e.RowIndex;
string author = (gvitems.Rows[e.RowIndex].FindControl("txtauthor") as TextBox).Text;
string email = (gvitems.Rows[e.RowIndex].FindControl("txtemail") as TextBox).Text;
string text = (gvitems.Rows[e.RowIndex].FindControl("txttext") as TextBox).Text;
string date = (gvitems.Rows[e.RowIndex].FindControl("txtdate") as TextBox).Text;
string path = (gvitems.Rows[e.RowIndex].FindControl("txtpath") as TextBox).Text;
string approve = (gvitems.Rows[e.RowIndex].FindControl("drpApprove") as DropDownList).SelectedValue;
gvitems.EditIndex = -1;
GetData();
DataSet ds = (DataSet)gvitems.DataSource;
ds.Tables[0].Rows[i]["author"] = author;
ds.Tables[0].Rows[i]["email"] = email;
ds.Tables[0].Rows[i]["text"] = text;
ds.Tables[0].Rows[i]["date"] = date;
ds.Tables[0].Rows[i]["path"] = path;
ds.Tables[0].Rows[i]["approve"] = approve;
ds.WriteXml(Server.MapPath("tempcomments.xml"));
GetData();
}

protected void pageddata(object s, GridViewPageEventArgs e)
{
gvitems.PageIndex = e.NewPageIndex;
GetData();
}
protected void btnAddComment_Click(object sender, EventArgs e)
{
GetData();
DataSet ds = gvitems.DataSource as DataSet;
DataRow dr = ds.Tables[0].NewRow();
dr["author"] = txtNewAuthor.Text;
dr["email"] = txtNewEmail.Text;
dr["text"] = txtNewText.Text;
dr["date"] = txtNewDate.Text;
dr["path"] = txtNewPath.Text;
dr["approve"] = txtNewPath.Text;
ds.Tables[0].Rows.Add(dr);
ds.AcceptChanges();
ds.WriteXml(Server.MapPath("tempcomments.xml"));
GetData();
txtNewAuthor.Text = string.Empty;
txtNewEmail.Text = string.Empty;
txtNewText.Text = string.Empty;
txtNewDate.Text = string.Empty;
txtNewPath.Text = string.Empty;
}

protected void gvitems_RowDataBound(object sender, GridViewRowEventArgs e)
{
if (e.Row.RowType == DataControlRowType.DataRow)
{
if (e.Row.RowIndex == gvitems.EditIndex)
{
DataRowView dr;
dr = (DataRowView)e.Row.DataItem;
DropDownList drpApprove = e.Row.FindControl("drpApprove") as DropDownList;
drpApprove.SelectedValue = dr["approve"].ToString();
}
(e.Row.FindControl("lblRowNumber") as Label).Text = (e.Row.RowIndex + 1 + (gvitems.PageIndex * 10)).ToString();
}
}

Jquery kullanarak İlk tıklamadan sonra butonu disable etme

26.11.2009 03:15:25

$("form").submit(function() {

$(":submit", this).attr("disabled", "disabled");

});

</script>

Server.Transfer kullanarak hedef sayfaya veri gönderme

26.11.2009 03:13:56

Source Page
protected void Button1_Click(object sender, EventArgs e)

{

HttpContext CurrentCon = HttpContext.Current;

CurrentCon.Items.Add("CatID", "Computer");

Server.Transfer("Destination.aspx");

}

Destination Page

protected void Page_Load(object sender, EventArgs e)

{

HttpContext CurrentCon = HttpContext.Current;

string CatID = CurrentCon.Items["CatID"].ToString();

Response.Write(CatID);

}

Response.Redirect() ile Yönlendirilecek Sayfayı Yeni Pencerede Açmak

25.11.2009 11:40:58

Bundan 3-4 yıl kadar önce sunucu tarafında yapacağım sayfa yönlendirmesini yeni sayfada açma işlemini gerçekleştirmek için bir hayli araştırma yapmış ama sonucuna ulaşamamıştım. Aslında o kadar da zor değilmiş! Bazı durumlarda code-behind tarafında yazacağımız kodların içerisinde Response.Redirect metodunu kullanarak belirli bir sayfaya yönlendirme yapabiliyoruz. Peki bu yönlendirme işleminde açılacak olan sayfanın, yeni bir tarayıcı penceresinde görüntülenmesini nasıl sağlarız? Aslında bu sorunun cevabının Response.Redirect metoduyla hiçbir ilgisi yok. Olay tamamen bu metodu tetikleyen kontrol üzerinde yapılacak bir işlemle çözülebiliyor. Örneğin yönlendirmeyi Button kontrolü gerçekleştirecek ise aşağıdaki kodlar işimizi görecektir. Bu arada butonun form1 adındaki form elementi içerisinde yer alması gerektiğini söylememe gerek yoktur sanırım :)

<asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="Tıkla Bakalım" OnClientClick="form1.target='_blank';" />

Button'ın Click olay metoduna standart Redirect metodumuzu yazmak yeterli olacaktır.

protected void Button1_Click(object sender, EventArgs e)
{
    Response.Redirect("Default.aspx");
}

Peki işleyiş nasıl? Button içerisinde eklediğimiz ve client tarafında çalışan form1.target='_blank' ifadesi butona tıklandığında işleyişi yeni bir pencereye devrediyor. Dolayısıyla açılan yeni pencere üzerinde sayfa postback oluyor ve Default.aspx sayfasına yönlendirme yapılıyor.

Alıntıdır

URL ReWriting ve CSS

07.10.2009 12:12:43

Projenizde URL ReWriting yaparken Css 'in çalışmadığı zamanlar olabiliyor,

Çözüm yollarını aşağıda bulunmakta.

1- CSS dosyasınızın başına "/" koyacaksınız, örneğin:
<link href="/style.css" rel="stylesheet" type="text/css" />

2- CSS dosyanızın adresini direkt yazacaksınız, örneğin:
<link href="http://www.zekiakdogan.net/style.css" rel="stylesheet" type="text/css" />

3-Meta tagı olarak aşağıdaki kodu ekleyin, örneğin:

Seni Sana Terk Ediyorum

25.09.2009 15:26:07

Seni Sana Terk Ediyorum

geceler telaşla koşuyordu gölgeme
bir gece kuşu daha uçuyordu avuçlarından
yırtıyordu gecenin karanlığını baykuş sesleri
arz inliyordu yıldızların aksine
en sade suretini koyup çıkınıma /sırtıma atıp
seni sana terk ediyorum...

bozkırın koynunda deli dolu at süren ben
dökülen eylüllere soktum gökyüzünün maviliğini
ayın dolmuş haliydi son durağım
içimdeki trenler çoktan devrildi, vagonlar darmadağın
çatlamış dudağımı şiirlerle ıslatıp
seni sana terk ediyorum...

kanıyor ayak uçlarım dilime inat
kaçırıyorum bakışlarımı alev küresinden
bıçaklar kaygan zeminlerde bilenirken
geceye sızan birkaç damla kan
gözlerimden yüreğime sessizce akan
en şiddetli zehri acılarıma katıp
seni sana terk ediyorum...

kaldırım taşlarında uyuttuğum düşleri
bir atımlık barut kokan sabrımı
gün görmemiş hayâllerime vuruyorum
tütsüye mahkûm petekten oğul almak
zırdeli şafaklara ağlamak
bana mı düştü yar
sabahla gidiyorum, balımı peteklere satıp
seni sana terk ediyorum...

kaç kalibreydi boynumdan vurduğun söz
sahi ceylanlar neden hep boynundan vurulur
gölgem kan kaybından ölmekte
kırılan bir kalemin hesabı mı yapılır
sevdam yüreğimde musallaya yatıp
seni sana terk ediyorum...

Hürgeneral

25.09.2009 15:23:25

20.09.2009 itibariyle askerlik görevimi tamamlamış bulunmakta ve yeniden sivil hayata dönmenin verdiği mutluluğu yaşamaktayım ..

O Şimdi Asker

09.04.2009 14:21:46

Askerliğimi(acemilik) MEBS. OKL. VE EĞT. MRK. K.LIĞI MAMAK ANKARA 'ta kısa dönem er olarak yapacağımdan dolayı bir süre buralarda olamayacağım..

Jquery kullanarak asp.net sayfalarında web servis çalıştırma

05.04.2009 13:54:50

Öncelikle Sayfamıza jquery kütüphanesini import etmemiz gerekiyor.

Daha sonra sayfamızda kullanacağımız javascript kodlarımız.

function getir(al, yaz) {

var formVeri = '{ipadresi:"' + al + '"}';

$.ajax({

type: "POST", //Post metodunu kullanacağımızı belirtiyoruz.

url: "statistics.aspx/bilgigetir", //Web servisimizin bulunduğu sayfa ve servis adı

data: formVeri,

contentType: "application/json; charset=utf-8",

dataType: "json",

error: function() { $('#result').html("Bir hata algılandı: " + Error); },

success: function(msg) {

$("#" + yaz).html(msg.d);

}

});

}

</script>

Aşağıdada HTML kontrolümüz ve onclick olayında javascriptimizi çağıracak fonksyonumuz.Onclick olayında 2 parametremiz var, birinci parametre bilgileri alınacak ip adresini, ikinci parametre ise sonucu göstermek istediğimiz html kontrolü.

CODEBEHİND tarafına gelirsek, öncelikle aşağıdaki kütüphaneleri sayfamıza eklememiz gerekiyor;

using System.Web.Services;

using System.Xml;

Veeeeee Web metodumuz…

[WebMethod]

public static string bilgigetir(string ipadresi)

{

string url = "http://www.ipmango.com/api.php?ip=" + ipadresi;

XmlDocument xmlDocument = new XmlDocument();

xmlDocument.Load(url);

System.Xml.XmlNode xnIpadresi = xmlDocument.SelectSingleNode("//www.ipmango.com//ipaddress");//

System.Xml.XmlNode xncity = xmlDocument.SelectSingleNode("//www.ipmango.com//city");//

System.Xml.XmlNode xnregion = xmlDocument.SelectSingleNode("//www.ipmango.com//region");//

System.Xml.XmlNode xncountryname = xmlDocument.SelectSingleNode("//www.ipmango.com//countryname");//

System.Xml.XmlNode xnlatitude = xmlDocument.SelectSingleNode("//www.ipmango.com//latitude");//

System.Xml.XmlNode xnlongitude = xmlDocument.SelectSingleNode("//www.ipmango.com//longitude");//

System.Xml.XmlNode xncurrency = xmlDocument.SelectSingleNode("//www.ipmango.com//currency");//

string metin = "İp: " + xnIpadresi.InnerText + "</br>";

metin += "Şehir: " + xncity.InnerText + "</br>";

metin += "Bölge: " + xnregion.InnerText + "</br>";

metin += "Ülke: " + xncountryname.InnerText + "</br>";

metin += "Enlem: " + xnlatitude.InnerText + "</br>";

metin += "Boylam: " + xnlongitude.InnerText + "</br>";

metin += "Para Birimi: " + xncurrency.InnerText;

return "<br/><br/><strong>İp İstatistikleri</strong><br></br>" + metin;

}

Muhsin Yazıcıoğlu: Üşüyorum

05.04.2009 03:57:38

Bir coşku var içimde bu gün kıpır kıpır
Uzak çok uzak bir yerleri özlüyorum
Gözlerim parke parke taş duvarlarda
Açılıyor hayal pencerelerim
Hafif bir rüzgar gibi süzülüyorum
Kekik kokulu koyaklardan aşarak
Güvercinler ülkesinde dolaşıyor
Bir çeşme başı arıyorum
Yarpuzlar arasında kendimi bırakıp
Mis gibi nane kokuları arasında
Ruhumu dinlemek istiyorum
Zikre dalmış her şey
Güne gülümserken papatyalar
Dualar gibi yükselir ümitlerim
Güneşle kol kola kırlarda koşarak
Siz peygamber çiçekleri toplarken
Ben çeşme başında uzanmak istiyorum
Huzur dolu içimde
Ben sonsuzluğu düşünüyorum
Ey sonsuzluğun sahibi, sana ulaşmak istiyorum
Durun kapanmayın pencerelerim
Güneşimi kapatmayın
Beton çok soğuk, üşüyorum...

Muhsin YAZICIOĞLU

Mail adreslerinden kontakt listesini import etme (Email Contact İmporter)

04.04.2009 00:09:00

Biara facebook gibi birkaç sitede gördükten sonra merak etmiş ve akabinde ufak bir araştırma yaptım, ekteki dosyada gmail,hotmail,live ve yahoo adreslerindeki email listesine ulaşabilmenizi sağlayan kodlar mevcut.

EKLER

Küçükyalı'da bir yedek subay sınavı macerası

03.04.2009 14:29:00

Bugün yedek sınav sınavlarının 3. ve son gününde sabah 9 da kalkıp küçükyalı 'ya gittim, forumlardan takip ettiğim kadarıyla ilk 2 gün bayağı yoğunmuş, hatta internette gecenin 3.30 unda sıra alıp öğlen 13.00 civarları işlemlerini bitirerek çıkanların olduğuna dair duyumlar bulunmakta..
Nizamiyeden içeri girdikten sonra bizi sınav merkezine götürecek otobüsün dolmasını beklemek sanırım yarım saat sürmüştür,bekleme süresince sağolsun direksyonda bulunan askerin radyonun hakimi olması ister istemez benim gibi bekleyen tüm arkadaşlara arabesk kültürü kattı :) internette bazı kişilerin serzenişlerine rağmen bizim sıraya girip, işlemlerimizi halledip sınavdan çıkmamız ve hatta ikram edilen yemeği (et+pilav+tulumba) yememiz tahminim 2 saati bulmamıştır. Ama hernedense yedeksubay adaylarını tekrar nizamiye kapısına geri götürecek otobüsün gelmesini beklemek 1.30 saatimizi aldı.
Sonuç olarak bu işide halletmiş bulunmakta ve sınav sonucunu fazla merak içinde olmasamda ayın 10 unda açıklanmak üzere beklemeye koyulmuş bulunmaktayım :) Aslında bu yazıyı daha geyik bir metin şeklindede yazabilirdim ama neme lazım sonuçta ayın 1 inden itibaren asker sayılıyoruz, burada paylaştıklarımız aleyhimizde delil olarak kullanılabilir. :)

Asp.Net te saat dilimi problemi

02.04.2009 04:21:22

//Şuanki zamanı alıyoruz
DateTime serverTime = DateTime.Now;
//UTC yani greenwich teki zaman hesapliyoruz
DateTime utcTime = dT.ToUniversalTime();
//Trkiye icin 2 saat farki ekliyoruz
DateTime turkeyTime = utcTime.AddHours(2);

Bütün belgelerinizi kolayca PDF yapın

25.03.2009 16:59:53

Sisteminize sanal bir yazıcı olarak kurulan doPDF ile ücretsiz olarak gördüğünüz her şeyi PDF dosyası haline getirebilir ve kaydedebilirsiniz. Programın ayarlarından kağıt boyutunu ve çözünürlüğü belirledikten sonra PDF biçimine dönüştüreceğiniz e-postayı ,internet sitesini veya başka bir belgeyi açarak öncelikle Yazdır butonuna tıklıyor ve karşınıza çıkan pencerede doPDF sanal yazıcısını belirliyorsunuz. Ardından kayıt konumunu belirlediğiniz yerde dökümanınızın PDF biçimli halini görebilirsiniz.

Yazılımı indirmek ve teknik destek almak için tıklayın

Yenilendim!

25.03.2009 15:59:52

Sitenin tasarımını tamamen SEM 'den afiriklemiş olsamda kodlama kısmını işteyken bulduğum boş vakitlerde bitirdim sayılır, ufak tefek hatalar illaki olacak ama askere gidene kadar o hatalarıda en kısa sürede bitireceğime inanıyorum.Yönetim paneli eskiye nazaran çok daha esnek, ayrıca etiketleme ve arşiv bölümünüde eklemiş bulunmaktayım.Lafı uzatmaya gerek yok çünki saat 01:00 ve benim sabahın 6 sında kalkmaya kendimi alıştırmam lazım:) Askerde vakit bulursam eğer anılarımı burada paylaşma eğilimindeyim amabu konuda nekadar başarılı olurum orası tartışılır:)

Şimdilik bukadar...

Hashtable ile DataLis'e veri bağlama

21.08.2008 12:22:44

<%@Page Language="C#"%>

<html>

<body>

<asp:DataList ID="dlTest"

runat="server"

forecolor="#000000"

backcolor="#ffffff"

cellpadding="3"

gridlines="none"

width="50%" >

<%# Eval("Key", "<font size='1'>{0}</font>") %>

<%# Eval("Value", "<font size='1'>${0:f2}</font>") %>

</itemtemplate>

<%# Eval("Key", "<font size='4'>{0}</font>") %>

<%# Eval("Value", "<font size='4'>${0:f2}</font>") %>

</alternatingitemtemplate>

</asp:Datalist>

</body>

</html>

protected void Page_Load()

{

DataList'te göstereceğimiz veriler için Hashtable nesnesi tanımlıyoruz*/

Hashtable tabValues = new Hashtable(5);

tabValues.Add("A", 49.56);

tabValues.Add("B", 28.33);

tabValues.Add("C", 55);

tabValues.Add("D", 20.74);

tabValues.Add("E", 41.1);

/*Manual olarak girdiğimiz verileri DataList'e bağlıyoruz*/

dlTest.DataSource = tabValues;

dlTest.DataBind();

}

</script>

Kaynak: http://www.forxy.net/ViewKonuDetay.aspx?KonuID=209

HTML'de kullanılan bazı karakter kodları

28.07.2008 20:10:57

Bu kodlara her ihtiyaç duyduğumda google'a başvurmaktan sıkıldım :)
ğ    :    ğ
Ğ    :    Ğ
ı    :    ı
İ    :    İ
ş    :    ş
Ş    :    Ş
ü   :   ü
Ü   :   Ü
Ö   :   Ö
ö   :   ö

HTML DOM - window.clearInterval()

23.07.2008 16:52:33

window.clearInterval metodu, setInterval metodu ile ayarlanmış tekrarlama işlemini iptal eder. İptal işleminin uygulanması için setInterval metodu kurulduğunda alınan kimlik kodunun, clearInterval metoduna parametre olarak verilmesi gerekir.

Sözdizimi

window.clearInterval(tekrarKimlik)

tekrarKimlik

setInterval metodunun belirlediği kimlik numarası.

Aşağıdaki örnek, setInterval metodunun her 1000 milisaniyede Say() fonksiyonunu çağırması için ayarlanarak, bu işleme atanan kimlik kodunun alınmasını ve işlem 10 defa tekrarlandıktan sonra clearInterval ile iptal edilmesini göstermektedir.

<script type="text/javascript">

var sayilan;
var tekrarKimlik;

function saymayaBasla()
{
   sayilan = 0;
   tekrarKimlik = window.setInterval('Say()', 1000);
   Say();
}
function Say()
{
   sayilan++;
   document.getElementById('bilgiKutu').innerHTML = sayilan;
   if(sayilan == 10) 
      window.clearInterval(tekrarKimlik)
}
</script>

<input type="button" value="Saymaya Başla" onClick="saymayaBasla()" />
<div id="bilgiKutu" style="font-size:large;"></div>

HTML DOM - window.confirm() ile kontrol sağlama

23.07.2008 16:51:04

window.confirm metodu, kullanıcıya evet-hayır/olumlu-olumsuz/true-false vb. gibi iki alternatifli soru sorularak cevap alınmasını sağlayan onay kutusunun gösterilmesini sağlar.

Sözdizimi

sonuc = window.confirm(mesaj);

mesaj

Onay kutusunda gösterilecek mesaj.

Dönüş Değeri

sonuc

Olumlu yanıtta true,
Olumsuz yanıtta false,
Onay kutusu, köşesindeki 'X' ile kapatıldığında false döner.

Görsel olarak onay kutusunun başlığı ve buton yazıları değiştirilemeyeceği gibi başlığı, butonların yerleri ve yazıları tarayıcıya ve işletim sistemine göre değişiklik gösterir. Örneğin, Tamam-Vazgeç/Tamam-İptal.

Aşağıdaki örnek, window.confirm metodu ile kullanıcıya soru sorulmasını ve alınan cevaba göre mesaj gösterilmesini göstermektedir.

<script type="text/javascript">

function soruSor()
{
   var sonuc = window.confirm("Tamam mı? İptal mi?");
   if(sonuc)
      alert("Onayladınız!");
   else
      alert("Vazgeçtiniz!");
}
</script>

<input type="button" value="Soru Sor!" onClick="soruSor()"/>

HTML DOM - window.opener ile POPUP açtırmak

23.07.2008 16:49:24

window.opener özelliği, güncel pencereyi açan pencerenin referansını verir.

Sözdizimi

pencere = window.opener;

Dönüş Değeri

pencere

Güncel pencereyi açan pencerenin referansı.

window.opener özelliği güncel pencereyi açan bir pencere yoksa null döner. Bu yüzden, pratikte kullanmadan önce null olup-olmadığını kontrol etmek olası hata uyarılarını engelleyecektir.

Aşağıdaki örnek, window.opener özelliği kullanılarak güncel pencereyi açan pencerenin title özelliğinin yazdırılmasını göstermektedir.

<script type="text/javascript">

function yeniAc()
{
   window.open(document.URL,"yeni_pencere");
}	

var pencere = window.opener;
if(pencere != null)
   document.write("<br/><b>Pencere Başlığı : </b>" + pencere.document.title);

</script>

<input type="button" value="Yeni Pencere Aç" onClick="yeniAc()"/>

DataGridView'de Cross Page Kullanımı

23.07.2008 16:44:45

Default.aspx

<asp:Label ID="lblnumara" runat="server" Visible="false" />

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" CellPadding="4"

ForeColor="#333333" GridLines="None">

<asp:TemplateField HeaderText="Butoncuk">

<asp:Button Text="Tıkla" ID="btnLink" runat="server" OnClick="ShowDetay" />

</ItemTemplate>

</asp:TemplateField>

<asp:TemplateField>

</asp:TemplateField>

</Columns>

</asp:GridView>

Default.aspx.cs

protected void Page_Load(object sender, EventArgs e)

{

using (OleDbConnection conn = new OleDbConnection(ConfigurationManager.AppSettings["conn"]))

{

OleDbDataAdapter adp = new OleDbDataAdapter("", conn);

adp.SelectCommand.CommandText = "SELECT dosyaID, mahkeme FROM tbl_dava_dosya";

DataTable dt = new DataTable();

adp.Fill(dt);

GridView1.DataKeyNames = new string[] { "dosyaID" };

GridView1.DataSource = dt;

GridView1.DataBind();

}

public void ShowDetay(object sender, EventArgs e)

{

Button btnEdit = sender as Button;

btnEdit.PostBackUrl="Detay.aspx";

GridViewRow row = (GridViewRow)btnEdit.NamingContainer;

int bildirimId=Convert.ToInt32(this.GridView1.DataKeys[row.DataItemIndex].Value);

lblnumara.Text=bildirimId.ToString();

Server.Transfer("Detay.aspx",true);

}

--------------------------------------------------

Detay.aspx.cs

protected void Page_Load(object sender, EventArgs e)

{

if (PreviousPage!=null)

{

Response.Write((this.PreviousPage.FindControl("lblnumara") as Label).Text);

}

Tarih Formatı

26.06.2008 15:19:52

ASPX sayfalarında veritabanından çektiğimiz tarih formatları normalde 09.02.2006 00:00:00 şeklinde gelir, eğer formatı 09.02.2006 şeklinde göstermek istiyorsak aşağıdaki kodu kullanabiliriz.

DateTime dateTime = Convert.ToDateTime( view["tarih"] );
Label1.Text = dateTime.ToString("dd.MM.yyyy");

Server.MapPath, Session, Request, Response, Application gibi property'lerin class içinde kullanımı

01.04.2008 14:55:06

İşte sihirli kelime...
System.Web.HttpContext.Current

Değere göre Dropdownlistte postback engelleme

30.03.2008 14:07:28

Codebehind tarafı

ddlBusinessLinesL1.Attributes.Add("onchange", "if(!DisableBLPostBack('" & ddlBusinessLinesL1.ClientID & "','" & ddlReportType.ClientID & "')){return false;}")

html sayfaya eklenecek javascript

function DisableBLPostBack(ddlb,rpType)
{
var ddlbus=document.getElementById(ddlb);
var ddl=document.getElementById(rpType);

if (ddl.value==1) 'postback olmasını engellemek istediğim değer 1
{

return false;
}
else
{

return true;
}
}

Control:
<asp:DropDownList ID="ddlBusinessLinesL1" runat="server" Width="155px" AutoPostBack="True">
</asp:DropDownList>

ASP.NET ile File Manager

28.03.2008 15:43:03

using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.IO;
using System.Text;

public partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
        if (!this.IsPostBack)
        {
            string startingDir = Server.MapPath("files");
            lblCurrentDir.Text = startingDir;
            ShowFilesIn(startingDir);
            ShowDirectoriesIn(startingDir);
            btnDelete.Attributes.Add("onclick", "javascript:return confirm('Silmek istediğinizden eminmisiniz?')");
            btnCreate.Attributes.Add("onKeyPress", "return keyRestrict(event,'abcdefgğhijklmnopqrstuvwxyzABCDEFGĞHIİJKLMNOPQRSTUVWXYZ ')");
        }
    }

    void ShowFilesIn(string dir)
    {
        DirectoryInfo dirInfo = new DirectoryInfo(dir);

        lstFiles.Items.Clear();
        foreach (FileInfo fileItem in dirInfo.GetFiles())
        {
            lstFiles.Items.Add(fileItem.Name);

}
}

    void ShowDirectoriesIn(string dir)
    {
        DirectoryInfo dirInfo = new DirectoryInfo(dir);

        lstDirs.Items.Clear();
        foreach (DirectoryInfo dirItem in dirInfo.GetDirectories())
        {
            lstDirs.Items.Add(dirItem.Name);
        }
    }

    protected void cmdParent_Click(object sender, EventArgs e)
    {
        if (Directory.GetParent(lblCurrentDir.Text) != null)
        {
            if (lblCurrentDir.Text != ConfigurationManager.AppSettings["root"].ToString())
            {
                string newDir = Directory.GetParent(lblCurrentDir.Text).FullName;
                lblCurrentDir.Text = newDir;
                ShowFilesIn(newDir);
                ShowDirectoriesIn(newDir);
            }
            else
            {
                alert("Üst klasöre erişim yetkiniz yok");
                //lblMesaj.Text = "Üst klasöre erişim yetkiniz yok";
            }

}
}

    protected void btnDownload_Click(object sender, EventArgs e)
    {
        string newDir = Path.Combine(lblCurrentDir.Text, lstFiles.SelectedItem.Text);
        System.IO.Stream akisnesne;
        int tamponboyu = 32768;
        byte[] tampon = new byte[tamponboyu + 1];
        int okunanboyu;
        int kalanboyu;

        akisnesne = new System.IO.FileStream(newDir, FileMode.Open, FileAccess.Read, FileShare.Read);
        kalanboyu = (int)akisnesne.Length;
        Response.ContentType = "application/octet-stream";
        Response.AddHeader("Content-Disposition", "attachment;filename=" + lstFiles.SelectedItem.Text);
        while (kalanboyu > 0)
        {
            if (Response.IsClientConnected)
            {
                okunanboyu = akisnesne.Read(tampon, 0, tamponboyu);
                Response.OutputStream.Write(tampon, 0, okunanboyu);
                Response.Flush();
                kalanboyu = kalanboyu - okunanboyu;
            }
            else
            {
                kalanboyu = -1;
            }
        }
        if (!(akisnesne == null))
        {
            akisnesne.Close();
        }

    }
    protected void btnDelete_Click(object sender, EventArgs e)
    {
            if (lstFiles.SelectedIndex != -1)
            {
                string newDir = Path.Combine(lblCurrentDir.Text, lstFiles.SelectedItem.Text);
                //lblCurrentDir.Text = newDir;
                System.IO.File.Delete(newDir);
                ShowFilesIn(lblCurrentDir.Text);
                ShowDirectoriesIn(lblCurrentDir.Text);
                alert("Silme işlemi başarılıyla gerçekleştirildi");
            }
            else
            {
                alert("Silinecek dosya seçili değil");
            }

    }
    protected void btnUpload_Click(object sender, EventArgs e)
    {
            if (lblCurrentDir.Text != ConfigurationManager.AppSettings["root"].ToString())
            {
                if (fileup.HasFile)
                {
                    fileup.SaveAs(lblCurrentDir.Text + @"\" + fileup.FileName.ToString());
                    ShowFilesIn(lblCurrentDir.Text);
                    ShowDirectoriesIn(lblCurrentDir.Text);
                    alert("Yükleme işlemi başarıyla gerçekleştirildi");
                }
            }

    }
    void alert(string msg)
    {
        Page.ClientScript.RegisterStartupScript(this.GetType(), "messagebox", "alert('" + msg + "');", true);
    }
    protected void btnCreate_Click(object sender, EventArgs e)
    {
            if (lblCurrentDir.Text != ConfigurationManager.AppSettings["root"].ToString())
            {
                Directory.CreateDirectory(lblCurrentDir.Text + @"\" + txtCreate.Text);
                ShowFilesIn(lblCurrentDir.Text);
                ShowDirectoriesIn(lblCurrentDir.Text);
                alert(txtCreate.Text + " isminde klasör oluşturuldu.");

            }
            else
            {
                alert("Bu klasörde yeni bir klasör oluşturma yetkiniz yok");
            }

    }
    protected void btnDirDelete_Click(object sender, EventArgs e)
    {
            if (lstDirs.SelectedIndex != -1)
            {
                if (lblCurrentDir.Text == ConfigurationManager.AppSettings["root"].ToString())
                {
                    alert("Bu bölümdeki klasörleri silme yetkiniz yok");
                }
                else
                {
                    string delDir = Path.Combine(lblCurrentDir.Text, lstDirs.SelectedItem.Text);
                    System.IO.Directory.Delete(delDir);
                    ShowFilesIn(lblCurrentDir.Text);
                    ShowDirectoriesIn(lblCurrentDir.Text);
                    alert("Silme işlemi başarılıyla gerçekleştirildi");

                }
            }
            else
            {
                alert("Silinecek klasör seçilmemiş");
            }

    }
    protected void btnAsagi_Click(object sender, EventArgs e)
    {
        if (lstDirs.SelectedIndex != -1)
        {
            if (lblCurrentDir.Text == ConfigurationManager.AppSettings["root"].ToString())
            {
                if (lstDirs.SelectedItem.Text == User.Identity.Name.ToString() || lstDirs.SelectedItem.Text == "ortak")
                {
                    string newDir = Path.Combine(lblCurrentDir.Text, lstDirs.SelectedItem.Text);
                    lblCurrentDir.Text = newDir;
                    ShowFilesIn(newDir);
                    ShowDirectoriesIn(newDir);
                }
                else
                {
                    alert("Sadece kişisel ve ortak klasörlere erişim erişebilirsiniz");
                }
            }
            else
            {
                string newDir = Path.Combine(lblCurrentDir.Text, lstDirs.SelectedItem.Text);
                lblCurrentDir.Text = newDir;
                ShowFilesIn(newDir);
                ShowDirectoriesIn(newDir);
            }

}
}

    protected void btnBilgiler_Click(object sender, EventArgs e)
    {
        if (lstFiles.SelectedIndex != -1)
        {
            string fileName = Path.Combine(lblCurrentDir.Text,
            lstFiles.SelectedItem.Text);
            FileInfo selFile = new FileInfo(fileName);

            StringBuilder displayText = new StringBuilder();
            displayText.Append("Adı: ");
            displayText.Append(selFile.Name);
            displayText.Append(", Boyutu: ");
            displayText.Append(selFile.Length);
            displayText.Append(", ");
            displayText.Append("Oluştuma: ");
            displayText.Append(selFile.CreationTime.ToString());
            displayText.Append(", Enson Erişim: ");
            displayText.Append(selFile.LastAccessTime.ToString());
           alert( displayText.ToString());

        }
        else
        {
            alert("Dosya seçin");
        }
    }
}

Üstadın muhteşem şiiri!..

18.03.2008 11:43:50

Çanakkale Şehitlerine

Şu Boğaz harbi nedir? Var mı ki dünyâda eşi?
En kesif orduların yükleniyor dördü beşi.
-Tepeden yol bularak geçmek için Marmara’ya-
Kaç donanmayla sarılmış ufacık bir karaya.
Ne hayâsızca tehaşşüd ki ufuklar kapalı!
Nerde-gösterdiği vahşetle 'bu: bir Avrupalı'
Dedirir-Yırtıcı, his yoksulu, sırtlan kümesi,
Varsa gelmiş, açılıp mahbesi, yâhud kafesi!
Eski Dünyâ, yeni Dünyâ, bütün akvâm-ı beşer,
Kaynıyor kum gibi, mahşer mi, hakikat mahşer.
Yedi iklimi cihânın duruyor karşında,
Avusturalya'yla beraber bakıyorsun: Kanada!
Çehreler başka, lisanlar, deriler rengârenk:
Sâde bir hâdise var ortada: Vahşetler denk.
Kimi Hindû, kimi yamyam, kimi bilmem ne belâ...
Hani, tâuna da züldür bu rezil istilâ!
Ah o yirminci asır yok mu, o mahlûk-i asil,
Ne kadar gözdesi mevcûd ise hakkıyle, sefil,
Kustu Mehmedciğin aylarca durup karşısına;
Döktü karnındaki esrârı hayâsızcasına.
Maske yırtılmasa hâlâ bize âfetti o yüz...
Medeniyyet denilen kahbe, hakikat, yüzsüz.
Sonra mel'undaki tahribe müvekkel esbâb,
Öyle müdhiş ki: Eder her biri bir mülkü harâb.

Öteden sâikalar parçalıyor âfâkı;
Beriden zelzeleler kaldırıyor a'mâkı;
Bomba şimşekleri beyninden inip her siperin;
Sönüyor göğsünün üstünde o arslan neferin.
Yerin altında cehennem gibi binlerce lağam,
Atılan her lağamın yaktığı: Yüzlerce adam.
Ölüm indirmede gökler, ölü püskürmede yer;
O ne müdhiş tipidir: Savrulur enkaaz-ı beşer...
Kafa, göz, gövde, bacak, kol, çene, parmak, el, ayak,
Boşanır sırtlara vâdilere, sağnak sağnak.
Saçıyor zırha bürünmüş de o nâmerd eller,
Yıldırım yaylımı tûfanlar, alevden seller.
Veriyor yangını, durmuş da açık sinelere,
Sürü halinde gezerken sayısız teyyâre.
Top tüfekten daha sık, gülle yağan mermiler...
Kahraman orduyu seyret ki bu tehdide güler!
Ne çelik tabyalar ister, ne siner hasmından;
Alınır kal'â mı göğsündeki kat kat iman?
Hangi kuvvet onu, hâşâ, edecek kahrına râm?
Çünkü te'sis-i İlahi o metin istihkâm.

Sarılır, indirilir mevki-i müstahkemler,
Beşerin azmini tevkif edemez sun'-i beşer;
Bu göğüslerse Hudâ'nın ebedi serhaddi;
'O benim sun'-i bedi'im, onu çiğnetme' dedi.
Asım'ın nesli...diyordum ya...nesilmiş gerçek:
İşte çiğnetmedi nâmusunu, çiğnetmiyecek.
Şühedâ gövdesi, bir baksana, dağlar, taşlar...
O, rükû olmasa, dünyâda eğilmez başlar,
Vurulup tertemiz alnından, uzanmış yatıyor,
Bir hilâl uğruna, yâ Rab, ne güneşler batıyor!
Ey, bu topraklar için toprağa düşmüş asker!
Gökten ecdâd inerek öpse o pâk alnı değer.
Ne büyüksün ki kanın kurtarıyor tevhidi...
Bedr'in arslanları ancak, bu kadar şanlı idi.
Sana dar gelmiyecek makberi kimler kazsın?
'Gömelim gel seni tarihe' desem, sığmazsın.
Herc ü merc ettiğin edvâra da yetmez o kitâb...
Seni ancak ebediyyetler eder istiâb.
'Bu, taşındır' diyerek Kâ'be'yi diksem başına;
Ruhumun vahyini duysam da geçirsem taşına;
Sonra gök kubbeyi alsam da, ridâ namıyle,
Kanayan lâhdine çeksem bütün ecrâmıyle;
Mor bulutlarla açık türbene çatsam da tavan,
Yedi kandilli Süreyyâ'yı uzatsam oradan;
Sen bu âvizenin altında, bürünmüş kanına,
Uzanırken, gece mehtâbı getirsem yanına,
Türbedârın gibi tâ fecre kadar bekletsem;
Gündüzün fecr ile âvizeni lebriz etsem;
Tüllenen mağribi, akşamları sarsam yarana...
Yine bir şey yapabildim diyemem hâtırana.
Sen ki, son ehl-i salibin kırarak savletini,
Şarkın en sevgili sultânı Salâhaddin'i,
Kılıç Arslan gibi iclâline ettin hayran...
Sen ki, İslam'ı kuşatmış, boğuyorken hüsran,
O demir çenberi göğsünde kırıp parçaladın;
Sen ki, rûhunla beraber gezer ecrâmı adın;
Sen ki, a'sâra gömülsen taşacaksın...Heyhât,
Sana gelmez bu ufuklar, seni almaz bu cihât...
Ey şehid oğlu şehid, isteme benden makber,
Sana âgûşunu açmış duruyor Peygamber.

Mehmet Akif Ersoy

Datagrid & Datalist Çoklu Silme

03.03.2008 09:54:14

Html Kodlari

<asp:TemplateField>
<HeaderTemplate>
Seçim
</HeaderTemplate>
<ItemTemplate>
<input id="chk" runat="server" type="checkbox" value='<%# Eval("aid") %>' />
</ItemTemplate>
</asp:TemplateField>

Arka Plan Kodlari

       Dim IDlistesi As String = ""
        Dim VarMi As Boolean = False
        For Each row As GridViewRow In GWOnaysizlar.Rows
            Dim chk As HtmlInputCheckBox = CType(row.FindControl("chk"), HtmlInputCheckBox)
            If chk.Checked Then
                VarMi = True
                IDlistesi &= chk.Value & ","
            End If
        Next
        If VarMi = True Then
            IDlistesi = IDlistesi.Substring(0, IDlistesi.Length - 1)
            Dim Conn As New SqlConnection(ConfigurationManager.AppSettings("Conn"))
            Dim comm As New SqlCommand("", Conn)
            comm.CommandText = "delete from tabloadi where aid in" & "(" & IDlistesi & ")"
            If Conn.State = Data.ConnectionState.Closed Then Conn.Open()
            comm.ExecuteNonQuery()
            If Conn.State = Data.ConnectionState.Open Then Conn.Close()
        End If

Sayfadaki Tüm Div leri Gizle / Göster

02.03.2008 09:54:14

Can sikintisinda oturuken aklima div lerle ugrasmak geldi.Sayfaki tüm divleri gizlemek için asagidaki kodu kullanabilirsiniz. Eger sadece tek bir div i gizlemek isterseniz içerideki for döngüsünü silmeniz yeterli olucaktir.

}
</script>
Daha sonra sayfanin herhangi bir yerinde asagidaki sekilde kullanabiliriz.
<div id="testDiv">Form elemanlari</div>
<div id="testDiv">Form elemanlari 2</div>
<div id="testDiv">Form elemanlari 3</div>
<a href="javascript:TumDivleriGizle('none');">Hepsini Gizle</a>
<a href="javascript:TumDivleriGizle('block');">Hepsini Göster</a>

ASP.NET DataGrid to Excel File or Word File

01.03.2008 09:54:14

EXCEL

Response.Clear()
        Dim DosyaAdi As String = "Blog"
        Response.AddHeader("content-disposition", "attachment;filename=" & DosyaAdi & ".xls")
        Response.ContentType = "application/vnd.xls"
        Response.Charset = "1254"
        Dim stringWrite As New System.IO.StringWriter()
        Dim htmlWrite As New HtmlTextWriter(stringWrite)
        DWGunlukAyrinti.RenderControl(htmlWrite)
        Response.Write(stringWrite.ToString())
        Response.End()

WORD

Response.Clear()
        Dim DosyaAdi As String = "Blog"
        Response.AddHeader("content-disposition", "attachment;filename=" & DosyaAdi & ".doc")
        Response.ContentType = "application/vnd.doc"
        Response.Charset = "1254"
        Dim stringWrite As New System.IO.StringWriter()
        Dim htmlWrite As New HtmlTextWriter(stringWrite)
        DWGunlukAyrinti.RenderControl(htmlWrite)
        Response.Write(stringWrite.ToString())
        Response.End()

Buarada asagidaki olayida eklememiz gerekiyor

Public Overrides Sub VerifyRenderingInServerForm(ByVal control As System.Web.UI.Control)
End Sub

UrlReWrite

01.03.2008 09:54:13

Global.asax dosyasina Application_BeginRequest 'i ekleyip içerisinde ufak degisikliklerle mükemmel url ler çikarilabilmekte.

void Application_BeginRequest(object sender, EventArgs e)
    {
        string path = Context.Request.Path;
        path = path.Replace(".html",".aspx");
        Context.RewritePath(path);
    }

Context.Request.Path komutu istek yapan adresi getiriyor.Daha sonra gelen string içersindeki .html degerlerini .aspx ile degistiryor ve adres çubugundaki degeri degistirmeden .aspx sayfaya yönlendiriyor. Yalniz söyle birsey var bu örnegi kullanmak için 404 ile ugrasmaniz ve haliyle IIS yetkiniz olmasi lazim, onun yerine linkleri bir aspx sayfasina gönderirseniz hiç IIS ile ugrasmadan BeginRequest kisminda yaraticiliginizi kullanabilirsiniz.

ASP.NEt projelerinde Runtime javascript ekleme

01.03.2008 09:54:12

Asagida web sayfasinda bir mesajbox çikarma kodunu veriyorum.

Private Sub alertver(ByVal mesaj As String)
Page.ClientScript.RegisterStartupScript(Me.GetType(), "MyScript", "alert('" & mesaj & "');", True)
End Sub

Burdada basit bir yönlendirme kodu..

Page.ClientScript.RegisterStartupScript(Me.GetType(), "Yonlen", "parent.window.location.href='default.aspx';", True)

Bu sekilde sayfamiza istedigimiz gibi bir javascript entegre edebiliriz,Gerisi sizin kabiliyetinize kalmis..

İstenilen karakterlerin kullanımını kısıtlama

01.03.2008 09:54:11

Sayfaya ekleyecegimiz javascript kodu

function getKeyCode(e)
{
if (window.event)
    return window.event.keyCode;
else if (e)
    return e.which;
else
    return null;
}

function keyRestrict(e, validchars) {
var key='', keychar='';
key = getKeyCode(e);
if (key == null) return true;
keychar = String.fromCharCode(key);
keychar = keychar.toLowerCase();
validchars = validchars.toLowerCase();
if (validchars.indexOf(keychar) != -1)
return true;
if ( key==null || key==0 || key==8 || key==9 || key==13 || key==27 )
return true;
return false;
}
</script>

Kisitlama yapmak istedigimiz kontrole ekleyecegimiz attribute

TxtUsername.Attributes.Add("onKeyPress", "return keyRestrict(event,'0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-.')")

Not: Burada girilmesini istedigimiz karakterleri belirtiyoruz...

Güvenlik kodu oluşturma

01.03.2008 09:54:10

Genellikle üyekayit sayfalarinda kullanilan güvenlik kodu uygulamasini verecegim kod ile kolayca kullanabilirsiniz.

Bunun için resimuretici.aspx adinda bir sayfa açin, html kismina hiçbirsey yazmaya gerek yok, codebehind kismina asagidaki kodlari yapistirin..

Imports System.Drawing.Imaging
Imports System.Drawing
Partial Class Resimuretici
    Inherits System.Web.UI.Page
    Private Function SifreUret() As String
        Dim karakterler As Char() = {"A"c, "B"c, "C"c, "D"c, "F"c, "G"c, "H"c, "M"c, "R"c, "T"c, "V"c, "X"c, "Y"c, "Z"c, "R"c, "W"c, "S"c, "1"c, "2"c, "0"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c}
        Dim sifre As String = ""
        Dim rnd As Random = New Random
        Dim i As Integer = 0
        While i < 6
            Dim randomindex As Integer = rnd.Next(0, karakterler.Length - 1)
            Dim secilenchar As Char = karakterler(randomindex)
            sifre += secilenchar.ToString
            System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
        End While
        Return sifre
    End Function

    Private Function ArkaPlanRengi() As Color
        Dim renkler As Color() = {Color.Red, Color.Pink, Color.Yellow, Color.Green, Color.Blue, Color.BlanchedAlmond}
        Dim rnd As Random = New Random
        Return renkler(rnd.Next(0, renkler.Length - 1))
    End Function

    Private Sub ResimUret()
        Dim password As String = SifreUret
        Dim bmp As Bitmap = New Bitmap(110, 35)
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim mybrush As SolidBrush = New SolidBrush(ArkaPlanRengi)
        g.FillRectangle(mybrush, 0, 0, bmp.Width, bmp.Height)
        Dim rnd As Random = New Random
        Dim karakterdizisi As Char() = password.ToCharArray
        Dim sayac As Integer = 0
        For Each ch As Char In karakterdizisi
            Dim f As Font = New Font("verdana", 16, GraphicsUnit.Pixel)
            Dim myfontbrush As SolidBrush = New SolidBrush(Color.Black)
            Dim x As Integer = 5
            Dim newX As Single = sayac * f.Size + x
            Dim offset As Integer = rnd.Next(0, 14)
            Dim p As PointF = New PointF(newX, offset)
            g.DrawString(ch.ToString, f, myfontbrush, p)
            System.Math.Min(System.Threading.Interlocked.Increment(sayac), sayac - 1)
        Next
        Session("password") = password
        bmp.Save(Response.OutputStream, ImageFormat.Gif)
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ResimUret()
    End Sub
End Class

Daha sonra üyekayit sayfamiza bir Image kontrolü ekleyip src kismina resimuretici.aspx sayfasini yazmamiz yeterli...

<asp:Image ID="Image1" runat="server" ImageUrl="ResimUretici.aspx" />

T-SQL ile random kayıt çekmek

01.03.2008 09:54:09

T-SQL de random kayit çekmek çok basit (mis), biara böyle birsey ariyordum ve Sem Göksu arkadasim sagolsun meseleyi halletmemde yardimci oldu..

select top 10 from tabloadi order by newID()

Dinamik "Yükleniyor" resimleri oluşturma

01.03.2008 09:54:08

Dinamik olarak "Yükleniyor" resimleri olusturabileceginiz bir site. Siteye buradan erisebilirsiniz.

Html kısmında ASP.NET kontrolüne erişim.

01.03.2008 09:54:07

Html kisminda istenilen ASP.NET kontrolüne <%=Lblmesaj.ClientID %> ile rahatça erisim saylayabiliyoruz. asagidaki örnekte olayi daha iyi kavrayacaginizi umuyorum.

function islem()

{

var dl=document.getElementById('<%=DlListe.ClientID %>');

var value = dl.options[dl.selectedIndex].value;

if(value=='0')

{

document.getElementById('<%=Lblmesaj.ClientID %>').style.display="block";

}

else

{

document.getElementById('<%=Lblmesaj.ClientID %>').style.display="none";

}

</script>

<asp:DropDownList ID="DlListe" runat="server" onchange="javascript:islem()">

<asp:ListItem>0</asp:ListItem>

<asp:ListItem>1</asp:ListItem>

</asp:DropDownList>

<asp:Label ID="Lblmesaj" runat="server" Text="Merhaba"></asp:Label>

Regex ile bkz vermek...

01.03.2008 09:54:06

Asagidaki kod, functiona gönderilen string içerisine (bkz: deneme) seklinde girilen metni (bkz: <a href="sozluk.aspx?t=deneme">deneme</a> ) sekline çeviriyor.

Public Shared Function bkz(ByVal metin As String) As String
        Dim strContent As String = metin
        Dim urlregex As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("$bkz:\s*(.+?)$", RegexOptions.IgnoreCase Or RegexOptions.CultureInvariant Or RegexOptions.IgnorePatternWhitespace Or RegexOptions.Compiled)
        metin = urlregex.Replace(metin, "(bkz: <a href=""sozluk.aspx?t=$1"">$1</a> )")
        Return metin
    End Function

ASP.NET ile mail gönderimi

01.03.2008 09:54:05

        Dim mail As MailMessage = New MailMessage()
        mail.From = New MailAddress("info@deneme.net", "açiklama", System.Text.Encoding.UTF8)
        mail.Subject = "Subject metni"
        mail.To.Add(email)
        mail.Body = "gönderilmek istenen metin."
        mail.IsBodyHtml = True    'false yaparsaniz mail html formatinda olmaz.
        mail.BodyEncoding = Encoding.GetEncoding("ISO-8859-9") 'body nin dil standardi
        mail.SubjectEncoding = Encoding.GetEncoding("ISO-8859-9") ' Subject in dil standardi
        Dim client As SmtpClient = New SmtpClient("MailServer adresi")
        client.Credentials = New System.Net.NetworkCredential("kullanici adi", "sifre")
        client.Send(mail)

Ajax denilen şey...

01.03.2008 09:54:04

Önce basit bir sekilde XMLHTTPREQUEST nesnesinin çagirilisini görelim.

-------------------------------
nesne = new XMLHttpRequest();
-------------------------------

Gördügünüz gibi temelde oldukça basit ve açik. Tabi internet explorer yine bize giciklik yapiyor ve bu kullanimi tanimayabiliyor. Bu yüzden internet explorer için nesnemizi söyle çagirabiliyoruz.

-------------------------------
nesne = new ActiveXObject("Microsoft.XMLHTTP");
-------------------------------
Simdi bu iki çagirma seklinden faydalanarak tüm tarayicilarda çalisabilecek fonksiyonumuzu yazalim. Bunun için tarayiciyi kontrol eden ve internet explorer ise onda ikinci yöntemi, internet explorer degilse (mozilla veya safari gibi tarayicilar ise) birinci yöntemi kullanan bir fonksiyon kullanalim.
-------------------------------
function nesneyarat() {
    var nesne;
    var tarayici = navigator.appName;
    if(tarayici == "Microsoft Internet Explorer"){
        nesne = new ActiveXObject("Microsoft.XMLHTTP");
    }else{
        nesne = new XMLHttpRequest();
    }
    return nesne;
}

var http = nesneyarat();
-------------------------------

Bu kod ile sayfamiz açildigi anda nesnemiz çagirilmis olacak ve http degiskeni nesnemiz olacak. Bu nesneyi çagirmanin bir çok farkli yolu mevcut. En basitinden buna bir hata yakalama kodlari da eklenebilirdi veya eski tip nesne çagirilabilirdi ama bu isi yeni ögrenenler için o kadar zorlamak ve kodu karmasiklastirmak istemiyorum.

Sira geldi islem yapacak olan fonksiyonumuza. Islem derken formdan gelen degerleri yani kullanicinin girdigi degerleri alip sunucuya gönderip cevap isteyen fonksiyondan bahsediyorum. Sakin anlatima bakip gözünüzü korkutmayin. Asagidaki fonksiyon bize yetecektir.

-------------------------------
function islemlink(deger) {
    http.open('get', 'test.php?degisken=' + deger);
    http.onreadystatechange = cevapFonksiyonu;
    http.send(null);
}
-------------------------------

Yukaridaki fonksiyonda open ile Get metodu kullanarak test.php dosyasina bilgiyi gönderiyoruz. Buradaki satirlarin basinda http olmasinin sebebi benim nesneyi en basta http degiskenine atamis olmam. onreadystatechange ise XMLHTTPREQUEST nesnesinin bir metodu olup çagirdigimiz nesnenin durumunun degismesi durumunda (örnegin cevap gelirse degismis olur), cevapFonksiyonu 'nu çagiriyor.

cevapFonksiyonu'muz da sunucudan cevap geldiginde yapmak istedigimiz islemi belirledigimiz fonksiyondur. Onu da söyle olusturalim.

-------------------------------
function cevapFonksiyonu()
{
    if(http.readyState == 4)
            {
        document.getElementById('yer').innerHTML = http.responseText;
             }
}
-------------------------------

Burada nesnemizin readyState özelliginin alabilecegi degerler ve karsiliklari su sekildedir.

0 = baslatilamadi
1 = yükleniyor
2 = yüklendi
3 = etkilesimli
4 = tamamlandi

Demek ki 4 oldugunda islemimiz basarili bir sekilde gerçeklestirilmistir. Sonuç olarak da sayfamizda yer id'sine sahip yerde sunucudan gelen cevap (responseText) görüntülenecektir.

Bu anlattiklarimi toparlayarak tek bir dosya haline getirecek olursak deneme.htm dosyamiz su sekilde olacaktir.

-------------------------------
<html>
<head>
<title>Yakuter'de XMLHTTPREQUEST</title>
<script type="text/javascript">
function nesneyarat() {
    var nesne;
    var tarayici = navigator.appName;
    if(tarayici == "Microsoft Internet Explorer"){
        nesne = new ActiveXObject("Microsoft.XMLHTTP");
    }else{
        nesne = new XMLHttpRequest();
    }
    return nesne;
}

var http = nesneyarat();

function islemlink(deger) {
    http.open('get', 'kontrol.asp?degisken=' + deger);
    http.onreadystatechange = cevapFonksiyonu;
    http.send(null);
}

function cevapFonksiyonu() {
    if(http.readyState == 4){
        document.getElementById('yer').innerHTML = http.responseText;
        }
}
</script>

</head>

<body>

<a href="javascript:islemlink('Merhaba)">Tikla</a><br /><br /><br />

</body>
</html>
-------------------------------

Sunucuda iletisime geçmek istedigimiz dosyanin da ismine kontrol.asp diyelim ve içine su kodlari yazalim.

<%
If Request.QueryString("degisken") = "Zeki AKDOGAN" Then
Response.Write("Tebrikler, dogru yazdiniz.")
Else
Response.Write("Hata, yanlis yazdiniz.")
End If
%>

Network Bağlantısı Var Mı?

01.03.2008 09:54:02

Windows uygulamalarında network bağlantısı olup olmadığını algılamak için; MessageBox.Show(SystemInformation.Network)

Doğum Günüm Kutlu Olsun :)

01.03.2008 09:54:01

      Bugün doğum günümmüş, böyle günlere önem vermediğimden garanti bankasının cep telefonuma gönderdiği mesaj sayesinde haberim oldu...
      İlk aşamada götümüze yediğim şaplak ve ardında sağ kulağıma okunan ezandan sonra, milletin arkama geçip "NASIL BİLİRDİNİZ?" sorusuna biraz daha yaklaşmamı sağladığı için garanti bankasına teşekkürlerimi bir borç bilirim..
      İnşallah "ALLAHÜ EKBER" ile başlayıp "NASIL BİLİRDİNİZ?" sorusuyla bitecek şu ömürde nice mutluluklar yaşamam dileğiyle:)

WMI İle Uzak Bilgisayarın Disk Bilgilerini Alma

01.03.2008 09:54:00

System.Management namespace önce add reference ile ekleyip daha sonrada aynı namespace yi kod kısmının başına import ettikten ve sayfaya bir adet treeView ekleyin...

Not: Eğer uzak bilgisayara bağlanmak istemiyorsanız connectionOptions ve ManagementScope kullanmanıza gerek yok..

connectionOptions connection = new ConnectionOptions();
connection.Impersonation = ImpersonationLevel.Impersonate;
connection.EnablePrivileges = true;
connection.Username = textUserID.Text;
connection.Password = textPassword.Text;
ManagementScope scope = new ManagementScope("\\\\Bilgisayar ismi\\root\\cimv2", connection);
scope.Connect();
if (scope.IsConnected == false)
{
MessageBox.Show("WMI namespace bağlanamıyor.");
}

    //burda disk bilgilerini aldým
         treeView1.Nodes.Clear();
         treeView1.Visible = true;
        mos.Scope = scope;
        mos.Query = new ObjectQuery("SELECT * From Win32_LogicalDisk");
        foreach (ManagementObject mo in mos.Get())
        {
            treeView1.Nodes.Add(mo["Caption"].ToString(), mo["Caption"].ToString());
        }
        foreach (TreeNode tn in treeView1.Nodes)
        {
            foreach (ManagementObject mo in mos.Get())
            {
                foreach (PropertyData pd in mo.Properties)
                {
                    if (mo["Caption"].ToString() == tn.Text)
                    {
                        if (mo[pd.Name] != null)
                        {
                            tn.Nodes.Add(pd.Name + ": " + mo[pd.Name].ToString());
                        }
                    }
                }
            }
        }
            //burda bitirdim
        }
        catch (ManagementException err)
        {
             MessageBox.Show(err.Message);
        }

AJAX´ı Sunucu da çalıştırmak

01.03.2008 09:53:14

Eğerki sunucunuzda ajax kurulu ise hiç bir sorun olmadan AJAX uygulamalarını çalıştırabilirsiniz.

Eğer kurulu değilse;

Ajax tabanlı bir web Projesi açılır.. Ajax tabanlı bir proje değilse web confiği düzenleyelelim
Projenin referanslarına AJAX Extension eklenir..(Microsoft ASP.NET 2.0 AJAX Extensions Toolbox Package)
System.Web.Extensions.Design.dll ve System.Web.Extensions.dll projeye eklenir...

Bu şekilde sunucu üzerinde ajax kurulu olmasa bile AJAX uygulamarını çalıştırabilirsiniz..

Kaynak:Sem Göksu

Code Behind' te Table mızı oluşturmak

01.03.2008 09:50:14

GridView,DataList gibi kontrolleri kullanmak yerine kendi tablomuzu oluşturup kullanıcıya verileri Server da oluşturduğumuz bu tabloda göstermek isteyebiliriz.Bunun için aşağıdaki kodları incelemeniz yeterli..

            Dim TblHisse As New Table    ' table oluşturuluyor.
            TblHisse.GridLines = GridLines.Both 'borderların görüneceği belirtiliyor.
            TblHisse.Style.Add("BorderColorDark", "White")  'border renkleri ayarlanıyor.
            TblHisse.Style.Add("BorderColorLight", "Black")
            TblHisse.CellPadding = "0" 'Cellpadding belirleniyor.
            TblHisse.CellSpacing = "2" 'Cellspacing belirleniyor.
            TblHisse.Width = "750"   'table ye boyut veriliyor.
            TblHisse.HorizontalAlign = HorizontalAlign.Center ' align özelliği belirtiliyor.

            For i As Integer = 1 To 15   '15 satırlık bir tablo oluşturulucak.
                satir = New TableRow     ' html deki <tr> yani satır belirtiliyor.
                satir.Cells.Add(New TableCell) ' html deki <td> yani hücre belirtiliyor.
                satir.Cells.Add(New TableCell) ' html deki <td> yani hücre belirtiliyor.
                satir.Cells.Add(New TableCell) ' html deki <td> yani hücre belirtiliyor.
                satir.Cells(0).HorizontalAlign = HorizontalAlign.Left   '1 . hücrenin align özelliği belirtildi.
                satir.Cells(1).HorizontalAlign = HorizontalAlign.Left   '2 . hücrenin align özelliği belirtildi.

                satir.Cells(2).HorizontalAlign = HorizontalAlign.Left   '3 . hücrenin align özelliği belirtildi.

                satir.Cells(0).Height = "30"   'height özellikleri belirleniyor.
                satir.Cells(1).Height = "30"
                satir.Cells(2).Height = "30"

                satir.Cells(0).Text = "birinci hücre" ' içlerine yazmak istediğimiz metinleri giriyoruz.
                satir.Cells(1).Text = "ikinci hücre"
                satir.Cells(2).Text = "üçüncü hücre"
                TblHisse.Rows.Add(satir)
            Next

             TblHisse.Rows.Add(satir)   ' Oluşturduğumuz satırı tablomuzun içine ekliyoruz.

İşte bukadar:)

Kontrollerin Word/Excel/Txt dosyalara render etmek

01.03.2008 09:49:14

Gridview,datalist,table gibi verileri sayfaya döktüğümüz nesnelerin Excel word txt gibi dosyalara render ederek içeriğini aktarmak için aşağıdaki kodları kullanabilirsiniz.

                Dim TblHisse As New Table
                satir = New TableRow
                satir.Cells.Add(New TableCell)
                satir.Cells.Add(New TablCll)<R>nbsp; &bp;             satir.Cells.Add(New TableCell)
                satir.Cells(0).HorizontalAlign = HorizontalAlign.Left
                satir.Cells(1).HorizontalAlign = HorizontalAlign.Left
                satir.Cells(2).HorizontalAlign = HorizontalAlign.Left
                satir.Cells(0).Height = "30"
                satir.Cells(1).Height = "30"
                satir.Cells(2).Height = "30"

                satir.Cells(0).Text = Kontrol(CType(Page.FindControl("lbl" & i), Label).Text)
                satir.Cells(1).Text = Kontrol(CType(Page.FindControl("Txt" & i), TextBox).Text)
                satir.Cells(2).Text = Check(CType(Page.FindControl("Chk" & i), CheckBox).Checked)
                TblHisse.Rows.Add(satir)

            '  Dananın kuyruğu bundan sonra kopuyor:)
            Dim FilePathName As String
            Dim stringWrite As New System.IO.StringWriter()
            Dim htmlWrite As New HtmlTextWriter(stringWrite)
            TblHisse.RenderControl(htmlWrite)
            FilePathName = "Dosyaadi" & ".xls" 'xls=excel, doc=word,txt=notepad hangi uzantıda dosya yapacağınıza karar vermek size kalmış, ama txt yaparsanız, direk table etiketlerinide göreceğiniz için excel ve word haricini tavsiye etmem.
            Dim fs As New IO.FileStream(FilePathName, IO.FileMode.Create)
            Dim BWriter As New IO.BinaryWriter(fs, Encoding.GetEncoding("ISO-8859-9"))
            BWriter.Write(stringWrite.ToString())
            BWriter.Close()
            fs.Close()

Domaindeki Kullanıcıların Listesini Almak

03.01.2008 09:54:00

Oncelikle System.Directory Services referansını projemize eklemeliyiz.

DirectoryEntry entry = new DirectoryEntry(LDAP://domainAdi);
DirectorySearcher searcher = new DirectorySearcher(entry);
searcher.Filter="(objectClass=user)";
StringBuilder strBuilder = new StringBuilder();
foreach (SearchResult sr in searcher.FindAll())
{
strBuilder.Append(sr.GetDirectoryEntry().Name.ToString());
strBuilder.Append("\r\n");
}
MessageBox.Show(strBuilder.ToString());

Dim entry As DirectoryEntry = New DirectoryEntry(LDAP://domainAdi)
Dim searcher As DirectorySearcher = New DirectorySearcher(entry)
searcher.Filter = "(objectClass=computer)"
Dim strBuilder As StringBuilder = New StringBuilder()
For Each sr As SearchResult In searcher.FindAll
strBuilder.Append(sr.GetDirectoryEntry().Name.ToString())
strBuilder.Append(vbNewLine)
Next
MessageBox.Show(strBuilder.ToString())