Hazır Kod Ve Script (İstekler Muhakkak Cevap Bulur) (6. 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

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

1 Misafir - 1 Masaüstü

5 sn

115
Cevap

0
Favori

17.309
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa:

önceki 2 3 4 5 6

Giriş

Mesaj

oralunal

Yarbay

2205 Mesaj

Tüm Başarılarını Gör

_____________________________

Elektronik Malzeme

_____________________________

oralunal

Yarbay

2205 Mesaj

Tüm Başarılarını Gör

quote:

Orjinalden alıntı: illegalx2

phpbb forumu nası kurarım.yardımcı olursanız sevinirim.

Orjinalden alıntı: necroza

Yeni Sürümler icin
www.phpbb.com

İnternette ücretsiz phpbb forum kurulumu kurulumu

www.tripod.co.uk buraya girip bir hesap açıyoruz
Ordaki bölümdeki her seyi doldurmanız lazım yoksa olmuyor üyelik
Her seyi doldurduktan sonra formu yolluyoruz
Sonra mail adresimize bilgiler gelecek hesabımız hakkında
Mail adresine lycos tan gelen bütün mailleri onaylayın

Phpbb Forum:http://prdownloads.sourceforge.net/phpbb/phpBB-2.0.21.zip?use_mirror=kent
Yukarıdaki linke tıklayıp phpbb forumu indiriyoruz

http://www.globalscape.com/files/cuteftppro.exe

dediğim dosyaları indirdikten sonra

cute ftp yi açıyoruz
Ondan sonra yukarıda menüler var burada;

File>connect>connect wizard buraya tıklayoruz sonra my ftp site yazacaktır
Orayı istediğimiz gibi değiştirebilir adınız falan gibi sonra;

Sonra doldurulması gereken yerler var

ftp: ftp.members.lycos.co.uk
kullanıcı adı:[lycostan gelen mailda yazacaktır]
Şifre:[lycostan gelen mailda yazacaktır]

Bu bilgileri girdikten sonra phpbb2 dosyalarını kopyala yapıştır yöntemiyle panoya yapıştırıyoruz
Sonrada dosyaların yüklenmesini bekleyoruz
Bu tahminen: yarım saat sürebilir

Yükleme bittikten sonra sitemize giriyoruz ;

members.lycos.co.uk/kuladınız/forumklasörü/install/install.php buraya giriyoruz
Unutmayın! kuladınız gibi bölümleri kendinize göre ayarlayın sonra kurma ekranı gelecek
Burada Bazı şeyler soracak şimdi bende açtım yanlışlık olmaması için bende kuruyorum

Basic Configuration

Default board language: English
Database Type :MySQL 4.x
Choose your installation method: install

Database Configuration

Your Database Name: kullanıcıadı_uk_db
Database Username: bilinmeyen [kendinize göre ayarlayın]
Database Password: 123456 [kendinize göre ayarlayın]
Prefix for tables in database: phpbb_

Admin Configuration

Admin Email Address: [mail yazınız]
Domain Name: localhost [aynen kalsın]
Server Port: 80
Script path: /phpbb2/
Administrator Username:adminadı
Administrator Password: [şifrenizi yazınız]
Administrator Password [ Confirm ]: [şifre tekrarı]

Sonra FTP mizi tekrar açıyoruz

install ve contrib dosyasını bulup bu iki dosyayı siliyoruz

Şimdi yapacak bir şey kalmadı sorun olmaması lazım forumumuzda giriyoruz ve bakıyoruz
Forumunuz karşınızda çok uğrasmadan pratik bir forumumuzu kurduk
Hiç bi yerden almadım bu dökümanı uğrastım yazdım.
Eher sitenizde yayınlarsanız bu döküman necrozan tarafından yazılmıştır
Yazaınız lütfen siz böle yapın ki ben şimdi size birde php nuke kurulumu
Vede php nukede hackten korunma yöntemlerini anlatacağım devam edelim;

Eeee... nede olsa Türk ' üs şimdide foruma türkçe yamamızı kuralım..

Sonra buradan ;http://www.phpbb.com/files/releases/language_packs/lang_turkish.zip

türkçe yamamızı indiriyoruz extract ediyoruz
sonra açıyoruz dosyamızı
lang_turkish'in içine giriyoruz sonra içindeki
lang_turkish klasörü sağ tuş kopyala diyoruz
sonra ftpmizi açıyoruz
\language klasörünün içine yapıştır diyoruz tahminen 15 aniye sürer
sonrada administır panel var [yanlış yazdım tabili] tıklıyoruz

sonra bi sayfaya yönlendirecek bizi Configuration var
Tıklıyoruz ona Default Language: englis yazıyor bin turkish i seçiyoruz
Vede her sey bitti bende bittim biraz uzun oldu biliyorum ama herkes kurabilir
Bunu okuduktan Sonra sanırım
İyi çalışmalar....

Not: Bilgiler @Necroza'dan alıntıdır.

_____________________________

Elektronik Malzeme

_____________________________

oralunal

Yarbay

2205 Mesaj

Tüm Başarılarını Gör

_____________________________

Elektronik Malzeme

oralunal

Yarbay

2205 Mesaj

Tüm Başarılarını Gör

_____________________________

Elektronik Malzeme

_____________________________

aslanerkam

Yüzbaşı

363 Mesaj

Tüm Başarılarını Gör

_____________________________

oralunal

Yarbay

2205 Mesaj

Tüm Başarılarını Gör

_____________________________

Elektronik Malzeme

_____________________________

cuulman1

Binbaşı

1336 Mesaj

Tüm Başarılarını Gör

_____________________________

oralunal

Yarbay

2205 Mesaj

Tüm Başarılarını Gör

_____________________________

Elektronik Malzeme

oralunal

Yarbay

2205 Mesaj

Tüm Başarılarını Gör

_____________________________

Elektronik Malzeme

cuulman1

Binbaşı

1336 Mesaj

Tüm Başarılarını Gör

_____________________________

botett

Yüzbaşı

387 Mesaj

Tüm Başarılarını Gör

_____________________________

Ötelere bak ve sus...

Sayfa:

önceki 2 3 4 5 6

Ip işlemleri

Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara

KAPAT X

%40
Kazan

%2,8
Kazan

%6,5
Kazan

%25
Kazan

%1,6
Kazan

%3,2
Kazan

%5,5
Kazan

%3,2
Kazan

%5
Kazan

%3,2
Kazan

%5
Kazan

%2
Kazan

Alışveriş Yaptıkça Para Kazan Harekete Geç »