Kütüphane Sitesi – ASP.NET
default.aspx Kodlari;
[code lang=”html”]
<%@ Page Title="" Language="VB" MasterPageFile="~/anasayfa.master" AutoEventWireup="false" CodeFile="index.aspx.vb" Inherits="index" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
<style type="text/css">
#orta
{
height: 483px;
width: 645px;
}
</style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<script type="text/javascript">
<!–
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
//–>
</script>
</head>
<body onload="MM_preloadImages(‘resim1/nene1.JPG’,’resim1/1249-Ask.jpg’,’resim1/112167_2.jpg’,’resim1/127061_2.jpg’,’resim1/153651_2.jpg’,’resim1/166352_2.jpg’,’resim1/adobeflashcs3kitap.jpg’)">
<table border="0" style="height: 513px; width: 633px">
<tr>
<td height="512" colspan="7"><img src="resim1/nene.JPG" name="orta" id="orta" /></td>
</tr>
<tr>
<td width="72"><img src="resim1/nene1.JPG" width="90" height="90" onmouseover="MM_swapImage(‘orta’,”,’resim1/nene1.JPG’,1)" onmouseout="MM_swapImgRestore()" /></td>
<td width="72"><img src="resim1/1249-Ask.jpg" id="Image2"
onmouseover="MM_swapImage(‘orta’,”,’resim1/1249-Ask.jpg’,1)"
onmouseout="MM_swapImgRestore()" style="height: 96px; width: 86px" /></td>
<td width="72"><img src="resim1/112167_2.jpg" width="90" height="90" id="Image3" onmouseover="MM_swapImage(‘orta’,”,’resim1/112167_2.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
<td width="72"><img src="resim1/127061_2.jpg" width="90" height="90" id="Image4" onmouseover="MM_swapImage(‘orta’,”,’resim1/127061_2.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
<td width="72"><img src="resim1/153651_2.jpg" width="90" height="90" id="Image5" onmouseover="MM_swapImage(‘orta’,”,’resim1/153651_2.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
<td width="82"><img src="resim1/166352_2.jpg" width="90" height="90" id="Image6" onmouseover="MM_swapImage(‘orta’,”,’resim1/166352_2.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
<td width="131"><img src="resim1/adobeflashcs3kitap.jpg" width="90" height="90" id="Image7" onmouseover="MM_swapImage(‘orta’,”,’resim1/adobeflashcs3kitap.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
</tr>
</table>
<br />
<br />
Kullanıcı Adı:<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<br />
Şifre:
<asp:TextBox ID="TextBox2" runat="server" TextMode="Password"></asp:TextBox>
<br />
<asp:Button ID="Button2" runat="server" Height="23px" Text="Giriş"
Width="66px" />
<asp:Label ID="Label1" runat="server"></asp:Label>
<asp:HyperLink ID="HyperLink4" runat="server" NavigateUrl="~/uyeol.aspx">Üye
ol</asp:HyperLink>
</asp:Content>
[/code]
anasayfa.aspx.vb Kodları;
[code lang=”vb”]
Imports System.Data
Imports System.Data.OleDb
Partial Class index
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OleDB.12.0;Data Source=" & Server.MapPath("App_Data\kitap.mdb"))
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = Nothing
Dim kadi As String = TextBox1.Text
Dim sifre As String = TextBox2.Text
Dim adp As New OleDbDataAdapter("select * from uyeler where kul_adi=’" & 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("id") = satir(0)
Session("ad") = satir(1)
Session("soyad") = satir(2)
Session("yetki") = satir(8)
Next
If i = 0 Then
Label1.Text = "kullanıcı adı ve şifre hatalı"
ElseIf Session("yetki") = 0 Then
Response.Redirect("index.aspx")
ElseIf Session("yetki") = 1 Then
Response.Redirect("adminsayfasi.aspx")
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class
[/code]
kitapara.aspx Kodları;
[code lang=”html”]
<%@ Page Language="VB" MasterPageFile="~/anasayfa.master" AutoEventWireup="false" CodeFile="kitapara.aspx.vb" Inherits="kitapara" title="Untitled Page" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
<style type="text/css">
.style28
{
width: 140px;
}
</style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<br />
<table style="width:100%;">
<tr>
<td class="style28">
Kitap Türü :</td>
<td>
<asp:DropDownList ID="DropDownList1" runat="server" AutoPostBack="True">
</asp:DropDownList>
</td>
<td>
</td>
</tr>
<tr>
<td class="style28">
Kitap Adı :</td>
<td>
<asp:DropDownList ID="DropDownList2" runat="server">
</asp:DropDownList>
</td>
<td>
</td>
</tr>
<tr>
<td class="style28">
</td>
<td>
<asp:LinkButton ID="LinkButton2" runat="server">Ara</asp:LinkButton>
</td>
<td>
</td>
</tr>
</table>
<asp:HyperLink ID="HyperLink4" runat="server" NavigateUrl="~/giris.aspx">Çıkış</asp:HyperLink>
</asp:Content>
[/code]
kitaplar.aspx.vb Kodları;
[code lang=”vb”]
Imports System.Data
Imports System.Data.OleDb
Partial Class kitapara
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OleDB.12.0;Data Source=" & Server.MapPath("App_Data\kitap.mdb"))
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack = True Then
Dim adp As New OleDbDataAdapter("select distinct tur from kitap", baglanti)
Dim dt As New DataTable
adp.Fill(dt)
For Each satir In dt.Rows
Session("kitap") = satir(0)
DropDownList1.Items.Add(Session("kitap"))
Next
End If
If Session("id") = Nothing Then
Response.Redirect("giris.aspx")
End If
End Sub
Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
Response.Redirect("kitaplarim.aspx?tur=" & DropDownList1.SelectedValue & "&kitapadi=" & DropDownList2.SelectedValue)
End Sub
Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
Dim adptr As New OleDbDataAdapter("select distinct kitapadi from kitap where tur=’" & DropDownList1.SelectedValue & "’", baglanti)
Dim dtt As New DataTable
adptr.Fill(dtt)
For Each satir2 In dtt.Rows
Session("kitapadi") = satir2(0)
DropDownList2.Items.Add(Session("kitapadi"))
Next
End Sub
End Class
[/code]
hakkimizda.aspx Kodları;
[code lang=”html”]
<%@ Page Language="VB" MasterPageFile="~/anasayfa.master" AutoEventWireup="false" CodeFile="hakkimizda.aspx.vb" Inherits="hakkimizda" title="Untitled Page" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<p>
Kitap evi kütüphanemiz himetinize yeni açıldığından dolayı 30 kitap ile
sınırlıyız.Kitap çeşitlerimiz ;<br />
roman<br />
hikaye<br />
tarihi roman<br />
olmak üzere üç türden olusmaktadır.Kütüphanemiz sabah 9.00 dan
<br />
akşam 7.00 'a kadar açıktır.Alınan kitaplarımız sayfa sayılarına<br />
göre getirme teslimatı almaktadırlar.<br />
Kütüphanemiz 14 yas üstü ögrencilerimize kısacası lise öğrencilerine<br />
Hilal kart verilmektedir.bu kart sayesinde kitaplarımızın sizde daha<br />
fazla kalması sağlanmıstır.</p>
<p>
</p>
<p>
</p>
<p>
</p>
</asp:Content>
[/code]
giris.aspx Kodları;
[code lang=”html”]
<%@ Page Title="" Language="VB" MasterPageFile="~/anasayfa.master" AutoEventWireup="false" CodeFile="giris.aspx.vb" Inherits="giris" %>
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
<style type="text/css">
.style1
{
width: 427px;
}
.style2
{
width: 131px;
}
.style3
{
}
.style4
{
width: 131px;
font-weight: bold;
font-size: x-large;
color: #0066FF;
height: 38px;
}
.style6
{
width: 131px;
}
.style7
{
width: 144px;
}
.style8
{
width: 145px;
height: 1px;
}
.style9
{
width: 131px;
height: 1px;
}
.style10
{
width: 144px;
}
.style11
{
width: 145px;
height: 16px;
}
.style15
{
width: 144px;
height: 38px;
}
.style28
{
width: 79px;
}
.style29
{
width: 180px;
}
.style30
{
width: 268px;
font-weight: bold;
font-size: x-large;
color: #0066FF;
}
.style31
{
width: 222px;
}
.style32
{
width: 180px;
height: 16px;
}
.style35
{
width: 268px;
height: 16px;
}
.style36
{
width: 268px;
}
</style>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table style="margin-right: 15px">
<tr>
<td class="style11">
</td>
<td class="style35">
</td>
<td class="style32">
</td>
</tr>
<tr>
<td class="style29">
<b></b></td>
<td class="style30">
Üye Girişi
</td>
<td class="style31">
</td>
</tr>
<tr>
<td class="style3">
</td>
<td class="style36">
</td>
<td class="style28">
</td>
</tr>
<tr>
<td class="style3">
Kullanıcı Adı :</td>
<td class="style36">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
</td>
<td class="style28">
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server"
ControlToValidate="TextBox1" ErrorMessage="Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style28">
Şifre :</td>
<td class="style36">
<asp:TextBox ID="TextBox2" runat="server" TextMode="Password"></asp:TextBox>
</td>
<td class="style10">
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server"
ControlToValidate="TextBox2" ErrorMessage="Boş Bırakmayınız">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style3">
</td>
<td class="style36">
<asp:Button ID="Button1" runat="server" Text="Giriş " />
<asp:Button ID="Button2" runat="server" Text="İptal" style="height: 26px" />
</td>
<td class="style28">
</td>
</tr>
<tr>
<td class="style3">
</td>
<td class="style36">
<asp:Label ID="Label1" runat="server"></asp:Label>
</td>
<td class="style28">
</td>
</tr>
<tr>
<td class="style3">
</td>
<td class="style36">
</td>
<td class="style28">
<asp:HyperLink ID="HyperLink2" runat="server" NavigateUrl="~/uyeol.aspx">Üye Ol</asp:HyperLink>
</td>
</tr>
<tr>
<td class="style3" colspan="3">
<asp:ValidationSummary ID="ValidationSummary1" runat="server" />
</td>
</tr>
</table>
</asp:Content>
[/code]
giris.aspx.vb Kodları;
[code lang=”vb”]
Imports System.Data
Imports System.Data.OleDb
Partial Class giris
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OleDB.12.0;Data Source=" & Server.MapPath("App_Data\kitap.mdb"))
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = Nothing
Dim kadi As String = TextBox1.Text
Dim sifre As String = TextBox2.Text
Dim adp As New OleDbDataAdapter("select * from uyeler where kul_adi=’" & 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("id") = satir(0)
Session("ad") = satir(1)
Session("soyad") = satir(2)
Session("yetki") = satir(8)
Next
If i = 0 Then
Label1.Text = "kullanıcı adı ve şifre hatalı"
ElseIf Session("yetki") = 0 Then
Response.Redirect("index.aspx")
ElseIf Session("yetki") = 1 Then
Response.Redirect("adminsayfasi.aspx")
End If
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = Nothing
End Sub
End Class
[/code]
hocam bunu nasıl çalıştıracağız?
mehmet :
Siteyi indirdikten sonrar rar çıkartınız.Visual Studio programını açınız. File – Open – Web Site seçeneklerine tıklayarak ekrana gelen menüden sitenin bulunduğu klasörü seçip Open diyoruz.
peki veritabanını sasıl bağlayacağız.Benim projem var da yardımcı olabilir misiniz acaba??
aynen benimde proje var napacaz ya
Asp.net, SQL ile bağlantılı olarak Kütüphane Otomasyonu yapmam gerekli. Burda bazı şeyler var teşekkürler öncelikle. Ama biraz daha özen gösterip SQL ilede bağlayıp verileri oradan çekebilir misiniz ?
Öncelikle rardan cıkarınız. Daha sonra visual studiodan yeni bir empty asp.net projesi açın ver .sln uzantılı dosyanın bulundugu dosyayı bulun ve rardan cıkardıgınız dosyayı bu klasore atın. daha sonra visual studıoyu kapatıp acın ve az önce açmıs oldugunuz projeyı açın sorunsuz çalışacaktır.
Hocam mvc ile yapıp sql olarak postgresql kullanmamız isteniyor. Yapabilir miyim bu site üzerinden bu işlemleri
Hocam ben bunları kopyala yapıştır yapıyorum olmuyor bana yardımcı olabilir misiniz lütfen
İyi günler eğer bu projeyi yaptıysanız bana yardımcı olabilir misiniz lütfen