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

19 yıl

Çavuş

Konu Sahibi

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>

< Bu mesaj bu kişi tarafından değiştirildi TasarımHaber -- 27 Temmuz 2006; 15:06:08 >

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

ASPYE DEVAM

Set Focus

<script language=vbscript> 
    document.all.form1.text1.focus() 
  </script>

TavsiyeMenüsü

<H3>Tavsiye v 1.0</H3> 
  <% 
  Dim objCDONTS                   
  Dim strFromName                
  Dim strFromEmail, strToEmail   
  Dim strSubject, strBody        
  Dim strThisPage                
  Dim strReferringPage           
  Dim bValidInput                
   
  strThisPage      = Request.ServerVariables("SCRIPT_NAME") 
  strReferringPage = Request.ServerVariables("HTTP_REFERER") 
   
  ' Debugging lines: 
  'Response.Write strThisPage & "<BR>" & vbCrLf 
  'Response.Write strReferringPage & "<BR>" & vbCrLf 
   
  ' Read in and set the initial values of our message parameters 
  strFromName  = Trim(Request.Form("txtFromName")) 
  strFromEmail = Trim(Request.Form("txtFromEmail")) 
  strToEmail   = Trim(Request.Form("txtToEmail")) 
  strSubject   = "Check out ASP 101!" 
  strBody      = Trim(Request.Form("txtMessage")) 
   
   
  ' I set the body message to a message that referenced the page the 
  ' user arrived from.  This makes it great if you place a link to it 
  ' from your different articles, but can be weird if people link in 
  ' from other web sites. 
  If strBody = "" Then 
  	If strReferringPage = "" Or InStr(1, strReferringPage, "www.veritabanim.com", 1) = 0 Then 
  		strBody = "" 
  		strBody = strBody & "Bu site harika bir site.Mutlaka gez..." & vbCrLf 
  		strBody = strBody & vbCrLf 
  		strBody = strBody & "  http://www.veritabanim.com" & vbCrLf 
  	Else 
  		strBody = "" 
  		strBody = strBody & "Bu siteyi mutlaka gezmelisin" & vbCrLf 
  		strBody = strBody & vbCrLf 
  		strBody = strBody & "   " & strReferringPage & vbCrLf 
  	End If 
  End If 
  	 
  ' Quick validation just to make sure our parameters are somewhat valid 
  bValidInput = True 
  bValidInput = bValidInput And strFromName <> "" 
  bValidInput = bValidInput And IsValidEmail(strFromEmail) 
  bValidInput = bValidInput And IsValidEmail(strToEmail) 
   
  ' If valid send email and show thanks, o/w show form 
  If bValidInput Then 
  	' Set up our email object and send the message 
  	Set objCDONTS = Server.CreateObject("CDONTS.NewMail") 
  	objCDONTS.From    = strFromName & " <" & strFromEmail & ">" 
  	objCDONTS.To      = strToEmail 
  	objCDONTS.Subject = strSubject 
  	objCDONTS.Body    = strBody 
  	objCDONTS.Send 
  	Set objCDONTS = Nothing 
   
  	' Show our thank you message 
  	ShowThanksMsg 
  Else 
  	If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then 
  		Response.Write "Lutfen bos alan birakmayin.Mail adreslerini dogru yazin" & "<BR>" & vbCrLf 
  	End If 
  	' Show our information retrieval form 
  	ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody 
  End If 
  ' End of page logic... subs and functions follow!  
  %> 
   
   
  <% 
  ' Subroutines and Functions that encapsulate some functionality 
  ' and make the above code easier to write... and read. 
   
  ' A quick email syntax checker.  It's not perfect, 
  ' but it's quick and easy and will catch most of 
  ' the bad addresses than people type in. 
  Function IsValidEmail(strEmail) 
  	Dim bIsValid 
  	bIsValid = True 
  	 
  	If Len(strEmail) < 5 Then 
  		bIsValid = False 
  	Else 
  		If Instr(1, strEmail, " ") <> 0 Then 
  			bIsValid = False 
  		Else 
  			If InStr(1, strEmail, "@", 1) < 2 Then 
  				bIsValid = False 
  			Else 
  				If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then 
  					bIsValid = False 
  				End If 
  			End If 
  		End If 
  	End If 
   
  	IsValidEmail = bIsValid 
  End Function 
   
  ' I made this a function just to get it out of the 
  ' logic and make it easier to read.  It just shows the 
  ' form that asks for the input 
  Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) 
  	' I use script_name so users can rename this script witout having to change the code. 
  	%> 
  	<FORM ACTION="<%= strPageName %>" METHOD="post" name=frmReferral> 
  	<TABLE BORDER="0"> 
  	<TR> 
  		<TD VALIGN="top" ALIGN="right"><STRONG>Adiniz:</STRONG></TD> 
  		<TD><INPUT TYPE="text" NAME="txtFromName" VALUE="" SIZE="30"></TD> 
  	</TR> 
  	<TR> 
  		<TD VALIGN="top" ALIGN="right"><STRONG>Sizin Mailiniz:</STRONG></TD> 
  		<TD><INPUT TYPE="text" NAME="txtFromEmail" VALUE="" SIZE="30"></TD> 
  	</TR> 
  	<TR> 
  		<TD VALIGN="top" ALIGN="right"><STRONG>Arkadasinizin Maili:</STRONG></TD> 
  		<TD><INPUT TYPE="text" NAME="txtToEmail" VALUE="" SIZE="30"></TD> 
  	</TR> 
  	<TR> 
  		<TD VALIGN="top" ALIGN="right"><STRONG>Mesaj:</STRONG></TD> 
  		<TD><TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY></TEXTAREA> 
  	</TR> 
  	<TR> 
  		<TD></TD> 
  		<TD><INPUT TYPE="reset" VALUE="SİL" name=rstReferral>  <INPUT TYPE="submit" VALUE="GÖNDER" name=subReferral></TD> 
  	</TR> 
  	</TABLE> 
  	</FORM> 
  	<% 
  	'<P>The Message to be sent:</P> 
  	'<P><B>Subject:</B> < %= strSubject % ></P> 
  	'<P><B>Body:</B> < %= strBody % ></P> 
  End Sub 
   
  ' This just shows our thank you message... probably didn't need to 
  ' be a function, but since I made the form one I figured I'd do this 
  ' for consistency. 
  Sub ShowThanksMsg() 
  	%> 
  	<P></P> 
  	<% 
  End Sub 
  %>

