I nternet Programcıg ı II (WebSite3)

(1)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 1

I nternet Programcıg ı II ^(WebSite3) 05.03.2014

Uye Girişi Formmu

Imports System.Data Imports System.Data.OleDb Imports System.Drawing Partial Class giris

Inherits System.Web.UI.Page

Private Function resim_olustur() As String /*rasgele değer oluştur*/

Dim sayilar() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}

Dim rasgele As New Random()

Dim str1 As String = sayilar(rasgele.Next(0, 9)) Dim str2 As String = sayilar(rasgele.Next(0, 9)) Dim str3 As String = sayilar(rasgele.Next(0, 9)) Dim str4 As String = sayilar(rasgele.Next(0, 9)) Dim str5 As String = sayilar(rasgele.Next(0, 9)) Dim str6 As String = sayilar(rasgele.Next(0, 9)) Return str1 + str2 + str3 + str4 + str5 + str6 End Function

Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click Dim kadi, sifre, sql, yol As String

kadi = TextBox1.Text

sifre = TextBox2.Text /*kulanıcı sorguluyor*/

yol = Server.MapPath("araba.accdb")

sql = "select * from uyeler where kadi='" & kadi & "' and sifre='" & sifre & "'"

Dim baglantı As New OleDbConnection("Provider=MicroSoft.ACE.OLEDB.12.0;Data Source=" & yol) Dim verial As New OleDbDataAdapter(sql, baglantı)

Dim ds As New DataSet verial.Fill(ds) Dim sayi As Integer

sayi = ds.Tables(0).Rows.Count

If sayi And TextBox3.Text = Label1.Text Then Response.Redirect("uye.aspx")

Else

MsgBox("Hatalı giriş") End If

End Sub

Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then

Label1.Text = resim_olustur() End If

End Sub End Class

(2)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 2

Listbox a veri tabanından deg er aktarma,

Ve Excel e aktarma kodu (WebSite5) ^11.03.2014

Imports System.Data Imports System.Data.OleDb Imports System.IO

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click

Dim yol, sql As String

yol = Server.MapPath("db.accdb") sql = "select * from urunler"

Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yol) Dim verial As New OleDbDataAdapter(sql, baglanti)

Dim ds As New DataSet verial.Fill(ds)

GridView1.DataSource = ds.Tables(0) GridView1.DataBind()

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ek As String

ek = "attachment ; filename=menu.xls"

Response.ClearContent()

Response.AddHeader("content-disposition", ek) Response.ContentType = "application/ms-excel"

Dim sw As New StringWriter

Dim htw As New HtmlTextWriter(sw) GridView1.GridLines = GridLines.Both GridView1.RenderControl(htw)

Response.Write(sw.ToString) Response.End()

End Sub

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

/*Not: Son iki satır Kod tarafına eklenmesi lazım yoksa excel e kayıt gerçekleşmiyor önemli..*/

(3)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 3

Gu venli şifre oluşturma ^(WebSite6) 12.03.2014

Imports System.Data Imports System.Data.OleDb Imports System.Drawing

Imports System.Security.Cryptography

Partial Class _Default

Private Function resim_olustur() As String

Dim sayilar() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}

Dim rastgele As New Random()

Dim str1 As String = sayilar(rastgele.Next(0, 9)) Dim str2 As String = sayilar(rastgele.Next(0, 9)) Dim str3 As String = sayilar(rastgele.Next(0, 9)) Dim str4 As String = sayilar(rastgele.Next(0, 9)) Dim str5 As String = sayilar(rastgele.Next(0, 9)) Dim str6 As String = sayilar(rastgele.Next(0, 9)) Return Str1 + str2 + str3 + str4 + str5 + str6 End Function

Dim kadi, sifre, sql, yol As String kadi = TextBox1.Text

sifre = TextBox2.Text

Dim enc As Encoding = Encoding.GetEncoding("iso-8859-9") Dim kaynakByte() As Byte = enc.GetBytes(sifre)

Dim md5 As New MD5CryptoServiceProvider Dim byteHosh() As Byte

byteHosh = md5.ComputeHash(kaynakByte) Dim sifremd5 As New StringBuilder Dim sonucbyte As Byte

For Each sonucbyte In byteHosh

sifremd5.Append(sonucbyte.ToString("x2").ToUpper) Next

Dim guvenlisifre As String guvenlisifre = sifremd5.ToString

'bu yıkardaki kodlar bizim şifremizin 32 bit olarak şifreleyerek admin şifremiz 32 bit olmul oluyor yol = Server.MapPath("veri.accdb")

sql = "select * from uyeler where kadi='" & kadi & "' and sifre='" & guvenlisifre & "'"

