Tüm Forumlar
Web Tasarım - Programlama
Hazır forum ve portallar
Bu Konuda

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 %> >

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Ruffles Originals Sade Patates Cipsi Süper Boy 107 Gr : Amazon.com.tr: Gıda Ürünleri https://www.amazon.com.tr/dp/B08Q97WY4M 16 sa. önce paylaşıldı

Crocs Crocband Stucco/Melon TerlikUnisex Yetişkin : Amazon.com.tr: Moda https://www.amazon.com.tr/dp/B01J1LQ188 5 sa. önce paylaşıldı

Süper Tık Hızı Kuponlar - n11 https://www.n11.com/kampanyalar/super-tik-hizinda-kuponlar geçen yıl paylaşıldı

Duracell AAA Alkalin İnce Kalem Pil (6'lı paket) 1,5 V LR03/MN2400 : Amazon.com.tr: Elektronik https://www.amazon.com.tr/dp/B089R1VYQZ 16 sa. önce paylaşıldı

Elle Siyah Deri Erkek Klasik Bot Fiyatı - Taksit Seçenekleri https://www.hepsiburada.com/elle-siyah-deri-erkek-klasik-bot-p-HBCV0000317491 15 sa. önce paylaşıldı

Tadıbu 330 gr 2'li Kakaolu Fındık Ezmesi Fiyatları ve Modelleri - Pazarama https://www.pazarama.com/tadibu-kakaolu-findik-ezmesi-2-x-330-g-p-62477776176332?magaza=e-grossmarket 11 ay önce paylaşıldı

Ruffles Ketçap Aromalı Patates Cipsi Süper Boy 107 G : Amazon.com.tr: Gıda Ürünleri https://www.amazon.com.tr/dp/B08Q96TXRF 2 ay önce paylaşıldı

{{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}}

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

115
Cevap

0
Favori

17.065
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konudaki Resimler

Mesaj Tarihine Göre En Beğenilen Son Ekleneneler

Seçimimi Hatırla

Mesaj Tarihine Göre

Mesaj Tarihine Göre
En Beğenilenler
Son Eklenenler

Konuya Özel

Favorilerime Ekle
Konuyu Açandan
Popüler Mesajlar
Linkli Mesajlar
Yazdır
E-Posta Aboneliği
Konuyu Gizle

0 oy

Öne Çıkar

x İlgini çekti mi?
Öne çıkar, anasayfada
daha üstte görünsün.
Daha Fazla Bilgi

Cevapla

Tüm Forumlar >> Web Tasarım - Programlama >> Hazır forum ve portallar >> Hazır Kod Ve Script (İstekler Muhakkak Cevap Bulur) | DonanımHaber Forum » Sayfa 5

Sayfa:

önceki 2 3 4 5 6

Sayfaya Git

Git

Giriş

Mesaj

~~phpBB 2.0.21~~

Süresiz olarak uzaklaştırıldı.

10 Ağustos 2006 12:00:06

Mesaj Linkini Kopyala
Şikayet

Arkadaşlar phpbb ile ilgili sorunlarınız itina ile çözülür,

Ayrıca bu konuyu da devam ettirmek isterim,

İstek phpBB MOD/Hazır Kod/Hazır Script

Bir de herkes banlnmış yaw neden?

desvebun

Onbaşı

15 Mesaj

"onbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.