www.tr.net Sitesinde Yayınlana Haberler

<%  
  const Request_GET = 2  
  Dim haberURL, haberim, basliklar  
  haberURL = "http://www.tr.net"  
  Set alma = CreateObject("SOFTWING.ASPtear" )  
  On Error Resume Next  
  haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )  
  If Err.Number <> 0 Then  
  Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "  
  Response.End  
  End If  
  dim baslangic , bitis  
  baslangic = "<table border=0 cellpadding=0 cellcpacing=0>"  
  bitis = "</table>"  
  dim x , abc  
  x = 0  
  abc = 0  
  dim lale  
  lale = ""  
  Do Until abc = 2  
  x = x + 1  
  If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then  
  abc = abc + 1  
  End If  
  If Mid(haberim,x,Len(baslangic)) = baslangic Then  
  abc = abc + 1  
  Else  
  If abc = 1 Then  
  lale = lale + Mid(haberim,x,1)  
  End If  
  End If  
  Loop  
  Function seklesok(hammadde)  
  Dim gecicigeyik  
  gecicigeyik = hammadde  
  gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1)  
  gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1)  
  seklesok = gecicigeyik  
  End Function  
  Response.Write "<"  
  Response.Write seklesok(lale)  
  Response.Write "</table>"  
  %>

T

THR

19 yıl

Yarbay

quote:

Orjinalden alıntı: 90alper90

PHP de aktivasyon mailini tekrar gönderme kodu var mı?

senin istediğin php değil phpbb forum sanırım

http://www.phpbbhacks.com/ a bak

Bu mesaja 1 cevap geldi.

A

alper.y

19 yıl

Yarbay

quote:

Orjinalden alıntı: Baron17

quote:

Orjinalden alıntı: 90alper90

PHP de aktivasyon mailini tekrar gönderme kodu var mı?

senin istediğin php değil phpbb forum sanırım

http://www.phpbbhacks.com/ a bak

Çok teşekkür ederim sonunda buldum.http://www.phpbbhacks.com/download/4361 Bunu indirdim ama nasıl sitede kullanacağım.Bir de sitenin yani forumun dizaynını nasıl değiştiririm.Dizayn derkem tema değil de mesela bir yere aktivasyon mailini tekrar gönder. Yazmam lazım

Bu mesaja 2 cevap geldi.

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

quote:

Orjinalden alıntı: 90alper90

quote:

Orjinalden alıntı: Baron17

quote:

Orjinalden alıntı: 90alper90

PHP de aktivasyon mailini tekrar gönderme kodu var mı?