Dim baglantı As New OleDbConnection("Provider=MicroSoft.ACE.OLEDB.12.0;Data Source=" & yol) Dim verial As New OleDbDataAdapter(sql, baglantı)

Dim ds As New DataSet verial.Fill(ds) Dim sayi As Integer

sayi = ds.Tables(0).Rows.Count

If sayi = 1 And TextBox3.Text = Label1.Text Then Response.Redirect("uye.aspx")

Else

MsgBox("hatalı giriş") End If

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then

Label1.Text = resim_olustur() End If

End Sub

End Class GridView1

(4)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 4

GridView 2 Form arasında bag lantı (WebSite7) 18.03.2014

Default.aspx sayfası Default2.aspx sayfası

Not: Default.aspx sayfasında ki GridView aracının sağındaki oka tıkanılır açılan pencerede Choose Data Source: Açılır

menüden <New Data Source..> açılır. Açılan ekranda Access Databese seçip Next diyoruz karşımıza gelen ekrandan

veri.accdb adındaki veri tabanımızı seçerek Next diyoruz Karşımıza gelen ekranda işleme göre gerekli Tablo adını seçip listelenecek tabloların onaylıyoruz ve koşullandırmada yapabiliriz sonra Next Diyerek gelen pencerede Test Query Diyerek tabloyu test edip Finish Diyoruz sonra Aynı ok tan Edit Columns.. a tıklayıp HyperLinkField ekliyoruz Bu linkin Default2 ile bağlantısın yapıyoruz aşağıdaki gibi. Tamam diyerek işlemi bitiriyoruz sonra Default2.aspx sayfasını açıp Page_load kısmına aşağıdaki kodları yazıyoruz ve programı çakıştıra biliriz.

Default2.aspx.vb kod sayfası

Imports System.Data Imports System.Data.OleDb

Partial Class Default2

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim uno As Integer

uno = Request.QueryString("uno")

Dim yol, sql As String

yol = Server.MapPath("veri.accdb")

sql = "select * from uyeler where uno=" & uno & ""

End Sub End Class

(5)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 5

GridView De Update işlemi (WebSite8) 19.03.2014

Inherits System.Web.UI.Page Private Sub verigoster() Dim yol, sql As String

yol = Server.MapPath("veri.accdb") sql = "select * from uye"

End Sub

Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As

System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit GridView1.EditIndex = -1

verigoster() End Sub

Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing GridView1.EditIndex = e.NewEditIndex

Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating Dim row As GridViewRow

Dim txt As New TextBox

row = GridView1.Rows(e.RowIndex) Dim yol, sql As String

yol = Server.MapPath("veri.accdb") Dim tc As String

txt = row.Cells(1).Controls(0) tc = txt.Text

Dim ad As String

txt = row.Cells(2).Controls(0) ad = txt.Text

Dim soyad As String

txt = row.Cells(3).Controls(0) soyad = txt.Text

Dim baglantı As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yol) sql = "update uye set tc='" & tc & "', ad='" & ad & "', soyad='" & soyad & "' where tc ='" & tc & "'"

Dim komut As New OleDbCommand komut.CommandText = sql komut.Connection = baglantı baglantı.Open()

komut.ExecuteNonQuery() baglantı.Close()

MsgBox("Güncelleme tamamlandı") GridView1.EditIndex = -1

End Class

(6)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 6

GridView I şlemleri (WebSite9) 25.03.2014

Protected Sub GridView1_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GridView1.Sorting Dim yol, sql As String

yol = Server.MapPath("veri.accdb") sql = "select * from uyeler"

Dim dv As New DataView(ds.Tables(0)) dv.Sort = e.SortExpression

GridView1.DataSource = dv GridView1.DataBind() End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim yol, sql As String

yol = Server.MapPath("veri.accdb") sql = "select * from uyeler"

End Sub End Class

Not: Properties => AllowStorting= True Yapıyoruz tıklandığında A dan Z ye sıralama yapar

GridView Resim aktarma (WebSite9) 26.03.2014

(7)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 7

DataList I şlemleri (WebSite10) ^01.04.2014

Source alanına datalist in içine yayıyoruz.

<asp:DataList ID="DataList1" runat="server">

<image id="Img1" align="top" width="35" src='<%#

DataBinder.Eval(Container.DataItem,"tc","resimler/{0}.jpg") %>' runat="server" />

</td>

Tc: <%# DataBinder.Eval(Container.dataitem, "tc")%>

Adı: <%# DataBinder.Eval(Container.DataItem, "ad")%>

Soyadı: <%# DataBinder.Eval(Container.DataItem, "soyad")%>

