Profil: TasarımHaber | DonanımHaber Forum

Şimdi Ara

@TasarımHaber

Takip Et 0 takipçi

Özel Mesaj

Çavuş

13 Temmuz 2006
Tarihinde Katıldı

Takip Ettikleri
0 üye

Görüntülenme
Toplam: 2 (Bu ay: 0)

363185 Gün Cezalı
356487 gün 13 s. 15 dk. kaldı

Fırsat Ekle

Gönderileri

Tümü (4)

Sadece Konular (4)

Sadece Bağlantılar (0)

TasarımHaber (Oral Ünal) · Web Hosting altına konu açtı. 18 yıl

Php için PHPTriad

5 Yanıt

Yanıtla

Favorilere Ekle

TasarımHaber (Oral Ünal) · Konu Dışı altına konu açtı. 18 yıl

Phorum İçin Avatar

2 Yanıt

Yanıtla

Favorilere Ekle

TasarımHaber (Oral Ünal) · Hazır forum ve portallar altına konu açtı. 18 yıl

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

ADO - ADON.NET
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>

--------------------------------------------------------------
ADO.NET İle Datagrid,
--------------------------------------------------------------

<%@ Page Language="vb" AutoEventWireup="false" src="data.aspx.vb" Inherits="data" %> 
  <HTML> 
  	<HEAD> 
  		<title>DataGrid 2</title> 
  		 
  	</HEAD> 
  	<body > 
  		<form id="Form1" method="post" runat="server"> 
  <ASP:DataGrid  
      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"> 
              <Columns> 
           
             <asp:BoundColumn  
              HeaderText="AD"  
              DataField="ad" 
  SortExpression="ad" 
               
          /> 
          <asp:BoundColumn  
              HeaderText="Soyad"  
              DataField="soyad" 
  SortExpression="soyad" 
  	 
          /> 
           
                  
      </Columns>   
  </asp:DataGrid> 
  		</form> 
  	</body> 
  </HTML> 
   
  -----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. 
      <System.Diagnostics.DebuggerStepThrough()> 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,
------------------------------------------------------

<%@ page language=�vb� src=�kay.vb� inherits=�kay� AutoEventWireUp=�False� %>   
  <html> 
  <head> 
  <title>Mail denemesi</title> 
  </head> 
  <body> 
  <form id="formkay" runat="server"> 
  <asp:label id=�txtad� runat=�server�>Adynyz:</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�>Kullanycy Adynyz:</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.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 ----- 
   
  <%@ 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? ::.</b><br><br> 
   Kullanycy Ady:    <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 sayfamyzy yazalym. 
   
  <%@ 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>

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) 
  %> 
  <%=guvenlik%> 
  <% 
  end if 
  %>

---------------------------------------
Login Olma,
---------------------------------------

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=windows-1254"> 
   
  <style type="text/css"> 
  <!-- 
  .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; 
  } 
  --> 
  </style> 
  <div align="center"> 
    <table width="750" border="0" cellspacing="0" cellpadding="0"> 
      <tr> 
        <td colspan="3"><div align="center"> 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0"> 
            <tr align="left" valign="top"> 
              <td width="73%"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=8148206&url=default.asp" data-href="default.asp"><img src="resim/logo.gif" width="342" height="72" border="0"></a></td> 
              <td width="27%"><table width="100%"  border="0" cellspacing="0" cellpadding="0"> 
                <tr> 
                  <td class="userfont"> 
  	   
  	   
  </td> 
                  </tr> 
                <tr> 
                  <td><table width="100%"  border="0" cellspacing="0" cellpadding="0"> 
                    <form method="post" action="buraya logyn adresinizi yazacaksynyz">   ÖRNEK:     ( " action="default.asp?islem=forumlogynol.asp " ) 
   
  	  <tr> 
                      <td class="userfont">Kullanycy Adynyz:</td> 
                      <td><input type="text" name="solmenuemail"></td> 
                    </tr> 
                    <tr> 
                      <td class="userfont">?ifreniz:</td> 
                      <td><input type="password" name="solmenusifre"></td> 
                    </tr> 
                    <tr> 
                      <td> </td> 
                      <td><input type="submit" name="Giri?" value="Giri?"></td> 
                    </tr></form> 
                  </table></td> 
                  </tr>  
              </table></td> 
            </tr> 
          </table> 
         </div></td> 
      </tr>

---------------------------------------------------
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 
  %> 
  <p align="center"><%=rastgelesayi%></p>

---------------------------------------------------------
Sayfalama Yapmak
--------------------------------------------------------

<html> 
  <head> 
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 
  <title>New Page 1</title> 
  </head> 
  <body> 
  <table border="1" width="100%" id="table1"> 
  <font color="#FF00FF"> 
  <% 
  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 
  %> 
   
  </font> 
  <font color=#FF3300> 
  <% 
  if sayi=1 then 
  liste=1 
  end if 
  %> 
  <% 
  for i= liste to liste+Deste%> 
   
  <tr> 
  	<td><b><font size="1" face="Tahoma"><%=rst6.fields("STOK_KODU")%>--<%=rst6.fields("STOK_ADI")%></font></b></td> 
  	</tr> 
  	<% 
      if i=rst6.recordcount then 
  	exit for 
  	end if 
  	rst6.movenext 
  	next 
  	%> 
  </table> 
   
  <table border="1" width="100%"> 
  	<tr> 
  	<%for i=1 to Sayfa%><td><a href=index.asp?S=<%=i%>><%=i%></a></td><%next%> 
  	</tr> 
  	</font> 
  </table> 
  </body> 
  </html>

114 Yanıt

Yanıtla

Favorilere Ekle

TasarımHaber (Oral Ünal) · Hazır forum ve portallar altına konu açtı. 18 yıl

SMF Forum Kurulumu

1 Yanıt

Yanıtla

Favorilere Ekle

Hakkında

Forum İmzası:

TasarımHaber'den Kod/Script/Tasarım ile İlgili İstekleriniz İçin Tıklayın
Web Master Kategori Kuralları İçin Aşağıdakilerden Birin Tıklayınız,
Tıkla
Tıkla

Resimler

https://forum.donanimhaber.com/cache-v2?path=https%3a%2f%2fforum.donanimhaber.com%2fstore%2f03%2f2b%2f46%2f032b460d0d8547bc86aad82b8944fe9f.jpg&t=1&text=0&width=87

https://forum.donanimhaber.com/cache-v2?path=https%3a%2f%2fforum.donanimhaber.com%2fstore%2f3c%2fce%2f28%2f3cce28e13858113d32b19162bb29bf84.jpg&t=1&text=0&width=87

2 Galeride Göster

Temel Bilgiler ve İstatistikler

Aktiflik: Şu anda DH'de değil
Son Giriş: 18 yıl önce
Son Mesaj Zamanı: 18 yıl
Mesaj Sayısı: 82
Gerçek Toplam Mesaj Sayısı: 101
İkinci El Bölümü Mesajları: 0
Konularının görüntülenme sayısı: 1.071 (Bu ay: 31)
Toplam aldığı artı oy sayısı: 0 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Web Tasarım - Programlama

Mesajları

İkinci El Referansları