1 - Titretme

Titretme



<html><HEAD>

 

<SCRIPT LANGUAGE="JavaScript1.2">

 

<!-- Begin

function shake(n) {

if (self.moveBy) {

for (i = 10; i > 0; i--) {

for (j = n; j > 0; j--) {

self.moveBy(0,i);

self.moveBy(i,0);

self.moveBy(0,-i);

self.moveBy(-i,0);

}

}

}

}

// End -->

</script>

</HEAD>

<BODY bgcolor="red">

<center><font color="white">

<h1>DÜĞMEYE BASIN VE OLANLARI GÖRÜN</h1>

<br>

<h3>Dilerseniz seri bi şekilde space'e basmayı deneyin</h3>

 

 

<center>

<form>

<input type=button onClick="shake(2)" value="BAŞLA">

</form>

 

<%@ page language="VB" debug="true" Explicit="True" %>

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OLEDB" %>

<script runat="server" language="VB">

 

‘ giris tusuna basty?ymzda olmasyny istedi?imiz olay

 

Sub OK_OnSubmit(Sender As Object, E As EventArgs)

    Dim DBConn as OleDbConnection

    Dim DBCommand As OleDbDataAdapter

    Dim DSPageData as New DataSet

    DBConn = New OleDbConnection("provider=" _

        & "Microsoft.Jet.OLEDB.4.0;" _

        & "DATA SOURCE=" _

        & Server.MapPath("db.mdb;"))

    DBCommand = New OleDbDataAdapter _

        ("Select * From uyeler Where " _

        & "kad = '" & kad.Text & "' " _

        & "And sifre = '" & sifre.Text & "'" _

       , DBConn)

    DBCommand.Fill(DSPageData, _

        "uyeler")


    If  DSPageData.Tables("uyeler").Rows.Count = 0 Then

       hata.Text = "Kullanycy Adynyzy veya ?ifrenizi Yanly? Girdiniz"

     Else

        Session("id") = DSPageData.Tables("uyeler"). _

            Rows(0).Item("id")

      Session("id") = kad.Text    ‘ Kullanycy adymyz session bilgimiz olsun

      response.Redirect("default.aspx")

 End If

End Sub

</script>

 

<html>

<head>

<title>Login Form</title>

</head>

<body>

<form id="form1" runat="server">

 

<center>

<br>

<b>.:: Üye Girişi ::.</b><br><br>

 Kullanıcı Adı:    <asp:textbox id="kad" runat="server"/>

<br><br>           Şifre :    <asp:textbox id="sifre" runat="server" textmode="password" />

<br><asp:Button runat="server" id="runat" Text="Giri?" OnClick="OK_OnSubmit" />

 

<br><asp:label id="hata" runat="server" />

</form>

</body>

</html> 

 

Şimdi default.aspx sayfamızı yazalım.

 

<%@ page language="VB" debug="true" Explicit="True" %>

 

<script runat="server" language="VB">

 

 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 ‘Burada kullanycy adyny istiyoruz e?er kullanycy ady yoksa geri gönder diyoruz 

If  Len(session("id")) = 0 Then

        Response.Redirect("login.aspx")

  Else

‘ Request.ServerVariables(“Auth_user”) olayy sayfaya authenticate olan

 ‘kullanycynyn bilgisini bildiriyor

bilgi.text = Request.ServerVariables("Auth_user")

 end if

      End Sub

 

 ‘ Session.Clear session bilgilerimizi temizliyor  ve login.aspx sayfasyna yönlendiriyor.

 

Sub cikis_OnSubmit(Sender As Object, E As EventArgs)

 Session.Clear()

 response.Redirect("login.aspx")

end sub

</script>

<html>

<head>

<title>Login Form</title>

</head>

<body>

<form id="form1" runat="server">

<center>

<br>

<b>.:: Üye Durumu ::.</b><br><br>

 <br><asp:label id="bilgi" runat="server" />

<br>

<br>

<asp:button id="cikis" runat="server" Text="Çyky?" OnClick="cikis_OnSubmit" />

</form>

</body>

</html>

<html>

<head>

<title>Mail denemesi</title>

</head>

<body>

<form id="formkay" runat="server">

<asp:label id=”txtad” runat=”server”>Adınız:</asp:label><asp:textbox id="ad" runat="server" /><br>

<asp:label id=”txtmail” runat=”server”>Mail Adresi:</asp:label><asp:textbox id=”email” runat=”server” /><br>

<asp:label id=”txtusern” runat=”server”>Kullanıcı Adınız:</asp:label><asp:textbox id=”usern” runat=”server” /><br>

<asp:label id=”txtsifre” runat=”server”>Şifreniz:</asp:label><asp:textbox id=”sifre” runat=”server” /><br>

<asp:button id="cmdkay" runat="server" text="kayyt" />