</td></tr>

</table>

</ItemTemplate>

</asp:DataList>

Butonnun içine yazıyoruz

Imports System.Data

Imports System.Data.OleDb

verigöster() End Sub

Private Sub verigöster() Dim yol, sql As String

DataList1.DataSource = ds.Tables(0) DataList1.DataBind()

End Sub End Class

(8)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 8

DataList I şlemleri 2 (WebSite11) ^02.04.2014

Aspx. Sayfasını kod (source) kısmında datalist in içerisine eklenecek olan kod

<asp:DataList ID="DataList1" runat="server" OnItemCommand="DataList_ItemCommand" RepeatColumns="1"

BackColor="Tan" BorderWidth="1px" CellPadding="2" ForeColor="Black">

<HeaderTemplate>Elemanlar</HeaderTemplate>

<asp:LinkButton ID="Button1" runat="server" Text="Detay Göster" CommandName="sec"/>

<%# DataBinder.Eval(Container.DataItem, "ad")%>

</ItemTemplate>

<image id="img1" align="top" width="35" src='<%#

DataBinder.Eval(Container.DataItem,"tc","resimler/{0}.jpg")%>' runat="server"/>

Tc: <%# DataBinder.Eval(Container.DataItem, "tc")%>

Ad: <%# DataBinder.Eval(Container.DataItem, "ad")%>

Soyad: <%# DataBinder.Eval(Container.DataItem, "soyad")%>

</SelectedItemTemplate>

</asp:DataList>

Default2 içerisine yazılacak kodlar Imports System.Data

Imports System.Data.OleDb Partial Class Default2

Sub DataList_ItemCommand(ByVal Sender As Object, ByVal e As DataListCommandEventArgs) Dim cmd As String = e.CommandName

If cmd = "sec" Then

DataList1.SelectedIndex = e.Item.ItemIndex End If

Private Sub verigöster() Dim yol, sql As String

DataList1.DataSource = ds.Tables(0) DataList1.DataBind()

End Sub

End Class

(9)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 9

Ö dev..

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

Dim x As String x = Session("kadi") Label1.Text = x End Sub

'foto yükle

Dim yola, sql As String If FileUpload1.HasFile Then

FileUpload1.SaveAs(Server.MapPath("images/" & FileUpload1.FileName)) Image1.ImageUrl = "images/" & FileUpload1.FileName

Label7.Text = "sectiğiniz fotoğraf yüklenmiştir"

Else

Label7.Text = "lütfen dosyayı secin"

End If

yola = Server.MapPath("veri.accdb")

sql = " update uye_kayit set resim='" & Image1.ImageUrl & "' where kadi='" & Session("kadi") & "'"

Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yola) Dim komut As New OleDbCommand

komut.Connection = baglanti komut.CommandText = sql baglanti.Open()

komut.ExecuteNonQuery() baglanti.Close()

Panel1.Visible = False End Sub

Panel1.Visible = True Panel2.Visible = False Panel3.Visible = False End Sub

Panel1.Visible = False Panel2.Visible = True Panel3.Visible = False End Sub

Panel1.Visible = False Panel2.Visible = False Panel3.Visible = True End Sub

(10)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 10

Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As

System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit GridView1.EditIndex = -1

End Sub

Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing GridView1.EditIndex = e.NewEditIndex

End Sub

Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating 'gridview de güncelleme işlemi

Dim row As GridViewRow Dim txt As New TextBox

row = GridView1.Rows(e.RowIndex) Dim yol, sql As String

yol = Server.MapPath("veri.accdb") Dim adi As String

txt = row.Cells(2).Controls(0) adi = txt.Text

Dim soyadi As String

txt = row.Cells(3).Controls(0) soyadi = txt.Text

Dim kadi As String

txt = row.Cells(4).Controls(0) kadi = txt.Text

Dim sifre As String

txt = row.Cells(5).Controls(0) sifre = txt.Text

Dim d_tarihi As String

txt = row.Cells(6).Controls(0) d_tarihi = txt.Text

Dim d_yeri As String

txt = row.Cells(7).Controls(0) d_yeri = txt.Text

Dim resim As String

txt = row.Cells(8).Controls(0) resim = txt.Text

Dim baglantı As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yol) sql = "update uye_kayit set adi='" & adi & "', soyadi='" & soyadi & "', kadi='" & kadi & "', sifre='" & sifre & "', d_tarihi='" & d_tarihi & "' , d_yeri='" & d_yeri & "' where kadi='" &

Session("kadi") & "'"

Dim komut As New OleDbCommand komut.CommandText = sql komut.Connection = baglantı baglantı.Open()

