Giyim Sitesi – ASP.NET
default.aspx Kodları;
[code lang=”html”]</pre>
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled Page</title>
<style type="text/css">
.style1
{
}
.style2
{
width: 327px;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:LinkButton ID="LinkButton2" runat="server">erkek</asp:LinkButton>
<asp:LinkButton ID="LinkButton3" runat="server">kadın</asp:LinkButton>
<asp:HyperLink ID="HyperLink2" runat="server"
NavigateUrl="~/sepetim.aspx">sepetim</asp:HyperLink>
<asp:HyperLink ID="HyperLink3" runat="server" NavigateUrl="~/uruneklekaldir.aspx">ürün
düzenle</asp:HyperLink>
<asp:HyperLink ID="siparis" runat="server" NavigateUrl="~/siparis.aspx">siparişler</asp:HyperLink>
<br />
<asp:DataList ID="DataList1" runat="server" DataKeyField="id"
DataSourceID="SqlDataSource1" RepeatColumns="3">
<ItemTemplate>
<br />
<table style="width:100%;">
<tr>
<td>
</td>
<td align="center">
<asp:Label ID="urunadLabel" runat="server" Text='<%# Eval("urunad") %>’ />
</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td align="center">
<asp:Image ID="Image1" runat="server" ImageUrl='<%# Eval("resim") %>’ />
</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td align="center">
<asp:LinkButton ID="LinkButton1" runat="server" commandname="bilgi" commandargument='<%#databinder.eval(container.dataitem,"id")%>’>Seç</asp:LinkButton>
</td>
<td>
</td>
</tr>
</table>
<br />
</ItemTemplate>
</asp:DataList>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\vt.accdb;Persist Security Info=True"
ProviderName="System.Data.OleDb"
SelectCommand="SELECT * FROM [urunler] WHERE ([cinsiyet] = ?)">
<SelectParameters>
<asp:QueryStringParameter Name="cinsiyet" QueryStringField="cinsiyet"
Type="String" />
</SelectParameters>
</asp:SqlDataSource>
<br />
<table style="width: 37%; margin-right: 18px; margin-bottom: 4px;">
<tr>
<td align="center" colspan="2">
<asp:Button ID="Button1" runat="server" Text="Üye Girişi" />
<asp:Button ID="Button2" runat="server" Text="Üye Ol" />
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label1" runat="server" Text="Kullanıcı adı:" Visible="False"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox1" runat="server" Visible="False"></asp:TextBox>
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label2" runat="server" Text="Şifre:" Visible="False"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox2" runat="server" Visible="False" TextMode="Password"></asp:TextBox>
</td>
</tr>
<tr>
<td align="center" class="style1" colspan="2">
<asp:Button ID="Button3" runat="server" Text="Giriş" Visible="False" />
</td>
</tr>
<tr>
<td align="center" class="style1" colspan="2">
<asp:Label ID="Label3" runat="server" Text="Hoşgeldin "></asp:Label>
<asp:Label ID="Label4" runat="server" Visible="False"></asp:Label>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
<pre>[/code]
default.aspx.vb Kodları;
[code lang=”vb”]
Imports System.Data
Imports System.Data.OleDb
Partial Class _Default
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OleDB.12.0;Data Source=" & Server.MapPath("App_Data\vt.accdb"))
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Session("kullaniciadi") = Nothing Then
HyperLink3.Visible = False
siparis.Visible = False
Label3.Visible = False
ElseIf Session("kullaniciadi") = "admin" Then
HyperLink3.Visible = True
siparis.Visible = True
Label3.Visible = False
Else
HyperLink3.Visible = False
siparis.Visible = False
Label3.Visible = True
End If
End Sub
Protected Sub DataList1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList1.ItemCommand
If e.CommandName = "bilgi" Then
Response.Redirect("ozellikler.aspx?id=" + e.CommandArgument)
End If
End Sub
Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
Response.Redirect("Default.aspx?cinsiyet=" + "erkek")
End Sub
Protected Sub LinkButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton3.Click
Response.Redirect("Default.aspx?cinsiyet=" + "kadın")
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Visible = True
Label2.Visible = True
TextBox1.Visible = True
TextBox2.Visible = True
Button3.Visible = True
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Response.Redirect("uyeol.aspx")
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim kadi As String = TextBox1.Text
Dim sifre As String = TextBox2.Text
Dim adp As New OleDbDataAdapter("select * from uyeler where kullaniciadi=’" & kadi & "’ and sifre=’" & sifre & "’", baglanti)
Dim dt As New DataTable
adp.Fill(dt)
Dim i As Integer = 0
For Each satir In dt.Rows
i += 1
Session("ad") = satir(1)
Session("soyad") = satir(2)
Session("adres") = satir(5)
Session("kullaniciadi") = satir(6)
Session("giris") = "dolu"
Next
If i = 0 Then
Label4.Text = "kullanıcı adı ve şifre hatalı"
End If
Response.Redirect("Default.aspx")
End Sub
End Class
[/code]
ozellikler.aspx Kodları;
[code lang=”html”]
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="ozellikler.aspx.vb" Inherits="ozellikler" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled Page</title>
<style type="text/css">
.style1
{
width: 176px;
}
.style2
{
width: 158px;
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:SqlDataSource ID="SqlDataSource1" runat="server"
ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\vt.accdb;Persist Security Info=True"
ProviderName="System.Data.OleDb"
SelectCommand="SELECT * FROM [urunler] WHERE ([id] = ?)">
<SelectParameters>
<asp:QueryStringParameter Name="id" QueryStringField="id" Type="Int32" />
</SelectParameters>
</asp:SqlDataSource>
<table align="left" style="width: 70%;">
<tr>
<td align="center" class="style1">
<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/Default.aspx">Ürünler</asp:HyperLink>
</td>
<td align="left" class="style2">
<asp:HyperLink ID="HyperLink2" runat="server" NavigateUrl="~/sepetim.aspx">Sepetim</asp:HyperLink>
</td>
</tr>
<tr>
<td align="center" class="style1">
<asp:DataList ID="DataList1" runat="server" DataKeyField="id"
DataSourceID="SqlDataSource1">
<ItemTemplate>
<table style="width:100%;">
<tr>
<td>
</td>
<td align="center">
<asp:Label ID="urunadLabel" runat="server" Text='<%# Eval("urunad") %>’ />
</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td align="center">
<asp:Image ID="Image1" runat="server" ImageUrl='<%# Eval("resim") %>’ />
</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td align="center">
<asp:Label ID="fiyatLabel" runat="server" Text='<%# Eval("fiyat") %>’ />
<asp:Label ID="Label1" runat="server" Text=" TL"></asp:Label>
</td>
<td>
</td>
</tr>
</table>
</ItemTemplate>
</asp:DataList>
</td>
<td align="center" class="style2">
</td>
</tr>
<tr>
<td align="center" class="style1">
<asp:DropDownList ID="DropDownList1" runat="server">
<asp:ListItem>BEDEN</asp:ListItem>
<asp:ListItem>S</asp:ListItem>
<asp:ListItem>M</asp:ListItem>
<asp:ListItem>L</asp:ListItem>
<asp:ListItem>XL</asp:ListItem>
<asp:ListItem>XXL</asp:ListItem>
</asp:DropDownList>
</td>
<td align="left" class="style2">
<asp:Label ID="Label2" runat="server"></asp:Label>
</td>
</tr>
<tr>
<td align="center" class="style1">
<asp:LinkButton ID="LinkButton1" runat="server">Sepete
Ekle</asp:LinkButton>
</td>
<td align="center" class="style2">
</td>
</tr>
</table>
<br />
<br />
</div>
</form>
</body>
</html>
[/code]
ozellikler.aspx.vb Kodları;
[code lang=”vb”]
Imports System.Data
Imports System.Data.OleDb
Partial Class ozellikler
Inherits System.Web.UI.Page
Dim baglan As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Server.MapPath("app_data/vt.accdb"))
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Dim adp3 As New OleDbDataAdapter("select stok from urunler where id=" & Request.QueryString("id") & "", baglan)
Dim tablo3 As New DataTable
adp3.Fill(tablo3)
For Each satir3 In tablo3.Rows
Session("stok") = satir3(0)
Next
If Session("stok") = 0 Then
Label2.Text = "Ürün stoğu tükenmiştir"
Else
If DropDownList1.SelectedValue = "BEDEN" Then
Label2.Text = "Lütfen beden seçiniz"
Else
Dim adp As New OleDbDataAdapter("select * from urunler where id=" & Request.QueryString("id") & "", baglan)
Dim tablo As New DataTable
adp.Fill(tablo)
For Each satir In tablo.Rows
Session("id") = satir(0)
Session("urunad") = satir(1)
Session("fiyat") = satir(2)
Session("resim") = satir(3)
Session("cinsiyet") = satir(5)
Session("urunno") = satir(6)
Next
baglan.Open()
Dim cmnd As New OleDbCommand
cmnd.Connection = baglan
cmnd.CommandText = "insert into sepet(urunad,fiyat,resim,beden,cinsiyet,urunno) values (@urunad,@fiyat,@resim,@beden,@cinsiyet,@urunno)"
cmnd.Parameters.Add("@urunad", OleDbType.VarChar).Value = Session("urunad")
cmnd.Parameters.Add("@fiyat", OleDbType.VarChar).Value = Session("fiyat")
cmnd.Parameters.Add("@resim", OleDbType.VarChar).Value = Session("resim")
cmnd.Parameters.Add("@beden", OleDbType.VarChar).Value = DropDownList1.SelectedValue
cmnd.Parameters.Add("@cinsiyet", OleDbType.VarChar).Value = Session("cinsiyet")
cmnd.Parameters.Add("@urunno", OleDbType.VarChar).Value = Session("urunno")
cmnd.ExecuteNonQuery()
baglan.Close()
Label2.Text = "Ürün sepete eklenmiştir"
End If
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Session("giris") = Nothing Then
HyperLink2.Visible = False
DropDownList1.Visible = False
Label2.Visible = False
LinkButton1.Visible = False
Else
HyperLink2.Visible = True
DropDownList1.Visible = True
Label2.Visible = True
LinkButton1.Visible = True
End If
End Sub
End Class
[/code]
uyeol.aspx Kodları ;
[code lang=”html”]
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="uyeol.aspx.vb" Inherits="uyeol" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled Page</title>
<style type="text/css">
.style1
{
width: 148px;
}
.style2
{
}
</style>
</head>
<body>
<form id="form1" runat="server">
<div>
<table style="width: 105%;">
<tr>
<td class="style1">
<asp:Label ID="Label1" runat="server" Text="Ad:"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server"
ControlToValidate="TextBox1" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label2" runat="server" Text="Soyad:"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server"
ControlToValidate="TextBox2" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label3" runat="server" Text="e-posta:"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server"
ControlToValidate="TextBox3" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server"
ControlToValidate="TextBox3" ErrorMessage="e-postayı doğru girin"
ValidationExpression="\w+([-+.’]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"></asp:RegularExpressionValidator>
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label4" runat="server" Text="Telefon(02222222222):"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server"
ControlToValidate="TextBox4" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="RegularExpressionValidator2" runat="server"
ControlToValidate="TextBox4" ErrorMessage="telefonu doğru giriniz"
ValidationExpression="0[0-9]{3}[0-9]{3}[0-9]{2}[0-9]{2}"></asp:RegularExpressionValidator>
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label5" runat="server" Text="Adres:"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox5" runat="server" Height="57px" TextMode="MultiLine"
Width="351px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator7" runat="server"
ControlToValidate="TextBox5" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label6" runat="server" Text="Kullanıcı Adı:"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server"
ControlToValidate="TextBox6" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label7" runat="server" Text="Şifre"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox7" runat="server" TextMode="Password"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server"
ControlToValidate="TextBox7" ErrorMessage="boş bırakmayınız"></asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
<asp:Label ID="Label8" runat="server" Text="Şifre Tekrar"></asp:Label>
</td>
<td class="style2">
<asp:TextBox ID="TextBox8" runat="server" TextMode="Password"></asp:TextBox>
<asp:CompareValidator ID="CompareValidator1" runat="server"
ControlToCompare="TextBox7" ControlToValidate="TextBox8"
ErrorMessage="şifreyi tekrar giriniz"></asp:CompareValidator>
</td>
</tr>
<tr>
<td class="style1">
<asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/Default.aspx">Anasayfa</asp:HyperLink>
</td>
<td class="style2">
<asp:Button ID="Button1" runat="server" Text="Üye Ol" />
<asp:Label ID="Label9" runat="server"></asp:Label>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
<strong>
</strong> [/code]
uyeol.aspx.vb Kodları;
[code lang=”vb”]
Imports System.Data
Imports System.Data.OleDb
Partial Class uyeol
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection("provider=Microsoft.ace.oledb.12.0;data source=" & Server.MapPath("App_data\vt.accdb"))
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim adp As New OleDbDataAdapter("select * from uyeler where kullaniciadi=’" & TextBox6.Text & "’", baglanti)
Dim dt As New DataTable
adp.fill(dt)
Dim i As Integer = 0
For Each satir In dt.Rows
i = i + 1
Next
If i = 0 Then
Try
Dim cmnd As New OleDbCommand
cmnd.Connection = baglanti
cmnd.CommandText = "insert into uyeler(ad,soyad,eposta,tel,adres,kullaniciadi,sifre) values (@ad,@soyad,@eposta,@tel,@adres,@kullaniciadi,@sifre)"
cmnd.Parameters.Add("@ad", OleDbType.VarChar).Value = TextBox1.Text
cmnd.Parameters.Add("@soyad", OleDbType.VarChar).Value = TextBox2.Text
cmnd.Parameters.Add("@eposta", OleDbType.VarChar).Value = TextBox3.Text
cmnd.Parameters.Add("@tel", OleDbType.VarChar).Value = TextBox4.Text
cmnd.Parameters.Add("@adres", OleDbType.VarChar).Value = TextBox5.Text
cmnd.Parameters.Add("@kullaniciadi", OleDbType.VarChar).Value = TextBox6.Text
cmnd.Parameters.Add("@sifre", OleDbType.VarChar).Value = TextBox7.Text
baglanti.Open()
cmnd.ExecuteNonQuery()
Label9.Text = "kayıt oldunuz"
baglanti.Close()
Catch ex As Exception
Label9.Text = "hata oluştu"
End Try
Else
Label9.Text = "Kullanıcı adı kullanımda"
End If
End Sub
End Class
[/code]