Yüzme Havuzları Sitesi – ASP.NET
anasayfa.aspx Kodları ;
[code lang=”html”]
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="anasayfa.aspx.vb" Inherits="resim" %>
<!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>
<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_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;
}
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];}
}
//–>
</script><style type="text/css">
<!–
body {
background-image: url(arkaplan.jpg);
}
–>
</style></head>
<body onload="MM_preloadImages(‘AAAGNNZCAYTQPYRCAHJHSYWCARN33NACAGYW0FGCA97L1FRCARMTU0ICABVBMRECAB75PQUCAOIM4GPCA5U2EKQCA9U6A9WCAU3K6THCAUI6ROBCA38NUJMCAL5YWEQCA49NYZVCA0CVZIACARBC0PWCAFKXJFU.jpg’,’A143WP4CA25W8IVCAKK6DSDCAG53639CANE0T3OCABL0AGHCA46KAMCCA1177S0CAUSTIRSCAXYRZ70CAI4BAHKCAFJ9GTXCA2ES0TQCAGWJGYOCAPAJSZJCANSB2SPCA83HJC5CAZM4KCOCA88V6SVCA111D7O.jpg’,’A9061MZCA5U4WBHCAH8NSJKCAIYML9HCAI4S2SMCAJMNIL9CAM4X3JMCAWPT66XCAACHRTKCAFASCLJCAIVTQYECA90QDM7CAOU72ILCA6XFABCCA3JINPXCAJ6O5UKCAN6YFP9CAW6G3T0CAW4HGW4CA9QOT1Q.jpg’,’AHEO0Z3CARH2KDUCA5EV5M6CANKI80VCAW7U4T6CAFRBI91CAZLGERICAVYG6UCCAIDK4Q2CA76Q74WCALMAKUFCAAG56A4CAV4WLB1CAT9LTQHCA4Z4MF4CALGT7V4CA75DJJ0CAAU04E6CA4VVGDKCAV1NLKG.jpg’,’AKK26U2CAZHURH1CAMZMUQYCAG5P12VCA0DL6HICAAIP1AHCA5W9DSICAHSIX3NCA2T3Y1NCAE6J9FSCARO4LRNCACCO901CAFTU19OCAGKMTAJCAD76H6RCA92X78KCAUHRNZPCA4QXY9JCAGNC3JWCAZS05SG.jpg’)">
<table width="902" height="465" border="0" align="center">
<tr>
<td height="154" colspan="3"> <img src="BANNER.png" width="1038" height="150" align="middle" /></td>
</tr>
<tr>
<td width="145" height="229"><table width="141" border="0" align="center">
<tr>
<td width="131"><a href="anasayfa.aspx"><img src="anasayfa.png" width="125" height="39" /></a></td>
</tr>
<tr>
<td><a href="randevual.aspx"><img src="randevual.png" width="125" height="39" /></a></td>
</tr>
<tr>
<td><a href="havuzlar.aspx"><img src="havuzlar.png" width="125" height="39" /></a></td>
</tr>
<tr>
<td><a href="iletisim.aspx"><img src="iletisim.png" width="125" height="39" /></a> </td>
</tr>
<tr>
<td><a href="uye.aspx"><img src="üye.png" width="125" height="39" /></a></td>
</tr>
</table> </td>
<td width="537" rowspan="2"><p> </p>
<table width="766" height="408" border="0" align="center">
<tr>
<td height="333" colspan="5"> <img src="A143WP4CA25W8IVCAKK6DSDCAG53639CANE0T3OCABL0AGHCA46KAMCCA1177S0CAUSTIRSCAXYRZ70CAI4BAHKCAFJ9GTXCA2ES0TQCAGWJGYOCAPAJSZJCANSB2SPCA83HJC5CAZM4KCOCA88V6SVCA111D7O.jpg" name="ORTA" width="763" height="333" id="ORTA" /></td>
</tr>
<tr>
<td width="148"><img src="A143WP4CA25W8IVCAKK6DSDCAG53639CANE0T3OCABL0AGHCA46KAMCCA1177S0CAUSTIRSCAXYRZ70CAI4BAHKCAFJ9GTXCA2ES0TQCAGWJGYOCAPAJSZJCANSB2SPCA83HJC5CAZM4KCOCA88V6SVCA111D7O.jpg" name="resim1" width="148" height="118" id="resim1" onmouseover="MM_swapImage(‘ORTA’,”,’A143WP4CA25W8IVCAKK6DSDCAG53639CANE0T3OCABL0AGHCA46KAMCCA1177S0CAUSTIRSCAXYRZ70CAI4BAHKCAFJ9GTXCA2ES0TQCAGWJGYOCAPAJSZJCANSB2SPCA83HJC5CAZM4KCOCA88V6SVCA111D7O.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
<td width="148"><img src="A9061MZCA5U4WBHCAH8NSJKCAIYML9HCAI4S2SMCAJMNIL9CAM4X3JMCAWPT66XCAACHRTKCAFASCLJCAIVTQYECA90QDM7CAOU72ILCA6XFABCCA3JINPXCAJ6O5UKCAN6YFP9CAW6G3T0CAW4HGW4CA9QOT1Q.jpg" name="resim2" width="148" height="118" id="resim2" onmouseover="MM_swapImage(‘ORTA’,”,’A9061MZCA5U4WBHCAH8NSJKCAIYML9HCAI4S2SMCAJMNIL9CAM4X3JMCAWPT66XCAACHRTKCAFASCLJCAIVTQYECA90QDM7CAOU72ILCA6XFABCCA3JINPXCAJ6O5UKCAN6YFP9CAW6G3T0CAW4HGW4CA9QOT1Q.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
<td width="148"><img src="AAAGNNZCAYTQPYRCAHJHSYWCARN33NACAGYW0FGCA97L1FRCARMTU0ICABVBMRECAB75PQUCAOIM4GPCA5U2EKQCA9U6A9WCAU3K6THCAUI6ROBCA38NUJMCAL5YWEQCA49NYZVCA0CVZIACARBC0PWCAFKXJFU.jpg" name="resim3" width="148" height="118" id="resim3" onmouseover="MM_swapImage(‘ORTA’,”,’AAAGNNZCAYTQPYRCAHJHSYWCARN33NACAGYW0FGCA97L1FRCARMTU0ICABVBMRECAB75PQUCAOIM4GPCA5U2EKQCA9U6A9WCAU3K6THCAUI6ROBCA38NUJMCAL5YWEQCA49NYZVCA0CVZIACARBC0PWCAFKXJFU.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
<td width="148"><img src="AHEO0Z3CARH2KDUCA5EV5M6CANKI80VCAW7U4T6CAFRBI91CAZLGERICAVYG6UCCAIDK4Q2CA76Q74WCALMAKUFCAAG56A4CAV4WLB1CAT9LTQHCA4Z4MF4CALGT7V4CA75DJJ0CAAU04E6CA4VVGDKCAV1NLKG.jpg" name="resim4" width="148" height="118" id="resim4" onmouseover="MM_swapImage(‘ORTA’,”,’AHEO0Z3CARH2KDUCA5EV5M6CANKI80VCAW7U4T6CAFRBI91CAZLGERICAVYG6UCCAIDK4Q2CA76Q74WCALMAKUFCAAG56A4CAV4WLB1CAT9LTQHCA4Z4MF4CALGT7V4CA75DJJ0CAAU04E6CA4VVGDKCAV1NLKG.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
<td width="152"><img src="AKK26U2CAZHURH1CAMZMUQYCAG5P12VCA0DL6HICAAIP1AHCA5W9DSICAHSIX3NCA2T3Y1NCAE6J9FSCARO4LRNCACCO901CAFTU19OCAGKMTAJCAD76H6RCA92X78KCAUHRNZPCA4QXY9JCAGNC3JWCAZS05SG.jpg" name="resim5" width="148" height="118" id="resim5" onmouseover="MM_swapImage(‘ORTA’,”,’AAAGNNZCAYTQPYRCAHJHSYWCARN33NACAGYW0FGCA97L1FRCARMTU0ICABVBMRECAB75PQUCAOIM4GPCA5U2EKQCA9U6A9WCAU3K6THCAUI6ROBCA38NUJMCAL5YWEQCA49NYZVCA0CVZIACARBC0PWCAFKXJFU.jpg’,1);MM_swapImage(‘ORTA’,”,’AKK26U2CAZHURH1CAMZMUQYCAG5P12VCA0DL6HICAAIP1AHCA5W9DSICAHSIX3NCA2T3Y1NCAE6J9FSCARO4LRNCACCO901CAFTU19OCAGKMTAJCAD76H6RCA92X78KCAUHRNZPCA4QXY9JCAGNC3JWCAZS05SG.jpg’,1)" onmouseout="MM_swapImgRestore()" /></td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
</td>
<td width="206"> </td>
</tr>
<tr>
<td height="72"> </td>
<td> </td>
</tr>
</table>
</body>
</html>
[/code]
randevual.aspx Kodları;
[code lang=”html”]
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="randevual.aspx.vb" Inherits="randevual" title="Untitled Page" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table style="width: 100%;">
<tr>
<td style="width: 56px">
Ad</td>
<td style="width: 171px">
<asp:TextBox ID="TextBox4" runat="server"></asp:TextBox>
</td>
<td>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server"
ControlToValidate="TextBox4" ErrorMessage="adı boş bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="width: 56px">
Soyad</td>
<td style="width: 171px">
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
</td>
<td>
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server"
ControlToValidate="TextBox2" ErrorMessage="soyadı boş bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="width: 56px">
Telefon</td>
<td style="width: 171px">
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
</td>
<td>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server"
ControlToValidate="TextBox3" ErrorMessage="telefonu boş bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="width: 56px">
Tarih</td>
<td style="width: 171px">
<asp:DropDownList ID="DropDownList1" runat="server">
<asp:ListItem></asp:ListItem>
<asp:ListItem>pazartesi</asp:ListItem>
<asp:ListItem>salı</asp:ListItem>
<asp:ListItem>çarşamba</asp:ListItem>
<asp:ListItem>perşembe</asp:ListItem>
<asp:ListItem>cuma</asp:ListItem>
</asp:DropDownList>
</td>
<td>
<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server"
ControlToValidate="DropDownList1" ErrorMessage="tarihi boş bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="width: 56px">
Saat</td>
<td style="width: 171px">
<asp:DropDownList ID="DropDownList2" runat="server">
<asp:ListItem></asp:ListItem>
<asp:ListItem>08:00</asp:ListItem>
<asp:ListItem>10:00</asp:ListItem>
<asp:ListItem>12:00</asp:ListItem>
<asp:ListItem>14:00</asp:ListItem>
</asp:DropDownList>
</td>
<td>
<asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server"
ControlToValidate="DropDownList2" ErrorMessage="saati boş bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="width: 56px">
Salon</td>
<td style="width: 171px">
<asp:DropDownList ID="DropDownList3" runat="server">
<asp:ListItem></asp:ListItem>
<asp:ListItem>salon1</asp:ListItem>
<asp:ListItem>salon2</asp:ListItem>
<asp:ListItem>salon3</asp:ListItem>
<asp:ListItem>salon4</asp:ListItem>
<asp:ListItem>salon5</asp:ListItem>
</asp:DropDownList>
</td>
<td>
<asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server"
ControlToValidate="DropDownList3" ErrorMessage="salonu boş bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td style="width: 56px">
</td>
<td style="width: 171px">
<asp:Button ID="Button1" runat="server" Text="Randevu Al" />
<asp:Button ID="Button2" runat="server" Text="İptal" />
<asp:Label ID="Label1" runat="server"></asp:Label>
</td>
<td>
<asp:HyperLink ID="HyperLink1" runat="server"
NavigateUrl="~/randevukontrol.aspx">Randevu Kontrol</asp:HyperLink>
</td>
</tr>
</table>
</asp:Content>
[/code]
randevual.aspx.vb Kodları;
[code lang=”vb”]<br /><br />Imports System.Data<br />Imports System.Data.OleDb<br />Partial Class randevual<br /> Inherits System.Web.UI.Page<br /> Dim baglanti As New OleDbConnection("provider=Microsoft.ace.oledb.12.0;data source=" & Server.MapPath("App_data\yuzme.accdb"))<br /> Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Dim adp As New OleDbDataAdapter("select * from yuzme where salon=’" & DropDownList3.SelectedValue & "’ and tarih=’" & DropDownList1.SelectedValue & "’ and saat=’" & DropDownList2.SelectedValue & "’", baglanti)<br /> Dim dt As New DataTable<br /> adp.Fill(dt)<br /> Dim i As Integer = 0<br /> For Each satir In dt.Rows<br /> i = i + 1<br /> Next<br /> If i = 0 Then<br /> baglanti.Open()<br /> Dim cmd As New OleDbCommand<br /> cmd.CommandText = "insert into yuzme(ad,soyad,telefon,tarih,saat,salon) values(@ad,@soyad,@telefon,@tarih,@saat,@salon)"<br /> cmd.Connection = baglanti<br /> cmd.Parameters.Add("@ad", OleDbType.VarChar).Value = TextBox4.Text<br /> cmd.Parameters.Add("@soyad", OleDbType.VarChar).Value = TextBox2.Text<br /> cmd.Parameters.Add("@telefon", OleDbType.VarChar).Value = TextBox3.Text<br /> cmd.Parameters.Add("@tarih", OleDbType.VarChar).Value = DropDownList1.SelectedValue<br /> cmd.Parameters.Add("@saat", OleDbType.VarChar).Value = DropDownList2.SelectedValue<br /> cmd.Parameters.Add("@salon", OleDbType.VarChar).Value = DropDownList3.SelectedValue<br /> cmd.ExecuteNonQuery()<br /> baglanti.Close()<br /> Label1.Text = "Randevunuz Alınmıştır.Lütfen Randevu Saatinde Orda Olunuz."<br /> baglanti.Close()<br /> Else<br /> Label1.Text = "randevu doludur başka bir randevu deneyiniz"<br /> End If<br /> End Sub<br /><br /> Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> TextBox4.Text = Nothing<br /> TextBox2.Text = Nothing<br /> TextBox3.Text = Nothing<br /> DropDownList1.SelectedValue = Nothing<br /> DropDownList2.SelectedValue = Nothing<br /> DropDownList3.SelectedValue = Nothing<br /> End Sub<br />End Class<br />[/code]
havuzlar.aspx Kodları;
[code lang=”html”]
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="havuzlar.aspx.vb" Inherits="havuzlar" title="Untitled Page" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table style="width:100%;">
<tr>
<td colspan="3">
<asp:Image ID="Image1" runat="server" Height="271px" Width="403px" />
</td>
</tr>
<tr>
<td>
</td>
<td>
</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td>
<asp:Button ID="Button2" runat="server" Text="Geri" />
<asp:Button ID="Button1" runat="server" Text="İleri"
Width="41px" />
</td>
<td>
</td>
</tr>
</table>
</asp:Content>
[/code]
havuzlar.aspx.vb Kodları;
[code lang=”vb”]
Imports System.Data
Imports System.Data.OleDb
Partial Class havuzlar
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Server.MapPath("App_Data\yuzme.accdb"))
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Session("sayfano") -= 1
sayfayukle()
End Sub
Protected Sub sayfayukle()
baglanti.Open()
Dim adp2 As New OleDbDataAdapter("select kimlik from resim", baglanti)
Dim dt2 As New DataTable
adp2.Fill(dt2)
For Each satir In dt2.Rows
Session("enson") = satir(0)
Next
Dim adp As New OleDbDataAdapter("select * from resim where kimlik=" & Session("sayfano"), baglanti)
Dim dt As New DataTable
adp.Fill(dt)
For Each satir In dt.Rows
Image1.ImageUrl = satir(1)
Next
baglanti.Close()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack = True Then
Session("sayfano") = 1
sayfayukle()
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Session("sayfano") += 1
sayfayukle()
End Sub
End Class
[/code]
iletisim.aspx Kodları;
[code lang=”html”]
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="iletisim.aspx.vb" Inherits="iletisim" title="Untitled Page" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
Gidecek Kişi:
<asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
<br />
<br />
E-posta :
<asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
<br />
<br />
Konu : <asp:TextBox ID="TextBox7" runat="server"></asp:TextBox>
<br />
<br />
Mesajınız: <asp:TextBox ID="TextBox8" runat="server" Height="73px" TextMode="MultiLine"
Width="190px"></asp:TextBox>
<br />
<asp:Button ID="Button1" runat="server" Text="Gönder.." />
<asp:Label ID="Label1" runat="server"></asp:Label>
</asp:Content>
[/code]
iletisim.aspx.vb Kodları;
[code lang=”vb”]
Imports System.Net
Imports System.Net.Mail
Partial Class iletisim
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim gonderici As New SmtpClient
Dim mail As New MailMessage
mail.To.Add(TextBox5.Text)
mail.From = New MailAddress(TextBox6.Text)
mail.Subject = TextBox7.Text
mail.Body = TextBox6.Text
Dim uyari As New NetworkCredential("hilal.boztepe.11@gmail.com", "hilal220240")
gonderici.Credentials = uyari
gonderici.Port = 587
gonderici.Host = "smtp.gmail.com"
gonderici.EnableSsl = True
gonderici.Send(mail)
Label1.Text = "Mesajınız Gönderildi…"
End Sub
End Class
[/code]
uye.aspx Kodları;
[code lang=”html”]
<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="uye.aspx.vb" Inherits="uye" title="Untitled Page" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<table align="center" style="width: 54%; height: 427px;">
<tr>
<td class="style1">
Ad:</td>
<td>
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server"
ControlToValidate="TextBox1" ErrorMessage="Boş Bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
Soyad:</td>
<td>
<asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server"
ControlToValidate="TextBox2" ErrorMessage="Boş Bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
Kullanıcı Adı:</td>
<td>
<asp:TextBox ID="TextBox3" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server"
ControlToValidate="TextBox3" ErrorMessage="Boş Bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
Şifre:</td>
<td>
<asp:TextBox ID="TextBox4" runat="server" TextMode="Password"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server"
ControlToValidate="TextBox4" ErrorMessage="Boş Bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
E-Posta</td>
<td>
<asp:TextBox ID="TextBox5" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server"
ControlToValidate="TextBox5" ErrorMessage="Boş Bırakmayın">*</asp:RequiredFieldValidator>
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server"
ControlToValidate="TextBox5" ErrorMessage="eposta hatalı"
ValidationExpression="\w+([-+.’]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*">*</asp:RegularExpressionValidator>
</td>
</tr>
<tr>
<td class="style1">
Gizli Soru:</td>
<td>
<asp:TextBox ID="TextBox6" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator6" runat="server"
ControlToValidate="TextBox6" ErrorMessage="Boş Bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
Gizli Cevap:</td>
<td>
<asp:TextBox ID="TextBox7" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator7" runat="server"
ControlToValidate="TextBox7" ErrorMessage="Boş Bırakmayın">*</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td class="style1">
</td>
<td>
<asp:Button ID="Button1" runat="server" Text="Kaydol" />
<asp:Button ID="Button2" runat="server" Text="İptal" />
</td>
</tr>
<tr>
<td class="style1">
</td>
<td>
<asp:ValidationSummary ID="ValidationSummary1" runat="server" />
</td>
</tr>
<tr>
<td class="style1">
</td>
<td>
<asp:Label ID="Label1" runat="server"></asp:Label>
</td>
</tr>
</table>
</asp:Content>
[/code]
uye.aspx.vb Kodları;
[code lang=”vb”]
Imports System.Data
Imports System.Data.OleDb
Partial Class uye
Inherits System.Web.UI.Page
Dim baglanti As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Server.MapPath("App_Data\yuzme.accdb"))
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
baglanti.Open()
Dim cmd As New OleDbCommand
cmd.CommandText = "insert into uyeler (ad,soyad,kul_adi,sifre,eposta,gizlisoru,gizlicevap) values(@ad,@soyad,@kul_adi,@sifre,@eposta,@gizlisoru,@gizlicevap)"
cmd.Connection = baglanti
cmd.Parameters.Add("@ad", OleDbType.VarChar).Value = TextBox1.Text
cmd.Parameters.Add("@soyad", OleDbType.VarChar).Value = TextBox2.Text
cmd.Parameters.Add("@kul_adi", OleDbType.VarChar).Value = TextBox3.Text
cmd.Parameters.Add("@sifre", OleDbType.VarChar).Value = TextBox4.Text
cmd.Parameters.Add("@eposta", OleDbType.VarChar).Value = TextBox5.Text
cmd.Parameters.Add("@gizlisoru", OleDbType.VarChar).Value = TextBox6.Text
cmd.Parameters.Add("@gizlicevap", OleDbType.VarChar).Value = TextBox7.Text
cmd.ExecuteNonQuery()
baglanti.Close()
Label1.Text = "Kayıt başarıyla gerçekleştirildi"
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = Nothing
TextBox2.Text = Nothing
TextBox3.Text = Nothing
TextBox4.Text = Nothing
TextBox5.Text = Nothing
TextBox6.Text = Nothing
TextBox7.Text = Nothing
End Sub
End Class
[/code]
Siteyi İNDİR
projeyi indirdim ama çalışmıyor neden olabilir aceba.? çok teşekkur ederm yayınladığınız için
büşra :
Hata mesajı olarak ne alıyorsunuz.Hata mesajını yazarsanız yardımcı olmamız daha kolay olur.
admin şifre nedirr???
ggdgdsgsg :
Kullanıcı bilgileri indirdiğiniz rar dosyası içindeki App_Data klasöüründe bulunan yuzme access tablusu içindeki uyeler tablusunda var.Sizde kendiniz ekleyebilrsinmiz.
Örnek : Kullanıcı Adı : hgjkhkjg Şifre : 457645
Solution is not saved. Please save your solution before managing NuGet packages.
Error: It is an error to use a section registered as allowDefinition=’MachineToApplication’ beyond application level. This error can be caused by a virtual directory not being configured as an application in IIS. C:\Users\Asus\Desktop\havuz\havuz\web.config 78
Hatalarını alıyorum ne yapmalıyım bilgilendirebilirseniz sevinirim.
Nur :
Solution is not saved. Please save your solution before managing NuGet packages.
Error: It is an error to use a section registered as allowDefinition=’MachineToApplication’ beyond application level. This error can be caused by a virtual directory not being configured as an application in IIS. C:\Users\Asus\Desktop\havuz\havuz\web.config 78
hatasının çözümü :
Tools->Options-> Projects and Solutions tıklıyoruz.Ekrana gelen menüden “Save new projects when created” seçneğini seçiyoruz.