senin istediğin php değil phpbb forum sanırım

http://www.phpbbhacks.com/ a bak

Çok teşekkür ederim sonunda buldum.http://www.phpbbhacks.com/download/4361 Bunu indirdim ama nasıl sitede kullanacağım.Bir de sitenin yani forumun dizaynını nasıl değiştiririm.Dizayn derkem tema değil de mesela bir yere aktivasyon mailini tekrar gönder. Yazmam lazım

Kendime localhostta forum kurdum phpBB, şeklinde ve bir modul kurdum, olypus login screen böle bişiydi daha dün bulmuştum, bugün sana sorcaktım forumun phpbb mi diye fakkat @Baron17 cevaplamış oldu iyi günler ama o modülü tavsiye ederim,

Bu mesaja 1 cevap geldi.

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

quote:

Orjinalden alıntı: PaNZeR_21

quote:

Orjinalden alıntı: TasarımHaber

quote:

Orjinalden alıntı: PaNZeR_21

Kardeş baan Sipariş formu hazırlayabilirmsin istenilen özellikleri tıklayınca fiyat çıkaran şimdiden tşk

Biraz dqaha açıklarsanız çok daha iyi olacak

Yani içeriğini biraz daha yazarsanı iyi olacak, sonra zor olabilir değiştirmesi çok iyi diil bilmiyorsanız sonra php mi olacak asp mi?

kardeş sipariş formu olacak ama ham şaham değil yani şu şekilde isim soy isim telf no e-mail adres ve mesajı bunuları benim maile postalayacak yani sipariş alacağız asp olsun kardeş sen daha detaylı yaparsan daah güzel olur tabiyapmak istersen kardeş herşey için tekrar tşk kardeş

Ben sana sadece indirebileceğin yerlerin linkini vercem gerisini sen notepad de açıp düzenlersin okay

ASP Full v1.1(tr)(Asp)
aspFormMail.asp v2.31 (ing)(Asp)
Başvuru Formu (tr)(Asp)

A

alper.y

19 yıl

Yarbay

quote:

Orjinalden alıntı: TasarımHaber

quote:

Orjinalden alıntı: 90alper90

quote:

Orjinalden alıntı: Baron17

quote:

Orjinalden alıntı: 90alper90

PHP de aktivasyon mailini tekrar gönderme kodu var mı?

senin istediğin php değil phpbb forum sanırım

http://www.phpbbhacks.com/ a bak

Çok teşekkür ederim sonunda buldum.http://www.phpbbhacks.com/download/4361 Bunu indirdim ama nasıl sitede kullanacağım.Bir de sitenin yani forumun dizaynını nasıl değiştiririm.Dizayn derkem tema değil de mesela bir yere aktivasyon mailini tekrar gönder. Yazmam lazım

Kendime localhostta ****m phpBB, şeklinde ve bir modul kurdum, olypus login screen böle bişiydi daha dün bulmuştum, bugün sana sorcaktım forumun phpbb mi diye fakkat @Baron17 cevaplamış oldu iyi günler ama o modülü tavsiye ederim,

Peki upload ettikten sonra nasıl onu kullanacaz?İndirdiğim dosyaları uplod etsem yetmez herhalde.Veritabanıyla oynamak gerekir mi?

M

mehhek

19 yıl

Er

quote:

Orjinalden alıntı: Baron17

quote:

Orjinalden alıntı: mehhek

selam bana wap uyumlu asp kodu lazım poly melodilerimi yayınlicam.

lütfen vs kelimeler kullanman daha hoş olmazmı nihayetinde arkadaş burda para almıyor size hizmet

tekrar selam arkadaşlar... Baron17 kardeş kötü niyetli yada kaba bir söylem değil bu. "Bana çabuk kod ver" diye bi anlam çıkardıysan yuh artık sana

zaten arkadaşım çok güzel yardımcı oluyor herkeze bana da olduğu gibi.sağolsun... verdiği kodları aldım lazım olur

Ancak istediğim bu kod değildi aceleden çok kisa yazdım.ben klasor içindeki melodilerimi listeleyen ve içinde arama motoru bulunan bir kod ariyorum.bu bahsettiğimin php versiyonu var çok da güzel çalışıyor ancak asp gibisi yok..asp'ye geçmek istiyorum..Yardımcı olursanız sevinirim.http://hekimogluwap.uni.cc

Bu mesaja 1 cevap geldi.

O

oralunal

19 yıl

Yarbay

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.

Bu mesaja 2 cevap geldi.