</form>

</body>

</html>

 

Basit bir  kayyt sayfasy olu?turduktan sonra ?imdi arkaplanda çaly?acak olan kay.vb dosyamyzy olu?turalym.

 

------ kay.vb -----

 

Imports System.Data.OleDb

Imports System.Data

Imports System.Web

Imports System.Web.UI

Imports system.Web.UI.WebControls

Imports System.Web.UI.HtmlControls

Imports System.Web.Mail

Public Class kay

    Inherits System.Web.UI.Page

 

 Protected WithEvents ad as System.Web.UI.WebControls.Textbox

 Protected WithEvents email as System.Web.UI.WebControls.Textbox

Protected WithEvents usern as System.Web.UI.WebControls.Textbox

Protected WithEvents sifre as System.Web.UI.WebControls.Textbox

 Protected WithEvents cmdkay as System.Web.UI.WebControls.Button

 

Private strconnection As String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("veritabanim.mdb") &";Persist Security Info=False"

 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

 end sub

 

 sub SendIntroMail

 Dim msgIntro as New MailMessage

 msgIntro.BodyFormat = MailFormat.HTML

 msgIntro.To = email.text

 msgIntro.From = "www.fatihdursun65.tr.gg"

 msgIntro.Headers.Add("Reply-To","emailadresim")

 msgIntro.Priority = MailPriority.High

 msgIntro.Subject = "Sitemize Ho?geldiniz"

 msgIntro.Body = "www.fatihdursun65.tr.gg adresine kaydynyz ba?ary ile yapyldy.Ylginize Çok te?ekkürler"

 SmtpMail.Send(msgIntro)

 end sub

Private sub cmdkay_Click(Byval Sender as System.Object, Byval e as System.EventArgs) Handles cmdkay.Click

 

 Dim strSelect As String

 strSelect = "SELECT * FROM tbluser "

Dim con as New OleDBConnection(strConnection)

Dim cmd As New OleDBCommand(StrSelect, con)

Dim adapter as New OledbDataAdapter(cmd)

Dim dsvt As New DataSet()

 

Try

 

con.Open()

 

 

adapter.FillSchema(dsvt, SchemaType.Mapped, "tbluser")

 

Finally

If not con is nothing then con.close()

End try

 

Dim rownew As DataRow

rownew = dsvt.Tables("tbluser").NewRow

rownew("ad") = ad.Text

rownew(“email”) = email.Text

rownew(“usern”) = usern.Text

rownew(“sifre”) sifre.Text

 

dsvt.Tables("tbluser").Rows.Add(Rownew)

 

Dim intAdded As Integer

Try

Dim cb As New OleDBCommandBuilder(adapter)

adapter = cb.DataAdapter

con.Open()

intAdded = adapter.Update(dsvt, "tbluser")

Finally

If not con Is Nothing Then con.Close()

End Try

 

if intAdded > 0 Then

SendIntromail

end if

End sub

End class

 

 Burada normal kayyttan farkly olarak yukaryda gördü?ünüz gibi kayyt ba?aryly oldu?unda SendIntromail komutu ile kullanycynyn vermi? oldu?u mail adresine mail gönderiyoruz. SendIntroMail komutunu incelersek;

 

 sub SendIntroMail

‘ Mesajymyzy tanytyyoruz

 Dim msgIntro as New MailMessage 

 

‘ Mail formatyny belirliyoruz

 msgIntro.BodyFormat = MailFormat.HTML

 

‘ mailin gidece?i adresi email textbox’yndan alyyoruz

 msgIntro.To = email.text

 

‘ mailin kim tarafyndan gönderildi?i

 msgIntro.From = "www.fatihdursun65.tr.gg

 

‘ E?er cevaplanyrsa kime gelece?i

 msgIntro.Headers.Add("Reply-To","emailadresim")

 

‘ mailimizin önem derecesi

 msgIntro.Priority = MailPriority.High

 

‘ Mail konumuz

 msgIntro.Subject = "Sitemize Ho?geldiniz"

 

‘gönderdi?imiz mailin içeri?i

 msgIntro.Body = "www.fatihdursun65.tr.gg adresine kaydynyz ba?ary ile yapyldy.Ylginize Çok te?ekkürler" 

 SmtpMail.Send(msgIntro)

 end sub

 

 Burada gönderdi?imiz mail’in içeri?ine üye olan kullanycyn adyny da ilave etmek isterseniz (Örn. Sayyn fatih) typky gidecek mail adresinde oldu?u gibi ad.text komutunu ekleyebilirsiniz. Ve son olarak syra geldi üye kaydy yapaca?ymyz veritabanyna.Onu da download edebilirsiniz. Yada kendiniz olu?turabilirsiniz.Yapmanyz gerekenler oldukça basit.

 
Reklam
 
 

=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=