komut.ExecuteNonQuery() baglantı.Close()

MsgBox("Güncelleme tamamlandı") GridView1.EditIndex = -1

Panel3.Visible = True End Sub

'çıkışyap

Response.Redirect("Default.aspx") End Sub

End Class

(11)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 11

ASpx:Kodları

Hoş Geldiniz

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

<asp:LinkButton ID="LinkButton4" runat="server">Çıkış Yap</asp:LinkButton>

<asp:LinkButton ID="LinkButton1" runat="server">->Bilgileri Güncelle</asp:LinkButton>

<asp:LinkButton ID="LinkButton2" runat="server">->Profil Fotografı</asp:LinkButton>

<asp:LinkButton ID="LinkButton3" runat="server">->Bİlgileri Göster</asp:LinkButton>

<asp:Panel ID="Panel1" runat="server" Height="137px" Visible="False"

Width="411px">

Profil Fotoğrafı Yap

<asp:FileUpload ID="FileUpload1" runat="server" />

<asp:Label ID="Label7" runat="server"></asp:Label>

<asp:Button ID="Button1" runat="server" Text="Fotoğraf yükle" />

<asp:Image ID="Image1" runat="server"

style="z-index: 1; left: 298px; top: 117px; position: absolute; height: 97px; width:

112px" />

</asp:Panel>

</div>

Width="936px">

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

DataKeyNames="id" DataSourceID="AccessDataSource3" CellPadding="4"

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

<asp:CommandField CancelText="iptal" DeleteText="sil" EditText="Güncelle"

InsertText="Düzenle" NewText="Yeni" ShowEditButton="True" />

<asp:BoundField DataField="id" HeaderText="id" InsertVisible="False"

ReadOnly="True" SortExpression="id" />

<asp:BoundField DataField="adi" HeaderText="adi" SortExpression="adi" />

<asp:BoundField DataField="soyadi" HeaderText="soyadi"

SortExpression="soyadi" />

<asp:BoundField DataField="kadi" HeaderText="kadi" SortExpression="kadi" />

<asp:BoundField DataField="sifre" HeaderText="sifre" SortExpression="sifre" />

<asp:BoundField DataField="d_tarihi" HeaderText="d_tarihi"

SortExpression="d_tarihi" />

<asp:BoundField DataField="d_yeri" HeaderText="d_yeri"

SortExpression="d_yeri" />

<asp:BoundField DataField="resim" HeaderText="resim" SortExpression="resim" />

</Columns>

</asp:GridView>

<asp:AccessDataSource ID="AccessDataSource3" runat="server"

DataFile="~/veri.accdb"

SelectCommand="SELECT * FROM [uye_kayit] WHERE ([id] = ?)">

<asp:SessionParameter Name="id" SessionField="id" Type="Int32" />

</SelectParameters>

</asp:AccessDataSource>

(12)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 12

</asp:Panel>

Width="671px">

<asp:DataList ID="DataList1" runat="server"

DataKeyField="id" DataSourceID="AccessDataSource2" RepeatColumns="4">

<asp:Image ID="Image2" runat="server" Height="136px"

ImageUrl='<%# Eval("resim") %>' Width="139px" />

adi:

<asp:Label ID="adiLabel" runat="server" Text='<%# Eval("adi") %>' />

soyadi:

<asp:Label ID="soyadiLabel" runat="server" Text='<%# Eval("soyadi") %>' />

kadi:

<asp:Label ID="kadiLabel" runat="server" Text='<%# Eval("kadi") %>' />

sifre:

<asp:Label ID="sifreLabel" runat="server" Text='<%# Eval("sifre") %>' />

d_tarihi:

<asp:Label ID="d_tarihiLabel" runat="server" Text='<%# Eval("d_tarihi") %>' />

d_yeri:

<asp:Label ID="d_yeriLabel" runat="server" Text='<%# Eval("d_yeri") %>' />

id:

<asp:Label ID="idLabel" runat="server" Text='<%# Eval("id") %>' />

</ItemTemplate>

</asp:DataList>

<asp:AccessDataSource ID="AccessDataSource2" runat="server" DataFile="~/veri.accdb"

SelectCommand="SELECT [resim], [id], [adi], [soyadi], [kadi], [sifre], [d_tarihi], [d_yeri]

FROM [uye_kayit] WHERE ([id] = ?)">

<asp:SessionParameter Name="id" SessionField="id" Type="Int32" />

</SelectParameters>

</asp:AccessDataSource>

</asp:Panel>

I nternet Programcıg ı II (WebSite3)

Abdullah CİNEL İnternet Programcılığı II Ders Notları Sayfa 1