Hazır Kod Ve Script (İstekler Muhakkak Cevap Bulur) (5. sayfa)

TasarımHaber · 2006-07-16T14:46:13.0000000+03:00

ADO - ADON.NET Titretme -------------------------------------------- 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 --> DÜĞMEYE BASIN VE OLANLARI GÖRÜN dilerseniz seri bi şekilde space'e basmayı deneyin -------------------------------------------------------------- ADO.NET İle Datagrid, -------------------------------------------------------------- DataGrid 2 id="listtalepler" runat="server" Width="90%" BorderColor="black" CellPadding=3 CellSpacing="0" Font-Name="Trebuchet MS" Font-Size="10pt" ForeColor="Black" BackColor="Beige" HeaderStyle-BackColor="Burlywood" HeaderStyle-Font-Bold="True" AutoGenerateColumns="False" OnSortCommand="Sort_Grid"> HeaderText="AD" DataField="ad" SortExpression="ad" /> HeaderText="Soyad" DataField="soyad" SortExpression="soyad" /> -----data.aspx.vb------- Imports System.Data Imports System.Data.OleDb Public Class data Inherits System.Web.UI.Page Protected WithEvents listtalepler As System.Web.UI.WebControls.DataGrid #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then 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/veritabanim.mdb;")) DBCommand = New OleDbDataAdapter _ ("Select * From tbltalep " _ " order by ad" , DBConn) DBCommand.Fill(DSPageData, _ "talepler") listtalepler.DataSource = _ DSPageData.Tables("talepler").DefaultView listtalepler.DataBind() End If End Sub � Sort_Grid olayyny tanymlayarak syralamama yapmamyza olanak veriyoruz. Sub Sort_Grid(ByVal Sender as Object, _ ByVal E as DataGridSortCommandEventArgs) 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/veritabanim;")) DBCommand = New OleDbDataAdapter _ ("Select * From tbltalep " _ "Order By " _ � e.sortExpression.ToString() olayy tyklady?ymyz sütunu syralyyor E.SortExpression.ToString(), DBConn) DBCommand.Fill(DSPageData, _ "talepler") listtalepler.DataSource = _ DSPageData.Tables("talepler").DefaultView listtalepler.DataBind() End Sub End Class ---------------------------------------------------- Kayıt Bilgilerinin Kullanıcıya Otomatik Olarak Gönderilmesi, ------------------------------------------------------ Mail denemesi Adynyz: Mail Adresi: Kullanycy Adynyz: ?ifreniz: 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.sitem.com" msgIntro.Headers.Add("Reply-To","emailadresim") msgIntro.Priority = MailPriority.High msgIntro.Subject = "Sitemize Ho?geldiniz" msgIntro.Body = "www.sitem.com 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.sitem.com" � 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.sitem.com adresine kaydynyz ba?ary ile yapyldy.Ylginize Çok te?ekkürler" SmtpMail.Send(msgIntro) end sub -------------------------------------------------------- ADO.NET ile login page oluşturma -------------------------------------------------------- ------ Login.aspx ----- � 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 Login Form .:: Üye Giri? ::. Kullanycy Ady: ?ifre : ?imdi default.aspx sayfamyzy yazalym. 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 Login Form .:: Üye Durumu ::. ASP Güvenlik kodu oluşturma ----------------------------- if page="" then enalt_sayi = 999 enust_sayi = 99999 Randomize() isle = enust_sayi - enalt_sayi + 1 random = isle * rnd() random = random + enalt_sayi guvenlik = int(random) %> end if %> --------------------------------------- Login Olma, --------------------------------------- .style1 {font-size: 12px} .style2 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 14px; } .userfont { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: normal; color: #333366; } --> ÖRNEK: ( " action="default.asp?islem=forumlogynol.asp " ) Kullanycy Adynyz: ?ifreniz: --------------------------------------------------- Cdonts Mail bileşeni yollama --------------------------------------------------- RESPONSE.BUFFER = TRUE Dim objCDOMail Dim strFrom, strTo Dim strBody, strSubject strFrom = Request.form("from") strTo = request.form("to") strBody = request.form("body") strSubject = request.form("subject") Set objCDOMail = Server.createobject("CDONTS.NewMail") objCDOMail.From = str.From objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.MailFormat = 0 '(0:Text, 1:HTML, 2:Close HTML) objCDOMail.BodyFormat = 0 objCDOMail.Body = strBody objCDOMail.Importance = 1 '(1:Slow , 2:Normal, 3:Fast) objCDOMail.Send Set objCDOMail = nothing %> ------------------------------------------------ Asp'de rastgele sayı ------------------------------------------------ Dim rastgelesayi Randomize rastgelesayi = RND %> --------------------------------------------------------- Sayfalama Yapmak -------------------------------------------------------- New Page 1 set data=server.createobject("adodb.connection") set rst6=server.createobject("adodb.recordset") data.Open "Provider=SQLOLEDB.1;Password=4671547;Persist Security Info=True;User ID=web;Initial Catalog=TICONA2005;Data Source=ramazan" rst6.open "select * from TBLSTSABIT order by STOK_KODU ",data,3,3 deste=15 Sayfa=rst6.recordcount/deste sayi=request("S") Liste=sayi * deste if sayi=>2 then for i= 0 to Liste-15 if i=rst6.recordcount then exit for end if rst6.movenext next else end if %> if sayi=1 then liste=1 end if %> for i= liste to liste+Deste%> -- if i=rst6.recordcount then exit for end if rst6.movenext next %> >