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>

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

< 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

ASP'ye Devam
Zamana Göre Selamlama,
-------------------------------------------------

<% select case Hour(now) 
  case 1,2,3,4,5,24,23 
  Response.write("<h1>İyi geceler</h1>") 
  case 6,7,8,9,10,11,12 
  Response.write("<h1>İyi Sabahlar</h1>") 
  case 13,14,15,16 
  Response.write("<h1>İyi Öğlenler</h1>") 
  case else 
  Response.write("<h1>İyi Akşamlar</h1>") 
  end select %>

--------------------------------------------------
Asp ;İle il il hava durumu
--------------------------------------------------

<%  
  if request.QueryString ("il")<>"" then 
  il=request.QueryString ("il") 
  else 
  il="BİLECİK" 
  end if 
  const Request_GET = 2  
   
  Dim haberURL, haberim, basliklar  
  haberURL = "http://meteo.tr.net/cgi-bin/wfa.pl?"&il 
  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  
  lenstr=308+len(il) 
  haberim=Mid(haberim,9166,lenstr)  
      ds=InStr(1,haberim,"°C" )  
      sicaklik=Mid(haberim,ds-5,7)   
      sicaklik=Replace(sicaklik,">" ,"" )  
      ds=InStr(1,haberim,"alt" )  
      de=InStr(1,haberim,"°C" ) 
      durum=Mid(haberim,ds+5,de-ds-15) 
      durum=Replace(durum,"""" ,"" ) 
      if Cstr(durum)=Cstr("Az Bulutlu") then  
      resim="azbulutlu" 
      elseif Cstr(durum)=Cstr("Sağnak Yağışlı") then  
      resim="yagmurlu" 
      end if 
  %> 
    
   <TABLE WIDTH=50% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1> 
  	<TR align=center> 
  		<TD colspan=4><IMG SRC="havadurumu.jpg" width=600 height=30></TD>		 
  	</TR> 
  	<TR align=center> 
  		<TD>İl:</TD> 
  		<TD>Sıcaklık:</TD> 
  		<TD>Durum:</TD> 
  		<TD> </TD> 
  	</TR> 
  	<TR align=center> 
  		<TD><%=il%></TD> 
  		<TD><%=sicaklik%></TD> 
  		<TD><%=durum%></TD> 
  		<TD><img SRC="image/<%=resim%>.gif"></TD> 
  	</TR> 
  </TABLE> 
  <TABLE WIDTH=20% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1> 
  	<TR> 
  	<td align=left bgcolor=ffffff nowrap> 
  	<font face=tahoma size=1><b>Yurtiçi Merkezler :</b></font> 
  	<select style="font-size:10px;" name="LOCATION" width=120 onChange="window.location=this.options[this.selectedIndex].value; return true"> 
  	<option value=havadurumu.asp?il=ANKARA>Seçiniz</option> 
  	<option value=havadurumu.asp?il=ADANA>ADANA 
  	<option value=havadurumu.asp?il=ADIYAMAN>ADIYAMAN 
  	<option value=havadurumu.asp?il=AFYON>AFYON 
  	<option value=havadurumu.asp?il=AGRI>AGRI 
  	<option value=havadurumu.asp?il=AKSARAY>AKSARAY 
  	<option value=havadurumu.asp?il=AMASYA>AMASYA 
  	<option value=havadurumu.asp?il=ANKARA>ANKARA 
  	<option value=havadurumu.asp?il=ANTALYA>ANTALYA 
  	<option value=havadurumu.asp?il=ARDAHAN>ARDAHAN 
  	<option value=havadurumu.asp?il=ARTVIN>ARTVIN 
  	<option value=havadurumu.asp?il=AYDIN>AYDIN 
  	<option value=havadurumu.asp?il=BALIKESIR>BALIKESIR 
  	<option value=havadurumu.asp?il=BARTIN>BARTIN 
  	<option value=havadurumu.asp?il=BATMAN>BATMAN 
  	<option value=havadurumu.asp?il=BAYBURT>BAYBURT 
  	<option value=havadurumu.asp?il=BILECIK>BILECIK 
  	<option value=havadurumu.asp?il=BINGOL>BINGOL 
  	<option value=havadurumu.asp?il=BITLIS>BITLIS 
  	<option value=havadurumu.asp?il=BOLU>BOLU 
  	<option value=havadurumu.asp?il=BOZCAADA>BOZCAADA 
  	<option value=havadurumu.asp?il=BURDUR>BURDUR 
  	<option value=havadurumu.asp?il=BURSA>BURSA 
  	<option value=havadurumu.asp?il=CANAKKALE>CANAKKALE 
  	<option value=havadurumu.asp?il=CANKIRI>CANKIRI 
  	<option value=havadurumu.asp?il=CORUM>CORUM 
  	<option value=havadurumu.asp?il=DENIZLI>DENIZLI 
  	<option value=havadurumu.asp?il=DIYARBAKIR>DIYARBAKIR 
  	<option value=havadurumu.asp?il=DUZCE>DUZCE 
  	<option value=havadurumu.asp?il=EDIRNE>EDIRNE 
  	<option value=havadurumu.asp?il=ELAZIG>ELAZIG 
  	<option value=havadurumu.asp?il=ERZINCAN>ERZINCAN 
  	<option value=havadurumu.asp?il=ERZURUM>ERZURUM 
  	<option value=havadurumu.asp?il=ESKISEHIR>ESKISEHIR 
  	<option value=havadurumu.asp?il=GAZIANTEP>GAZIANTEP 
  	<option value=havadurumu.asp?il=GIRESUN>GIRESUN 
  	<option value=havadurumu.asp?il=GOKCEADA>GOKCEADA 
  	<option value=havadurumu.asp?il=GUMUSHANE>GUMUSHANE 
  	<option value=havadurumu.asp?il=HAKKARI>HAKKARI 
  	<option value=havadurumu.asp?il=HATAY>HATAY 
  	<option value=havadurumu.asp?il=IGDIR>IGDIR 
  	<option value=havadurumu.asp?il=ISPARTA>ISPARTA 
  	<option value=havadurumu.asp?il=ISTANBUL>ISTANBUL 
  	<option value=havadurumu.asp?il=IZMIR>IZMIR 
  	<option value=havadurumu.asp?il=K.MARAS>K.MARAS 
  	<option value=havadurumu.asp?il=KARABUK>KARABUK 
  	<option value=havadurumu.asp?il=KARAMAN>KARAMAN 
  	<option value=havadurumu.asp?il=KARS>KARS 
  	<option value=havadurumu.asp?il=KASTAMONU>KASTAMONU 
  	<option value=havadurumu.asp?il=KAYSERI>KAYSERI 
  	<option value=havadurumu.asp?il=KILIS>KILIS 
  	<option value=havadurumu.asp?il=KIRIKKALE>KIRIKKALE 
  	<option value=havadurumu.asp?il=KIRKLARELI>KIRKLARELI 
  	<option value=havadurumu.asp?il=KIRSEHIR>KIRSEHIR 
  	<option value=havadurumu.asp?il=KOCAELI>KOCAELI 
  	<option value=havadurumu.asp?il=KONYA>KONYA 
  	<option value=havadurumu.asp?il=KUTAHYA>KUTAHYA 
  	<option value=havadurumu.asp?il=MALATYA>MALATYA 
  	<option value=havadurumu.asp?il=MANISA>MANISA 
  	<option value=havadurumu.asp?il=MARDIN>MARDIN 
  	<option value=havadurumu.asp?il=MERSIN>MERSIN 
  	<option value=havadurumu.asp?il=MUGLA>MUGLA 
  	<option value=havadurumu.asp?il=MUS>MUS 
  	<option value=havadurumu.asp?il=NEVSEHIR>NEVSEHIR 
  	<option value=havadurumu.asp?il=NIGDE>NIGDE 
  	<option value=havadurumu.asp?il=ORDU>ORDU 
  	<option value=havadurumu.asp?il=OSMANIYE>OSMANIYE 
  	<option value=havadurumu.asp?il=RIZE>RIZE 
  	<option value=havadurumu.asp?il=SAKARYA>SAKARYA 
  	<option value=havadurumu.asp?il=SAMSUN>SAMSUN 
  	<option value=havadurumu.asp?il=SANLIURFA>SANLIURFA 
  	<option value=havadurumu.asp?il=SIIRT>SIIRT 
  	<option value=havadurumu.asp?il=SINOP>SINOP 
  	<option value=havadurumu.asp?il=SIRNAK>SIRNAK 
  	<option value=havadurumu.asp?il=SIVAS>SIVAS 
  	<option value=havadurumu.asp?il=TEKIRDAG>TEKIRDAG 
  	<option value=havadurumu.asp?il=TOKAT>TOKAT 
  	<option value=havadurumu.asp?il=TRABZON>TRABZON 
  	<option value=havadurumu.asp?il=TUNCELI>TUNCELI 
  	<option value=havadurumu.asp?il=USAK>USAK 
  	<option value=havadurumu.asp?il=VAN>VAN 
  	<option value=havadurumu.asp?il=YALOVA>YALOVA 
  	<option value=havadurumu.asp?il=YOZGAT>YOZGAT 
  	<option value=havadurumu.asp?il=ZONGULDAK>ZONGULDAK 
  	</select> 
  	</td> 
  	</TR> 
  </TABLE>

-------------------------------------------------------
Kategori Oluşturmak
-------------------------------------------------------

<% @Language=VBScript %> 
   
   
  <% 
  Set kategori = Server.CreateObject("ADODB.Recordset") 
  sor = "Select * from kategori ORDER BY id"    ' kategori tablomuzu id sırasına göre diziyoruz. 
  kategori.Open sor,Sur,1,3 
  toplam_kategori=kategori.recordcount 
  %> 
   
                      </tr> 
  <% 
  While Not kategori.EOF 
  %> 
        <tr> 
          <td width="100%" height="13" bgcolor="#CCCCCC"><span lang="en"> 
          <font face="Verdana" size="2"> 
          <img border="0" src="images/Lopez2_Bullet2.gif"></font></span><font face="Verdana" size="2">  
  <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=8148372&url=kategori.asp?kategori_no=<%=kategori("kategori_no")%>" data-href="kategori.asp?kategori_no=<%=kategori("kategori_no")%>"><%=kategori("kategori_adi")%></a></font></td> 
        </tr> 
  <% 
  If Not kategori.EOF Then 
  %> 
  <% kategori.MoveNext 
  End If 
  %> 
  <% Wend %>

---------------------------------------------------------------
Domain Sorgulama
---------------------------------------------------------------

<%  
  If  request.form("domain")<>""  then   
   GotothisURL = "http://www." & request.form("domain")  
   
    Set  GetConnection = CreateObject("Microsoft.XMLHTTP")  
   
   GetConnection.Open "get", GotothisURL,  False   
  on error resume  next   
   GetConnection.Send   
   
   ResponsePage = GetConnection.getResponseHeader("Date")  
   
  if  ResponsePage=""  then    
  Response.write("Domain kullanımda değil")  
  else   
  Response.write("Domain alınmış(kullanımda)")  
  end  if  
   
  Set  GetConnection =  Nothing   
   
  else   
  %>  
  <form method=post action=<% =request.servervariables("URL") %>>  
  <input type=text name=domain size=15 value="domain.com">  
  <input type=submit value="Find domain name">  
  </form>  
  <%  end  if %>

------------------------------------------------
XML ile ytl uyumlu döviz bilgisi görüntülemek,
-------------------------------------------------

<% 
  Public Function VeriAl(strGelen) 
  Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) 
  objVeriAl.Open "GET" , strGelen, FALSE 
  objVeriAl.sEnd 
  VeriAl = objVeriAl.Responsetext 
  SET objVeriAl = Nothing 
  End Function 
   
  strAdres = "http://www.tcmb.gov.tr/kurlar/today.html" 
  strVeri = VeriAL(strAdres) 
  iDolar=InStr(strVeri,"USD" ) 
  strDolarAlis=Mid(strVeri,iDolar+50,10) 
  strDolarSatis=Mid(strVeri,iDolar+51,10) 
   
  iEuro=InStr(strVeri,"EUR" ) 
   
  strEuroAlis=Mid(strVeri,iEuro+38,11) 'alis 
  strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis 
  %> 
  //Asp ile Döviz Bilgisi Görüntülemek ♀ By NomadturK 
  <html> 
  <title>Asp ile Döviz Bilgisi Görüntülemek ♀ By NomadturK</title> 
  <style type="text/css"> 
  <!-- 
  .doeviz {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt} 
  --> 
  </style> 
  <body> 
  <table width="100%" border="0" cellspacing="1" bgcolor="#EFEFEF"> 
    <tr> 
      <td height="28" valign="top" bgcolor="#F0FCFF"><div align="center"><strong><font face="Verdana"><b><font color="#FF9900" style="font-size: 8pt">MERKEZ BANKASI<br> 
          DÖVİZ KURLARI</font></b></font></strong></div></td> 
    </tr> 
  </table> 
  <table width="100%" border="0" cellspacing="0" bgcolor="#EFEFEF"> 
    <tr> 
      <td colspan="2" bgcolor="#F0FCFF"><strong><font style="font-size: 8pt; " color="#FB921D" face="Verdana">•</font> <font face="Verdana"><b><font color="#0099CC" style="font-size: 7pt">DOLAR</font></b></font></strong></td> 
    </tr> 
    <tr> 
      <td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIŞ</font></td> 
      <td width="100%" class="doeviz" bgcolor="#F0FCFF"><div align="left"> <font color="#333333" face="verdana"> 
          <p align="right"> <%=strdolaralis%> YTL  
          </font></div></td> 
    </tr> 
    <tr> 
      <td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIŞ</font></td> 
      <td class="doeviz" width="100%" bgcolor="#F0FCFF"><div align="left"><font color="#333333" face="verdana"> 
          <p align="right"> <%=strdolarsatis%> YTL  
          </font></div></td> 
    </tr> 
  </table> 
  <table width="100%" border="0" cellspacing="0" bgcolor="#EFEFEF"> 
    <tr> 
      <td colspan="2" bgcolor="#F0FCFF"><strong><font style="font-size: 8pt; " color="#FB921D" face="Verdana">•</font> <font face="Verdana"><b><font color="#0099CC" style="font-size: 7pt">EURO</font></b></font></strong></td> 
    </tr> 
    <tr> 
      <td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIŞ</font></td> 
      <td width="100%" class="doeviz" bgcolor="#F0FCFF"> 
      <p align="right"><font color="#333333"><font face="verdana"> <%=streuroalis%> YTL </font></font> </td> 
    </tr> 
    <tr> 
      <td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIŞ</font></td> 
      <td class="doeviz" width="100%" bgcolor="#F0FCFF"> 
      <p align="right"><font color="#333333"><font face="verdana"><%=streurosatis%> YTL</font></font> </td> 
    </tr> 
  </table> 
  </body> 
  </html>

----------------------------------------------------------------------
Büyük harf-küçük harf dönüşümü
----------------------------------------------------------------------

<% 
  function buyukharfyap(metin,degisim) 
       if degisim = 0 then 'büyük için 0 kullanılacak 
            buyukharfyap = Replace(metin,"ı","I") 
            buyukharfyap = Replace(buyukharfyap,"i","İ") 
            buyukharfyap = UCase(buyukharfyap) 
       else 'küçük için 
            buyukharfyap = Replace(metin,"I","ı") 
            buyukharfyap = Replace(buyukharfyap,"İ","i") 
            buyukharfyap = LCase(buyukharfyap) 
       end if 
  end function 
  %>

----------------------------------------------------------
Formdan alınan bilgilerin veritabanına yazılması,
----------------------------------------------------------

Öncelikle aşağıdaki gibi bir form oluşturup "form.asp" adıyla kaydedelim... 
   
  <form method="Post" action="form_islem.asp"> 
  <table> 
  <tr> 
  <td>E-mail: </td> 
  <td><input type="text" name="email"></td> 
  </tr> 
  <tr> 
  <td>Adınız : </td> 
  <td><input type="text" name="adiniz"></td> 
  </tr> 
  <tr> 
  <td>Soyadınız : </td> 
  <td><input type="text" name="soyadiniz"></td> 
  </tr> 
  <tr> 
  <td>Düşünceleriniz : </td> 
  </tr> 
  <tr><td><textarea cols="50" name="dusunceler" ></textarea></td> 
  </tr> 
  <tr> 
  <td><input type="submit" name="Submit" value="Gönder"></td> 
  </tr> 
  </table> 
  </form> 
   
   
  Şimdide bu formdaki verileri alıp veritabanına yazacak sayfayı hazırlayalım. Sayfayı "form_islem.asp" adıyla kaydedin. 
   
  <% 
  'db ye bağlanalım 
  set conn = Server.CreateObject("ADODB.Connection") 
  conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt.mdb")) 
  set rs = server.createobject("adodb.recordset") 
  verirs = "Select * from form" 
  rs.Open verirs,conn,1,3 
   
  'formdan verileri alıp yeni bir kayır oluşturalım. 
  rs.AddNew 
  rs("email") = Request.Form("email") 
  rs("adiniz") = Request.Form("adiniz") 
  rs("soyadiniz") = Request.Form("soyadiniz") 
  rs("dusunceler") = Request.Form("dusunceler") 
  rs.Update 
   
  'bağlantıları kapatalım. 
  rs.Close 
  rs = Nothing 
  conn.Close 
  conn = Nothing 
  %>

-----------------------------------------------------------
Arama Motoru
----------------------------------------------------------

//search.asp dosyası------------------------------------------------------------------------------ 
   
   
  <% 
   
  'Optimize eden varlık=Toygar Dundaralp 
  'e-Mail=tdundaralp@msn.com 
   
  %> 
  <% option explicit %> 
  <body bgcolor=336699> 
  <style type=text/css> 
  a{color:white;font-family:tahoma;font-size:12;font-weight:bold} 
  a:hover{color:#990000} 
  </style> 
  <font color=orange face=tahoma size=2><b> 
  <% 
  dim sol,sag,sayi,connobj,rsobj,sql,ara,sayiand,soland,sagand 
  set connobj=server.createobject("adodb.connection") 
  connobj.open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("denek.mdb")) 
  set rsobj=server.createobject("adodb.recordset") 
   
  ara=request.form("ara") 
  if instr(ara,"'") then 
  ara=replace(ara,"'","") 
  end if 
  if instr(ara," and ") then 
  ara=replace(ara," and ","|") 
  sayiand=instr(ara,"|") 
  soland=left(ara,sayiand-1) 
  sagand=mid(ara,sayiand+1) 
  sql="select site,bilgi from denek where kelime1 like '"&soland&"' or kelime2 like '"&soland&"' or " &_ 
  "kelime3 like '"&soland&"' or kelime4 like '"&soland&"' or kelime1 like '"&sagand&"' or " &_ 
  "kelime2 like '"&sagand&"' or kelime3 like '"&sagand&"' or kelime4 like '"&sagand&"'" 
  elseif instr(ara,"*") then 
  sol=left(ara,1) 
  sag=right(ara,1) 
  sayi=len(ara)-1 
  if left(ara,1)="*" then 
  ara=mid(ara,2) 
  sql="select site,bilgi from denek where kelime1 like '%"&ara&"' or kelime2 like '%"&ara&"' or " &_ 
  "kelime3 like '%"&ara&"' or kelime4 like '%"&ara&"'" 
  elseif right(ara,1)="*" then 
  ara=left(ara,sayi) 
  sql="select site,bilgi from denek where kelime1 like '"&ara&"%' or kelime2 like '"&ara&"%'or " &_ 
  "kelime3 like '"&ara&"%' or kelime4 like '"&ara&"%'" 
  end if 
  else 
  sql="select site,bilgi from denek where kelime1 like '"&ara&"' or kelime2 like '"&ara&"' or " &_ 
  "kelime3 like '"&ara &"' or kelime4 like '"& ara &"'" 
  end if 
  rsobj.open sql,connobj,2,3 
  do while not rsobj.eof 
  response.write 	"<a href=http://"& rsobj(0)&">" & rsobj(0) &"</a>" &"<br>" & rsobj(1) &"<br><br>" 
  rsobj.movenext 
  loop 
   
  %> 
   
   
  <% 
  rsobj.close 
  set rsobj = nothing 
  connobj.close 
  set connobj = nothing 
  %> 
   
  //search.asp dosyası--------------------------------buraya kadar-------------------------------- 
   
   
  //html dosyası-------------------------------------- 
  <html> 
  <body bgcolor=336699> 
  <center><br><br> 
  <form action=search.asp method=post> 
  <input type=text name=ara> &nbsp 
  <input type=submit value="  Ara  "> 
  </form> 
  </center> 
  </body> 
  </html>

-----------------------------------------------
Sayfa Şifreleme
-----------------------------------------------

<% Response.Buffer = True %> 
  <% 
  'Sifre = Burada bulunan admin yazısı yerine kendi şifrenizi yazınız. 
  sifre = "8282" 
  if Session("sifreniz") <> sifre then 
  if Request.Form("sifrem") <> sifre then 
  	Call giris 
  Else 
  	Session("sifreniz") = sifre 
  End if 
  End if 
  Sub giris 
  gelen_sayfa = "http://"&Request.ServerVariables ("HTTP_HOST")&Request.ServerVariables("URL") 
  %> 
  <table border="0" cellpadding="2" cellspacing="0" width="100%"> 
    <tr> 
      <td width="100%"><form method="POST" action="<% = gelen_sayfa %>"> 
        <p align="center"><i><b><font color="#FF6600" size="1">( Güvenlik Girişi 
        )</font></b></i></td> 
    </tr> 
      <tr> 
      <td width="100%"> 
        <p align="center"><i><b><font color="#6F778C"><font size="1"></font></font></b></i></td> 
      </tr> 
    <tr> 
      <td width="100%"> 
        <p align="center"><i><font color="#FF6600">Sifre : <input type="password" name="sifrem" size="20" style="font-family: Verdana; font-size: 10px; color: #A7ACBA; border: 1 solid #C2C6CF" value="123456"></font></i></td> 
    </tr> 
    <tr> 
      <td width="100%"> 
        <p align="center"><input type="submit" value="Giriş" name="B1" style="font-family: Verdana; font-size: 10px"><p align="center"> 
        <i><b><font color="#FF6600"> 
        <a href="mailto:mustafa_uyar@msn.com" style="text-decoration: none">m U S  
        T A f a  UYAR</a></font></b></i></td> 
    </tr> 
  </table> 
  <% 
  Response.End 
  End Sub 
  %>

------------------------------------------------
Sitenizdeki aktif kullanıcılar,
------------------------------------------------

<Object Runat="Server" Scope="application" ID="dOnlineUsers" ProgID="Scripting.Dictionary"></Object> 
   
  <SCRIPT LANGUAGE=VBScript RUNAT=Server> 
  sub Application_OnStart 
      application("ServerStart") = now 
  end sub 
  function Decrypt(sText) 
      Decrypt = sText 
  end function     
   
  function adZero(sText) 
      if isNull(sText) then exit function 
      adZero = string(5 - len(sText), "0") & sText 
  end function 
   
  Sub Session_OnStart 
   
   
      Session.TimeOut = 5 
      sAktifUsrList = application("AktifUsrList") 
       
      sNewUserName = Decrypt(request.cookies("isim")+ request.cookies("soyisim")) 
       
      if sNewUserName = "" then sNewUserName = "Ziyaretci-" & AdZero(CInt(application("Ziyaretci"))) 
       
      sLastActionTime = Time 
       
      sUserInfo = sNewUserName & "<|>" & sLastActionTime & "<|>" & sLastPageViewed 
   
   
      dOnlineUsers.Add Session.SessionID, sUserInfo 
       
      application.lock 
      application("AktifUsr") = application("AktifUsr") + 1 
      application("Ziyaretci") = application("Ziyaretci") + 1 
       
      if application("TodaysDate") <> Date() then 
          application("PageViewsToday") = 0 
          application("ZiyaretciToday") = 0 
      end if 
      application("ZiyaretciToday") = application("ZiyaretciToday") + 1 
      application("TodaysDate") = Date() 
      application.unlock 
       
  End Sub 
   
  Sub Session_OnEnd 
   
      on error resume next 
      dOnlineUsers.Remove Session.SessionID 
      
      application.lock 
      application("AktifUsr") = application("AktifUsr") - 1 
      application.unlock 
   
  End Sub 
  </SCRIPT>

< Bu mesaj bu kişi tarafından değiştirildi TasarımHaber -- 16 Temmuz 2006; 15:05:56 >
Bu mesaja 1 cevap geldi.

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

ASP'Ye Devam
Asptear ile havadurumu
----------------------------------------------------

<%  
  adres = "http://www.meteor.gov.tr/pages/sonhavat.htm"    
   
  On Error Resume Next  
  Set Tear = Server.CreateObject("Softwing.AspTear" )   
  strVeri = Tear.Retrieve(adres,2, "" ,"" ,"" )  
   
  If Err <> 0 Then  
  Response.Write "Bir hata oluştu, açıklaması: " & Err.Description   
  Response.End   
  End If  
   
  tahminler = InStr(1,strVeri,"SICAKLIKLARI DA SOYLE OLACAK" )   
  strHavadurumu = Mid(strVeri,tahminler+38,150)  
  %>   
   
  <font size="2" face="Verdana"><b><%=Date() %></b> tarihli Hava Tahmini şöyledir: <p>   
  <b><%=strHavadurumu %></b> </font>  
  </body>   
  </html>

------------------------------------------------------
FSO ile dosya okuma
------------------------------------------------------

<% 
  For each veri in Request.QueryString 
  gelen = Request.QueryString(veri) 
  next 
  Dim f,fso 
  Set fso = Server.CreateObject("Scripting.FileSystemObject") 
  Set f = fso.OpenTextFile("&gelen&", 1, 0, 0) 
  if f.AtEndOfStream then 
  kod = "" 
  else 
  kod = f.readall 
  end if 
   
  StrKod = Replace (kod,"<","<",1,-1,1) 
  StrKod = Replace (kod,">",">",1,-1,1) 
  %> 
  <html> 
  <head> 
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 
  <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> 
  <meta name="ProgId" content="FrontPage.Editor.Document"> 
  <title>KOD CRAKER</title> 
  </head> 
  <body> 
   
  <textarea rows="35" name="S1" cols="92"><%=StrKod%>

---------------------------------------------------------
ASP+Bechmark Testi
---------------------------------------------------------

<% 
  Dim Conn,RS,SQL,DSN 
   
  DSN = "DBQ=" & Server.Mappath("benchmark.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" 
  Set RS = Server.CreateObject("ADODB.Recordset") 
  Set Conn = Server.CreateObject("ADODB.Connection") 
   
  Response.Write "Baslama: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "<br>" 
   
  Conn.Open DSN 
  SQL = "SELECT * FROM table" 
  RS.Open SQL,Conn,1,2 
  Do While Not RS.EOF 
  i = i +1 
  RS.MoveNext 
  Loop 
   
  Response.Write "Bitme: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "<br>" 
  Response.Write i & " kayit bulundu." 
  %>

---------------------------------------------------
Jmail&Şifreleme
--------------------------------------------------

<%@LANGUAGE="VBSCRIPT" %> 
  <HTML> 
  <BODY> 
  <% 
  set msg = Server.CreateObject( "JMail.Message" ) 
   
  msg.From = "email@domain.com" 'gidecek e-mail adresi. 
  msg.Subject = "Hazirkod" ' e-mail başlık 
  msg.Body = "Aranan ve Paylaşılan Herşey!." ' e-mail mesajınız. 
   
  msg.Logging = true 
  msg.silent = true 
   
  msg.AddRecipient "recipient@domain.com", "Hazirkod" ' gönderen e-mail adresdi. 
   
  msg.PGPEncrypt = true' mesajı şifrelemek için "false" değer'de işlev görmez. 
   
  if not msg.Send( "mail.doamin.com" ) then 
  Response.write "<pre>" & msg.log & "</pre>" 
  else 
  Response.write "Mesajınız gönderildi ve şifrelendi.!" 
  end if 
  %> 
  </BODY> 
  </HTML>

---------------------------------------------------------------------
Şifreleme
--------------------------------------------------------------------

<% 
  function Encrypt(Text,Password)  
  Dim TextCharCode, PasswordCharCode, NewCharCode 
   
  For Char = 1 To LEN(Text)  
  TextCharCode = ASC(MID(Text,Char,1)) 
  PasswordCharCode = ASC(MID(Password,(Char MOD LEN(Password) + 1),1)) 
  NewCharCode = TextCharCode + PasswordCharCode 
  if NewCharCode > 255 Then NewCharCode = NewCharCode -255 
   
  Encrypt = Encrypt & CHR(NewCharCode) 
  NEXT 
  End function 
   
  function Decrypt(Code,Password)  
  Dim CodeCharCode, PasswordCharCode, OriginalCharCode 
   
  For Char = 1 To LEN(Code) 
  CodeCharCode = ASC(MID(Code,Char,1)) 
   
  PasswordCharCode = ASC(MID(Password,(Char MOD LEN(Password) + 1),1)) 
  OriginalCharCode = CodeCharCode - PasswordCharCode 
   
  if OriginalCharCode < 1 Then OriginalCharCode = OriginalCharCode + 255 
   
  Decrypt = Decrypt & CHR(OriginalCharCode) 
  NEXT 
  End function 
  %>

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

G

gurhalil

19 yıl

Teğmen

baba buyuksun

Bu mesaja 1 cevap geldi.

D

DeLi_ZaL

19 yıl

Yüzbaşı

<Object Runat="Server" Scope="application" ID="dOnlineUsers" ProgID="Scripting.Dictionary"></Object>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
sub Application_OnStart
application("ServerStart") = now
end sub
function Decrypt(sText)
Decrypt = sText
end function

function adZero(sText)
if isNull(sText) then exit function
adZero = string(5 - len(sText), "0") & sText
end function

Sub Session_OnStart

Session.TimeOut = 5
sAktifUsrList = application("AktifUsrList")

sNewUserName = Decrypt(request.cookies("isim")+ request.cookies("soyisim"))

if sNewUserName = "" then sNewUserName = "Ziyaretci-" & AdZero(CInt(application("Ziyaretci")))

sLastActionTime = Time

sUserInfo = sNewUserName & "<|>" & sLastActionTime & "<|>" & sLastPageViewed

dOnlineUsers.Add Session.SessionID, sUserInfo

application.lock
application("AktifUsr") = application("AktifUsr") + 1
application("Ziyaretci") = application("Ziyaretci") + 1

if application("TodaysDate") <> Date() then
application("PageViewsToday") = 0
application("ZiyaretciToday") = 0
end if
application("ZiyaretciToday") = application("ZiyaretciToday") + 1
application("TodaysDate") = Date()
application.unlock

End Sub

Sub Session_OnEnd

on error resume next
dOnlineUsers.Remove Session.SessionID

application.lock
application("AktifUsr") = application("AktifUsr") - 1
application.unlock

End Sub
</SCRIPT>

buna birde global.asa gerekir degilmi?

Bu mesaja 1 cevap geldi.

K

kaplan.h

19 yıl

Yüzbaşı

güselllll paylaşımını sevdim

Bu mesaja 1 cevap geldi.

M

mrt48

19 yıl

Teğmen

güsl paylaşım ama başlıgı sanki biraz abartmışsın

Bu mesaja 1 cevap geldi.

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

quote:

Orjinalden alıntı: mrt48

güsl paylaşım ama başlıgı sanki biraz abartmışsın

Yok Daha hep koyacam boş vaktim oldukça

ASP YE DEVAM
Aya göre select box
----------------------------------------------

<% 
  iMonth = Month(Now()) 
  Aylar = Array("1","2","3","4","5","6","7","8","9","10","11","12") 
  response.write "<select name=ay>" 
  For I = 1 to UBound(Aylar) + 1 
  if iMonth = I Then 
  response.write "<option selected>"& I &"</option>" 
  Else 
  response.write "<option>"& I &"</option>" 
  End If 
  Next 
  response.write "</select>" 
  %>

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

ASP Ye DEVAM
Kullanıcıya Türkiyeyle Saat Farkını Yansıtmamak
---------------------------------------------------

function TRSaat(saat) 
     SaatFarki = 7 
     'Burada örnek olarak serverımızın ABD saatine göre ayarlandığını varsayalım. 
     TRSaat = DateAdd("h", SaatFarki, saat) 
  end function 
   
  'Örneğin saat farkı 7,5 saat ise fonksiyonumuzu şöyle yazabilirsiniz: 
   
  function TRSaatK(saat) 
     SaatFarki = 7 
     DakikaFarki = 30 
      
     TurkiyeSaati = DateAdd("h", SaatFarki, saat) 
     TRSaat = DateAdd("m", DakikaFarki, TurkiyeSaati) 
  end function 
   
  'Fonksiyonu sayfanızda istediğiniz yerde çağırarak kullanabilirsiniz. 
  'Örneğin Ülkemize göre saat ve tarihi yazdırmak için; 
  '  response.write TRSaat(Now()) 
  'yazabilirsiniz. 
  ' 
  'Bir başka örnek olarak ülkemize göre sadece saati yazdırmak için; 
  '  response.write Hour(TRSaat(Now())) & ":" & Minute(TRSaat(Now())) 
  'yazabilirsiniz.

---------------------------------------------------------
Büyük Küçük Harf Çevrimi
---------------------------------------------------------

'KULLANIMI: 
  ' 
  'Bir Metni Büyük Harfe Çevirmek İçin: 
  'TR("Çevrilecek Metin", 1) 
  ' 
  'Bir Metni Küçük Harfe Çevirmek İçin: 
  'TR("Çevrilecek Metin", 2) 
   
   
  function TR(metin, tur) 
   
  	dim sonuc 
   
  	if tur = 1 then 
  		sonuc = replace(metin, "a", "A") 
  		sonuc = replace(sonuc, "b", "B") 
  		sonuc = replace(sonuc, "c", "C") 
  		sonuc = replace(sonuc, "ç", "Ç") 
  		sonuc = replace(sonuc, "d", "D") 
  		sonuc = replace(sonuc, "e", "E") 
  		sonuc = replace(sonuc, "f", "F") 
  		sonuc = replace(sonuc, "g", "G") 
  		sonuc = replace(sonuc, "ğ", "Ğ") 
  		sonuc = replace(sonuc, "h", "H") 
  		sonuc = replace(sonuc, "ı", "I") 
  		sonuc = replace(sonuc, "i", "İ") 
  		sonuc = replace(sonuc, "j", "J") 
  		sonuc = replace(sonuc, "k", "K") 
  		sonuc = replace(sonuc, "l", "L") 
  		sonuc = replace(sonuc, "m", "M") 
  		sonuc = replace(sonuc, "n", "N") 
  		sonuc = replace(sonuc, "o", "O") 
  		sonuc = replace(sonuc, "ö", "Ö") 
  		sonuc = replace(sonuc, "p", "P") 
  		sonuc = replace(sonuc, "r", "R") 
  		sonuc = replace(sonuc, "s", "S") 
  		sonuc = replace(sonuc, "ş", "Ş") 
  		sonuc = replace(sonuc, "t", "T") 
  		sonuc = replace(sonuc, "u", "U") 
  		sonuc = replace(sonuc, "ü", "Ü") 
  		sonuc = replace(sonuc, "v", "V") 
  		sonuc = replace(sonuc, "y", "Y") 
  		sonuc = replace(sonuc, "z", "Z") 
  		sonuc = replace(sonuc, "q", "Q") 
  		sonuc = replace(sonuc, "w", "W") 
  	else 
  		sonuc = replace(metin, "A", "b") 
  		sonuc = replace(sonuc, "B", "b") 
  		sonuc = replace(sonuc, "C", "c") 
  		sonuc = replace(sonuc, "Ç", "ç") 
  		sonuc = replace(sonuc, "D", "d") 
  		sonuc = replace(sonuc, "E", "e") 
  		sonuc = replace(sonuc, "F", "f") 
  		sonuc = replace(sonuc, "G", "g") 
  		sonuc = replace(sonuc, "Ğ", "ğ") 
  		sonuc = replace(sonuc, "H", "h") 
  		sonuc = replace(sonuc, "I", "ı") 
  		sonuc = replace(sonuc, "İ", "i") 
  		sonuc = replace(sonuc, "J", "j") 
  		sonuc = replace(sonuc, "K", "k") 
  		sonuc = replace(sonuc, "L", "l") 
  		sonuc = replace(sonuc, "M", "m") 
  		sonuc = replace(sonuc, "N", "n") 
  		sonuc = replace(sonuc, "O", "o") 
  		sonuc = replace(sonuc, "Ö", "ö") 
  		sonuc = replace(sonuc, "P", "p") 
  		sonuc = replace(sonuc, "R", "r") 
  		sonuc = replace(sonuc, "S", "s") 
  		sonuc = replace(sonuc, "Ş", "ş") 
  		sonuc = replace(sonuc, "T", "t") 
  		sonuc = replace(sonuc, "U", "u") 
  		sonuc = replace(sonuc, "Ü", "ü") 
  		sonuc = replace(sonuc, "V", "v") 
  		sonuc = replace(sonuc, "Y", "y") 
  		sonuc = replace(sonuc, "Z", "z") 
  		sonuc = replace(sonuc, "Q", "q") 
  		sonuc = replace(sonuc, "W", "w") 
  	end if 
   
  	TR = sonuc 
   
  end function

-----------------------------------------------------------
En son 10 Kayıt
-----------------------------------------------------------

<% 
  'Veritabanına bağlanıyoruz. 
  set conn=server.createobject("adodb.connection") 
  conn.open= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath ("db/database.mdb") 
  'Şimdi Kayıt nesnemizi oluşturuyoruz. 
  Set rs=server.createobject("adodb.recordset") 
  'şimdi sql ile sorgu oluşturuyoruz. 
  sql="select * from tablo where kayit_tarih desc" 
  'şimdi kayıt nesnemiz olan rs ile tabloyu açtırıyoruz 
  rs.open sql,conn,1,3 
  %> 
  <% 
  ' Şimdi ise sql sorgusu ile aldığımız kayıtların sadece 10 tanesini gösterecek bir döngü yaratıyoruz 
  for i=1 to 10  
  %> 
  <%= rs("kayit_tarih")%> <%= rs("kayit")%> 
  <% rs.movenext %> 
  <% next %>

Bu mesaja 1 cevap geldi.

Y

ysfozy

19 yıl

Çavuş

güzel paylasım, yalnız php olsa sevinirdim :D
ayrıca başlıktaki duruma 2 ay sonra ulaşırsın bence :D

Bu mesaja 1 cevap geldi.

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

quote:

Orjinalden alıntı: ysfozy

güzel paylasım, yalnız php olsa sevinirdim :D
ayrıca başlıktaki duruma 2 ay sonra ulaşırsın bence :D

Hepsini alfabe sırasına göre koyuyorum ama bütün kodları koyacam emin olun.
ASP'ye Devam
---------------------------
Dosya Kontrol
---------------------------

<% 
  Set Tools = Server.CreateObject("MSWC.Tools") 
  resim = "images/deneme.gif" 
  If Tools.FileExists(resim) then 
  'resim varsa 
  Response.Redirect resim 
  Else 
  'resim yoksa 
  Response.Redirect "images/bos.gif" 
  End if 
  %> 
   
  <% 
  '  
  ' IIS 6.0 da çalışması için 2000 serverden tools.dll alıp win 2003 server de register ediniz. 
  ' 
  %>

---------------------------------------
Database'e bu bilgi girldi mi?
---------------------------------------

Bunu çoğunlukla üyelik sistemlerinde kullanabilirsiniz. Böylece aynı kullanıcı adına sahip bi kaç üye gibi bi sorun ortaya çıkmaz.  Kod örneği aşağıdadır. 
  -------------------- 
  .. 
  .. 
  .. 
  set rset = Server.CreateObject("ADODB.RecordSet") 
  sql_rset ="Select * FROM tablomuz where kullaniciadi='"&Request("kullaniciadi")&"'" 
  rset.open sql_rset,conn,1,3 
  On Error Resume Next 'BU SATIR COK ONEMLI CUNKI EGER DAHA 
  'ONCEDEN BOYLE BIR KULLANICI GIRILMEMISSE 
  'DBDEKI ALANDA KULLANICI ADINI BULAMADIGINDAN  
  'HATA VERECEK BIZ BU HATA DURUMUNDA  
  'AKISIN DEVAMINI SAGLIYORUZ 
   
  If rset("kullaniciadi") = "" Then 
  Response.Write("Bu kullanıcı adı daha önceden alınmamış.")  
  Else 
  Response.Write("Bu kullanıcı adı bir başka üye tarafından kullanılıyor. Lütfen başka bir kullanıcı adı seçiniz.")  
  End If 
  .. 
  .. 
  ..

------------------------------------------
Mail Yolla
------------------------------------------

Sub SendEmail(strFrom, strTo, strSubject, strBody) 
  	' DB ve email sabitleri 
  	Dim objCDOMail 
   
  	' email aktif mi 
  	If SEND_EMAIL Then 
  		 
  		Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 
   
  		' obje özellikleri 
  		objCDOMail.From = strFrom 
  		objCDOMail.To = strTo 
  		objCDOMail.Subject = strSubject 
  		objCDOMail.Body = strBody 
   
  		' mesajı yolla 
  		objCDOMail.Send 
  		Set objCDOMail = Nothing 
  	End If 
  End Sub

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

ASPYE DEVAM

Refresh Page

<%if Request.QueryString ("refresh")<>1 then%> 
  <script>window.location.replace("sayfa.asp?refresh=1")</script> 
  <%end if%>

Microsoft Accses Veritabanı Bağlantısı

Set cnnl = Server.CreateObject("ADODB.Connection") 
  cnnl.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")

Dosya Kaydet

Sub SaveFile(TextToSave, PathInfo, FileIn) 
  	Dim FileObject, a 
  	Set FileObject = Server.CreateObject("Scripting.FileSystemObject") 
  	Set a = FileObject.CreateTextFile(PathInfo & FileIn, True) 
  	a.WriteLine(TextToSave) 
  	a.Close 
  	Set a = Nothing 
  	Set FileObject = Nothing 
  End Sub 
   
  Sub WriteLine(strText) 
  	Response.Write strText & vbCrLf 
  End Sub

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

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

ASP.NET

Döküman Yönetimi

<%@ Page Language="VB" debug=true  %> 
  <%@ Import Namespace="System.Data" %> 
  <%@ Import Namespace="System.Data.OleDb" %> 
  <%  ''//////////////////////////////////////////////////////////////// 
      ''File uploading by Türkay Biliyor, turkay.biliyor@tekersan.com.tr 
      ''/////////////////////////////////////////////////////////////// 
      Dim objConnection As OleDbConnection 
      Dim objCommand As OleDbCommand 
      Dim myReader As OleDbDataReader 
      Dim strSQLQuery As String 
       If Request.QueryString("mode") = "view" Then 
          objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Files.mdb") & ";") 
          strSQLQuery = "SELECT * FROM Files WHERE ID =" & Request.QueryString("file_id") & " " 
          objCommand = New OleDbCommand(strSQLQuery, objConnection) 
          objConnection.Open() 
          myReader = objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection) 
          If myReader.Read() Then 
              Dim fileData() As Byte = CType(myReader.Item("FileData"), Byte()) 
              Response.Clear() 
              Response.AppendHeader("Content-Disposition", "attachment; filename=" + myReader.GetString(1)) 
              Response.ContentType = myReader.GetString(3) 
              Response.OutputStream.Write(fileData, 0, fileData.Length) 
          Else 
              Response.Write("<p>No File to view.</p>") 
          End If 
          objConnection.Close() 
      Else 
  %><html> 
     <body> 
       <script language="VB" runat="server"> 
         Sub btnUpload_OnClick(ByVal Src As Object, ByVal E As EventArgs) 
             If Fileupload1.HasFile Then 
                 Dim files As HttpFileCollection = Request.Files 
                 Dim i As Integer = 0 
                 While i < Request.Files.Count 
                     Dim file As HttpPostedFile = files(i) 
                     If file.ContentLength > 0 Then 
                         UploadFile(file) 
                     End If 
                     System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1) 
                 End While 
                 files = Nothing 
             Else 
                 Response.Write("<p>Chose a file.</p>") 
             End If 
           End Sub 
            
         Sub UploadFile(ByVal file As HttpPostedFile) 
             Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Files.mdb") & ";") 
             Dim CmdText As String = "INSERT INTO Files(FileName, FileSize, ContentType, FileData) VALUES (@FileName, @FileSize, @ContentType, @FileData)" 
             Dim fileName As String = Nothing 
             Dim contentType As String = file.ContentType 
             Dim fileLength As Integer = file.ContentLength 
             Dim fileData(fileLength) As Byte 
             Dim lastPos As Integer = file.FileName.LastIndexOf("\"c) 
             fileName = file.FileName.Substring(System.Threading.Interlocked.Increment(lastPos)) 
             file.InputStream.Read(fileData, 0, fileLength) 
               Try 
                   Dim cmd As OleDbCommand = New OleDbCommand(CmdText, con) 
                   Try 
                       Dim pms As OleDbParameterCollection = cmd.Parameters 
                       pms.Add("@FileName", OleDbType.VarChar, 50) 
                       pms.Add("@FileSize", OleDbType.Integer) 
                       pms.Add("@ContentType", OleDbType.VarChar, 50) 
                       pms.Add("@FileData", OleDbType.VarBinary) 
                       pms("@FileName").Value = fileName 
                       pms("@FileSize").Value = fileLength 
                       pms("@ContentType").Value = contentType 
                       pms("@FileData").Value = fileData 
                       pms = Nothing 
                       con.Open() 
                       cmd.ExecuteNonQuery() 
                   Finally 
                       CType(cmd, IDisposable).Dispose() 
                   End Try 
               Finally 
                   CType(con, IDisposable).Dispose() 
               End Try 
         End Sub 
     </script>  
  <% 
      objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Files.mdb") & ";") 
      If Request.QueryString("delete") <> "" Then 
          strSQLQuery = "Delete from Files where ID = " & Request.QueryString("delete") & " " 
          objCommand = New OleDbCommand(strSQLQuery, objConnection) 
          objConnection.Open() 
          objCommand.ExecuteNonQuery() 
          objConnection.Close() 
      End If 
      strSQLQuery = "SELECT * FROM Files" 
      objCommand = New OleDbCommand(strSQLQuery, objConnection) 
      objConnection.Open() 
      myReader = objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection) 
       
  %> 
  <table bgcolor="gainsboro" border="1"> 
      <form runat="server"> 
      <tr bgcolor="navy"> 
      <td colspan="4"> 
      <asp:button id="btn_Upload" runat="server" text="Upload" tabindex="2" OnClick = "btnUpload_OnClick"></asp:button>  
      <asp:fileupload id="Fileupload1" runat="server" /> 
      </td> 
      </tr> 
      </form> 
      <% If myReader.HasRows Then%> 
      <tr bgcolor="navy"> 
      <td><font color=white face=tahoma size=2>FileName</font></td> 
      <td><font color=white face=tahoma size=2>FileSize</font></td> 
      <td><font color=white face=tahoma size=2>ContentType</font></td> 
      <td><font color=white face=tahoma size=2>Delete</font></td> 
      </tr> 
              <%While myReader.Read()%> 
                  <tr> 
                  <td><a href=main.aspx?file_id=<%=myReader.GetInt32(0)%>&mode=view><font  face=tahoma size=2><%=myReader.GetString(1)%></font></a> </td> 
                  <td><font  face=tahoma size=2><%=formatnumber(myReader.GetInt32(2).ToString()/1000,2)%> Kb</font></td> 
                  <td><font  face=tahoma size=2><%=myReader.GetString(3)%></font></td> 
                  <td><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=8189298&url=main.aspx?delete=<%=myReader.GetInt32(0).ToString()%>" data-href="main.aspx?delete=<%=myReader.GetInt32(0).ToString()%>"><font face=tahoma size=2 color=navy>Delete</font></a> 
                  </tr>  
              <%End While 
              Else 
                  Response.Write("<p>No records.</p>") 
              End If 
              myReader.Close() 
              objConnection.Close()   
      %> 
  </table>  
  </body> 
  </html> 
  <%End if%>

Sayı Bulma

Dim a, b, c, d 
          Dim sayi(5) As Integer 
           
           
          For a = 0 To 5 
              sayi(a) = Rnd(1) * 49 + 1 
              Me.liste.Items.Add(sayi(a)) 
          Next 
           
        
          d = sayi(0) 
          c = sayi(0) 
           
          For a = 1 To 5 
              If d < sayi(a) Then 
                  d = sayi(a) 
              End If 
          Next 
          For a = 1 To 5 
              If c > sayi(a) Then 
                  c = sayi(a) 
              End If 
          Next 
          Response.Write("En büyük sayı....." & d & "<br>") 
          Response.Write("En küçük sayı....." & c & "<br>")

Login Web Servisi

Imports System.Web.Services 
  Imports System.Data.SqlClient 
   
  <System.Web.Services.WebService(Namespace:="http://localhost/EOS/slogin")> _ 
  Public Class slogin 
      Inherits System.Web.Services.WebService 
   
  #Region " Web Services Designer Generated Code " 
   
      Public Sub New() 
          MyBase.New() 
   
          'This call is required by the Web Services Designer. 
          InitializeComponent() 
   
          'Add your own initialization code after the InitializeComponent() call 
   
      End Sub 
   
      'Required by the Web Services Designer 
      Private components As System.ComponentModel.IContainer 
   
      'NOTE: The following procedure is required by the Web Services Designer 
      'It can be modified using the Web Services Designer.   
      'Do not modify it using the code editor. 
      <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() 
          components = New System.ComponentModel.Container 
      End Sub 
   
      Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 
          'CODEGEN: This procedure is required by the Web Services Designer 
          'Do not modify it using the code editor. 
          If disposing Then 
              If Not (components Is Nothing) Then 
                  components.Dispose() 
              End If 
          End If 
          MyBase.Dispose(disposing) 
      End Sub 
   
  #End Region 
   
   
      <WebMethod()> _ 
      Public Function sql(ByVal a As String, ByVal b As String) As String 
   
          Dim DBConn As SqlConnection 
          Dim DBCommand As SqlDataAdapter 
          Dim DSPageData As New DataSet 
          DBConn = New SqlConnection(server=(local);database=deneme;trusted_connection=true) 
          DBCommand = New SqlDataAdapter _ 
                     ("Select * From tablom Where " _ 
                     & "a = '" & a & "' " _ 
                     & "And b = '" & b & "'" _ 
                                        , DBConn) 
          DBCommand.Fill(DSPageData, _ 
              "tablom") 
          If DSPageData.Tables("tablom").Rows.Count = 0 Then 
              Return ("hata var") 
          Else 
              Return ("giris tamam") 
          End If 
   
      End Function 
   
  End Class

Mobil Uygulama Geliştirme

Günümüzde GPRS’in yaygınlaşmasının ardından mobil programcılıkta gelişmeye başladı.Şirketler de mobil uygulamalara daha fazla yer vermeye başladı.Eskiden mobil uygulamalar wml ile yazılırken günümüzde .net çatısı altında gelen mobil kontroller kulanılarak oldukça hızlı ve kolay bir şekilde mobil uygulama yazılır hale geldi.Bunu kısa bir örnekle inceleyecek olursak : 
   
  WML ile : 
   
  <?xml version='1.0'?> 
  <!DOCTYPE wml PUBLIC '-//WAPFORUM//DTD WML 1.1//EN' 'http://www.wapforum.org/DTD/wml_1.1.xml'> 
  <wml> 
  <head> 
  <meta http-equiv="Cache-Control" content="max-age=0" /> 
  </head> 
  <card id="cardid" title="Başlığımız"> 
  <p align="center">ilk mobil uygulamamız!</p> 
  </card> 
  </wml> 
  Bu örnekten de göreceğiniz üzere wml xml tabanlı yazılıyor ve  en önemli nokta başlıktır. Tarayıcıya gelen ilk karakter mutlaka < karakteri olmalıdır.Ayrıca  bu karakterle başlayan satır da, <?xml version='1.0'?> şeklinde görünmelidir. Başka karakterler -boşluk , yeni satır veya bir başka karakter- "card" için sorun yaratacaktır.Ama .net çatısı altındaki mobil uygulama ise : 
   
  <%@ Page Inherits="System.Web.Mobile.UI.MobilePage" Language="vb" %> 
  <%@ Register TagPrefix="mobile" Namespace="System.Mobile.UI" %> 
  <mobile:Form runat="server"> 
  <mobile:Label runat="server"> 
  .NET ile Merhaba Dünya! 
  </mobile:Label> 
  </Mobile:Form> 
  Bu örnekte ise asp.net uygulamasından pek farkı yokmuş gibi görünüyor. <asp:…> tagı yerine <mobile:..>tagının geldiğini görüyoruz. Bir diğer fark ise import ettiğimiz sınıfın system.web.mobile sınıfı olduğu.

Adratator

Adratator asp.net ile beraber karşımıza çıkan yeni bir kavram.Adratator eskiden asp’de veritabanı kullnarak yaptığımız veya fazlaca javascript kodu yazarak yaptığımız işi tek bir xml dosyası kullanarak yapmamızı sağlıyor.Oluşturacağımız xml dosyası içindeki tag’lar arasındaki bilgileri .aspx uzantılı dosyamız algılıyor ve farklı bir şekilde yayınlıyor.Sayfamız her yüklenişinde farklı bannerlar ile açılıyor ve sayfanıza giren kullanıcaların sürekli aynı banner’larla karşılaşmadığı bir ortam oluşuyor.Şimdi bir örnek yazalım. 
   
  --- Reklam.aspx  dosyamız -------- 
   
  <%@ Page Language=VB Debug=true %> 
  <script runat=server> 
  Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) 
   
  End Sub 
  </SCRIPT> 
  <HTML> 
  <HEAD> 
  <TITLE>Reklam</TITLE> 
  </HEAD> 
  <BODY LEFTMARGIN="40"> 
  <form runat="server"> 
  <asp:adrotator   
      AdvertisementFile="reklam.xml"  
      BorderColor="blue"  
      BorderWidth=3  
      runat="server"/> 
  </form> 
  </BODY> 
  </HTML> 
   
  ‘----------------------------------------------------------------- 
   
  Yukarıdaki dosyada göreceğiniz gibi adratator kullanımı oldukça basit ve anlaşılır.Border bilgilerini isteğinize göre değiştirirsiniz.Şimdi gelelim xml dosyamıza 
   
  --------Reklam.xml------- 
   
  <Advertisements> 
     <Ad> 
        <ImageUrl>banner1.gif</ImageUrl> 
        <NavigateUrl>http://www.hazirkod.com</NavigateUrl> 
        <AlternateText>Hazırkod</AlternateText> 
        <Impressions>71</Impressions> 
     </Ad> 
     <Ad> 
        <ImageUrl>banner2.gif</ImageUrl> 
        <NavigateUrl>http://www.google.com.tr</NavigateUrl> 
        <AlternateText>Google </AlternateText> 
        <Impressions>70</Impressions> 
     </Ad> 
  </Advertisements> 
   
   
  ‘----------------------------------------- 
   
  Yukarıdaki xml dosyamızı inceleyelim.Gördüğünüz gibi yapısı oldukça basit ve anlaşılır. 
   
  <ImageUrl> : Resmimizin adresi 
  <NavigateUrl> : Resme tıklanınca ulaşılacak adres 
  <AlternateText> : Eğer resim gösterilemez ise resmin yerinde görüntülenecek metin. 
  <Impressions> : Reklamın hangi sıklıkla gösterileceği.Eğer birince reklam 1 ikinci ise 90 olursa ikinci reklam daha fazla gösterilir.Yani bir ölçüde öncelik gibi. 
   
  Xml dosyamıza bazı ek özellikler de ekleyebilirsiniz.Bu tamamen sizin kullanım amacınıza kalmış.Örnek vermek gerekirse: 
   
  <Keyword> : Bir grup reklamın sınıfını tanımlayan anahtar kelimedir. 
   
  Örneğin ilk iki reklamımızın anahtarı : <keyword>bilgisayar</keyword>. Sonraki ki tanesi ise <keyword>kitap</keyword> olsun. .aspx uzantılı sayfamızda kullandığımız adratator etiketi içene ekleyeceğimiz “keywordfilter=bilgisyar” eki göstereceğimiz reklamları filitrelememizi sağlıyor.

Bu mesaja 1 cevap geldi.

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

C++
Asal Sayı Bulma

#include<iostream.h> 
  #include<conio.h> 
   
  int asalmi(int a) 
  { 
  int i; 
  char asal=''''E''''; 
  	for(i=2; i<a; i++) 
     { 
     	if((a%i)==0) 
        { 
        asal=''''H''''; 
        break; 
        } 
     } 
     if(asal==''''H'''')return 0; 
     if(a==2)return 1; 
     if(asal==''''E'''')return 1; 
   
  } 
   
  void asal_ara(int a,int b) 
  { 
  int i; 
  for(i=a; i<=b; i++) 
  { 
  	if(asalmi(i)==1){cout<<i<<"\t";} 
     else continue; 
  } 
  } 
   
  main() 
  { 
  int a,b; 
  cout<<"alt sinir:"; 
  cin>>a; 
  cout<<"ust sinir:"; 
  cin>>b; 
  	asal_ara(a,b); 
     getch(); 
  }

Class Yapısı İle Metris Çarpımı

#define MAX 10 
   
  class matrix 
  { 
  int m1[MAX][MAX],m2[MAX][MAX],c[MAX][MAX]; 
  int i,j,k,sayi; 
  	public: 
  void matris_al(int); 
  void matris_yaz(int); 
  void matris_carp(int); 
  void matris_sifir(int); 
  }; 
   
  void matrix::matris_al(int a) 
  { 
  cout<<"1. matrisi girin:"<<"\n\n"; 
  	for(i=0; i<a; i++) 
  	{ 
     	for(j=0; j<a; j++) 
        { 
        	cout<<(i+1)<<". satir "<<(j+1)<<". sutun:"; 
           cin>>sayi; 
        	m1[i][j]=sayi; 
        } 
     } 
     clrscr(); 
  cout<<"2. matrisi girin:"<<"\n\n"; 
     for(i=0; i<a; i++) 
     { 
     	for(j=0; j<a; j++) 
        { 
        	cout<<(i+1)<<". satir "<<(j+1)<<". sutun:"; 
           cin>>sayi; 
           m2[i][j]=sayi; 
        } 
     } 
   
  } 
  void matrix::matris_yaz(int a) 
  { 
  	cout<<"carpim matrisi:"<<endl; 
     for(i=0; i<a; i++) 
     { 
     	for(j=0; j<a; j++) 
        { 
        	cout<<c[i][j]<<"\t"; 
        } 
        cout<<"\n"; 
     } 
   
  } 
  void matrix::matris_sifir(int a) 
  { 
  for(i=0; i<a; i++) 
  { 
  	for(j=0; j<a; j++) 
     { 
     	c[i][j]=NULL; 
     } 
  } 
  } 
  void matrix::matris_carp(int a) 
  { 
  for(i=0; i<a; i++) 
  { 
  	for(j=0; j<a; j++) 
     { 
     	for(k=0; k<a; k++) 
        { 
        	c[i][j]+=m1[i][k]*m2[k][j]; 
        } 
     } 
  } 
  } 
   
  main() 
  { 
  int a; 
  char ch; 
  do 
  { 
  gel: 
  clrscr(); 
  cout<<"kaca kaclik matris:"; 
  cin>>a; 
  if(a<2) 
  { 
  printf("2'den kucuk giremessin..");goto gel; 
  } 
  clrscr(); 
  matrix mt; 
  mt.matris_sifir(a); 
  mt.matris_al(a); 
  clrscr(); 
  mt.matris_carp(a); 
  mt.matris_yaz(a); 
  getch();clrscr(); 
  cout<<"devam etmek icin e'ye bas..."; 
  }while((ch=getche())=='e') ; 
  }

Hesap Makinası

 
  #include <iostream.h> 
  #include <stdlib.h> 
       int main()                                        //hesap makinesi 
        {                                               //meric-mericliler 
          int n; 
          long int a,b; 
                  cout<<"Bu hesap makinesi dir!!    >>>meric_MERICLILER<<<"<<endl; 
                  cout<<"Asagidaki islemilerden birini seciniz:"<<endl<<endl; 
                  cout<<"Toplama islemi icin=1"<<endl; 
                  cout<<"Cikarma islemi icin=2"<<endl; 
                  cout<<"Carpma islemi icin=3"<<endl; 
                  cout<<"Bolme islemi icin=4"<<endl<<endl; 
                  cout<<"Kare koku icin=5"<<endl; 
                  cout<<"Kare alma islemi icin=6"<<endl; 
                        cin>>n; 
                     if(n>=5) 
                     { 
                        cout<<"Sadece tek sayi giriniz"<<endl; 
                        cin>>a; 
                     } 
                     else 
                     { 
                        cout<<"Ilk sayi'yi giriniz"<<endl; 
                        cin>>a; 
                             cout<<"Ikinci sayi'yi giriniz"<<endl; 
                        cin>>b; 
                    } 
   
                                               switch(n){ 
                                               case 1:{cout<<"Sonuc="<<a+b<<endl;break;} 
                                               case 2:{cout<<"Sonuc="<<a-b<<endl;break;} 
                                               case 3:{cout<<"Sonuc="<<a*b<<endl;break;} 
                                               case 4:{cout<<"Sonuc="<<a/b<<endl;break;} 
                                               case 5:{cout<<"Sonuc="<<sqrt(a)<<endl;break;} 
                                               case 6:{cout<<"Sonuc="<<a*a<<endl;break;} 
   
                                                     defult:cout<<"yanlis tusa bastin heralde:)"<<endl;break;} 
    cout<<"bu programi >>>PROGRAMCI MERIC<<< yapmistir..."<<endl<<endl; 
                                                                  system("PAUSE"); 
          return 99; 
  }

Sayısal Loto Oyunu

#include <iostream.h> 
  #include <string.h> 
  #include <stdlib.h> 
  #include <time.h> 
  #define SIZE 6 
  using namespace std; 
  int kupon[SIZE]; 
  int loto[SIZE]; 
   
  void kupon_doldur(void); 
  void altili_sonuclari(void); 
  void tutanlar_kontrol(void); 
   
  int main() 
  { 
      cout << "---- PROGRAMMING Muslum TORUN - by_muslum@hotmail.com ----" << endl 
           << endl; 
      srand(time(0)); 
       
      kupon_doldur(); 
      altili_sonuclari(); 
      tutanlar_kontrol(); 
       
      string bck=""; 
      cout << "\n-------------------------------------------------" << endl 
           << " Tekrar oynamak ister misiniz ? E/H : "; 
      cin >> bck; 
      if ( (bck == "E") || (bck == "e") ) 
      main(); 
  } 
   
  void kupon_doldur(void) 
  { 
       int i, j, k, at, flag; 
       cout << " Lutfen 6 adet farkli sayi-rakam girin !! " << endl; 
       for (i=0; i<SIZE; i++) 
       { 
       at = i+1; 
       cout << " " << at << ". Rakam= "; 
       cin >> j; 
       kupon[i] = j; 
       flag=0; 
       if ( (j>=1) && (j<=49) ) { 
       for (k=0; k<i; k++) 
       { 
            
           if (j == kupon[k]) 
           { 
                 cout << " ** Lutfen farkli bir rakam girin !" << endl; 
                 i--; 
                 flag=1; 
                 break; 
                 } 
                 } 
                 } 
                 else { 
                      cout << " ** 1 - 49 Arasinda bir sayi-rakam girmelisiniz !\n"; 
                      i--; 
                      } 
                      } 
           return ; 
  } 
   
  void altili_sonuclari(void) 
  { 
       int i, sayi, j, k, flag; 
       cout << "--------------------------------------------------" << endl 
               << "  # CEKiLiS SONUCLARI # " << endl; 
       for (i=0; i<SIZE; i++) 
       { 
           j = i+1; 
          sayi = rand()%49+1; 
          flag=0; 
          for (k=0; k<i; k++) 
          { 
              if (sayi == loto[k]) 
              { 
                       sayi++; 
                       break; 
                       } 
                       } 
          loto[i] = sayi; 
           
          cout << " " << j << ". Numara : " << loto[i] << endl; 
          } 
          return ; 
  } 
   
   
  void tutanlar_kontrol(void) 
  { 
       int tutturdugunuz[SIZE]; 
       int i,tutturulan,k; 
       tutturulan=0; 
       for(i=0;i<SIZE;i++) 
          for(k=0;k<SIZE;k++){ 
            if(kupon[i]==loto[k]){  
            tutturdugunuz[tutturulan]=kupon[i]; 
            tutturulan++; 
            break; 
          } 
       } 
         cout << "-------------------------------------------------" << endl; 
        cout << " " << tutturulan << " Adet tutturdunuz !" << endl 
             << "-------------------------------------------------" << endl; 
         
        if(tutturulan!=0)cout << " TUTAN RAKAM-RAKAMLAR\n"; 
        for(i=0;i<tutturulan;i++) 
        cout << " " << tutturdugunuz[i] << " , "; 
         
        return ; 
  }

Bu mesaja 1 cevap geldi.

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

Bu Konu Üst Başlık Olsun Başkaları da Faydalansın

Bu mesaja 1 cevap geldi.

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

C#
Mesaj Kutusu İle Kullanıcıya Bilgi Vermek

MessageBox.Show(null,"Girdiginiz Kayit Güncellendi. Diger isleme geçebilirsiniz","Bilgi Mesaji", MessageBoxButtons.OK, MessageBoxIcon.Information);

Veritabanına Kayıt Eklemek

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\BilgiEdinme\\data\\Kayit.mdb"; 
  			OleDbConnection myConn = new OleDbConnection(strConn); 
  			myConn.Open(); 
   
  bool ycev = false, mcev = false, gizli = false, kabul = false; 
  					if(rb1a.Checked) ycev = true;  
  					if(rb2a.Checked) mcev = true;  
  					if(rb3a.Checked) gizli = true;  
  					if(rb4a.Checked) kabul = true;  
  					OleDbDataAdapter myDataAdapter = new OleDbDataAdapter(); 
  					strSql = "select * from basvuru"; 
   
  					OleDbCommand cmd=new OleDbCommand(strSql, myConn); 
  					myDataAdapter.SelectCommand = cmd; 
   
  					DataTable tbl = new DataTable(); 
  					myDataAdapter.Fill(tbl); 
   
  					DataRow row; 
  					row = tbl.NewRow(); 
  					row["b_sekli"] = cb1.Text; 
  					row["b_soy_unvan"] = tb1.Text; 
  					row["b_adi"] = tb2.Text; 
  					row["b_tcno"] = tb3.Text; 
  					row["hav_birim"] = cb2.Text; 
  					row["hav_tarih"] = dtp1.Value; 
  					row["ycev_tarih"] = dtp2.Value; 
  					row["ycev_durum"] = ycev; 
  					row["mcev_tarih"] = dtp3.Value; 
  					row["mcev_durum"] = mcev; 
  					row["bvr_gizli"] = gizli; 
  					row["bvr_kabul"] = kabul; 
  					row["aciklama"] = rtb1.Text; 
  					tbl.Rows.Add(row); 
   
  					OleDbCommandBuilder cb = new OleDbCommandBuilder(); 
  					cb.DataAdapter = myDataAdapter; 
   
  					myDataAdapter.Update(tbl);

Ekrana Kare Çizdirme

using System; 
   
  namespace kare_topologojisi 
  { 
  	class AMD_FOREVER 
  	{ 
  		static void Main(string[] args) 
  		{ 
  			Console.WriteLine("karenin bir kener uzunlugunu giriniz:"); 
  				int val = Convert.ToInt32(Console.ReadLine()); 
  			int[,] pembedizi = new int[val,val]; 
  			for(int i=0; i<val; ++i) 
  				for(int j=0; j<val; j++) 
  				{ 
  					if( (j==0) || (i==0) ) 
  						pembedizi[i,j]=1; 
  					if( (j==val-1) || (i==val-1) ) 
  						pembedizi[i,j]=1; 
  				} 
  			for(int i=0; i<val ; ++i) 
  			{ 
  				for(int j=0; j<val; j++) 
  				{ 
  					if(pembedizi[i,j]==1) 
  						Console.Write("*"); 
  					else 
  						Console.Write(" "); 
   
  				} 
  				Console.WriteLine(""); 
   
  			} 
  			Console.WriteLine("\t\t\t\t\tKeçiborlu Genç Islemcileri :)"); 
  			Console.ReadLine(); 
  		} 
  	} 
  }

Mp3 Çalmak

using System; 
  using System.Drawing; 
  using System.Collections; 
  using System.ComponentModel; 
  using System.Windows.Forms; 
  using System.Data; 
  using WMPLauncher; 
  using WMPLib; 
   
  namespace WindowsApplication1 
  { 
  	/// <summary> 
  	/// Summary description for Form1. 
  	/// </summary> 
  	public class Form1 : System.Windows.Forms.Form 
  	{ 
          private System.Windows.Forms.Button button1; 
          private System.Windows.Forms.MainMenu mainMenu1; 
          private System.Windows.Forms.MenuItem menuItem1; 
          private System.Windows.Forms.MenuItem menuItem2; 
          private System.Windows.Forms.MenuItem menuItem3; 
          private System.Windows.Forms.MenuItem menuItem4; 
          private System.Windows.Forms.MenuItem menuItem5; 
          private System.Windows.Forms.MenuItem menuItem6; 
          private System.Windows.Forms.MenuItem menuItem7; 
  		/// <summary> 
  		/// Required designer variable. 
  		/// </summary> 
  		private System.ComponentModel.Container components = null; 
   
  		public Form1() 
  		{ 
  			// 
  			// Required for Windows Form Designer support 
  			// 
  			InitializeComponent(); 
   
  			// 
  			// TODO: Add any constructor code after InitializeComponent call 
  			// 
  		} 
   
  		/// <summary> 
  		/// Clean up any resources being used. 
  		/// </summary> 
  		protected override void Dispose( bool disposing ) 
  		{ 
  			if( disposing ) 
  			{ 
  				if (components != null)  
  				{ 
  					components.Dispose(); 
  				} 
  			} 
  			base.Dispose( disposing ); 
  		} 
   
  		#region Windows Form Designer generated code 
  		/// <summary> 
  		/// Required method for Designer support - do not modify 
  		/// the contents of this method with the code editor. 
  		/// </summary> 
  		private void InitializeComponent() 
  		{ 
              System.Resources.ResourceManager resources = new System.Resources.ResourceManager(typeof(Form1)); 
              this.button1 = new System.Windows.Forms.Button(); 
              this.mainMenu1 = new System.Windows.Forms.MainMenu(); 
              this.menuItem1 = new System.Windows.Forms.MenuItem(); 
              this.menuItem2 = new System.Windows.Forms.MenuItem(); 
              this.menuItem3 = new System.Windows.Forms.MenuItem(); 
              this.menuItem4 = new System.Windows.Forms.MenuItem(); 
              this.menuItem5 = new System.Windows.Forms.MenuItem(); 
              this.menuItem6 = new System.Windows.Forms.MenuItem(); 
              this.menuItem7 = new System.Windows.Forms.MenuItem(); 
              this.SuspendLayout(); 
              //  
              // button1 
              //  
              this.button1.Font = new System.Drawing.Font("Microsoft Sans Serif", 13F, ((System.Drawing.FontStyle)((System.Drawing.FontSt    yle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((System.Byte)(162))); 
              this.button1.ForeColor = System.Drawing.Color.Brown; 
              this.button1.Image = ((System.Drawing.Image)(resources.GetObject("button1.Image"))); 
              this.button1.Location = new System.Drawing.Point(72, 40); 
              this.button1.Name = "button1"; 
              this.button1.Size = new System.Drawing.Size(160, 160); 
              this.button1.TabIndex = 0; 
              this.button1.Text = "Ayyüzlüm.mp3"; 
              this.button1.Click += new System.EventHandler(this.button1_Click); 
              //  
              // mainMenu1 
              //  
              this.mainMenu1.MenuItems.AddRange(new System.Windows.Forms.MenuItem[] { 
                                                                                        this.menuItem1, 
                                                                                        this.menuItem6, 
                                                                                        this.menuItem7}); 
              //  
              // menuItem1 
              //  
              this.menuItem1.Index = 0; 
              this.menuItem1.MenuItems.AddRange(new System.Windows.Forms.MenuItem[] { 
                                                                                        this.menuItem2, 
                                                                                        this.menuItem3, 
                                                                                        this.menuItem4, 
                                                                                        this.menuItem5}); 
              this.menuItem1.Text = "Muzikler"; 
              //  
              // menuItem2 
              //  
              this.menuItem2.Index = 0; 
              this.menuItem2.Text = "ayyüzlüm"; 
              //  
              // menuItem3 
              //  
              this.menuItem3.Index = 1; 
              this.menuItem3.Text = "bla bla"; 
              //  
              // menuItem4 
              //  
              this.menuItem4.Index = 2; 
              this.menuItem4.Text = "ceza"; 
              //  
              // menuItem5 
              //  
              this.menuItem5.Index = 3; 
              this.menuItem5.Text = "manga"; 
              //  
              // menuItem6 
              //  
              this.menuItem6.Index = 1; 
              this.menuItem6.Text = "ÇIK"; 
              //  
              // menuItem7 
              //  
              this.menuItem7.Index = 2; 
              this.menuItem7.Text = "Yardım"; 
              //  
              // Form1 
              //  
              this.AutoScaleBaseSize = new System.Drawing.Size(5, 13); 
              this.ClientSize = new System.Drawing.Size(292, 266); 
              this.Controls.Add(this.button1); 
              this.Menu = this.mainMenu1; 
              this.Name = "Form1"; 
              this.Text = "MP3"; 
              this.Load += new System.EventHandler(this.Form1_Load); 
              this.ResumeLayout(false); 
   
          } 
  		#endregion 
   
  		/// <summary> 
  		/// The main entry point for the application. 
  		/// </summary> 
  		[STAThread] 
  		static void Main()  
  		{ 
  			Application.Run(new Form1()); 
  		} 
   
          private void button1_Click(object sender, System.EventArgs e) 
          { 
               
              System.Diagnostics.Process Proc = new System.Diagnostics.Process(); 
              Proc.StartInfo.FileName = "wmplayer.exe"; 
              Proc.StartInfo.CreateNoWindow = true; 
              Proc.StartInfo.Arguments = "/hide d:\\muzik\\01-ayyüzlüm.mp3"; //siz bunu kendi diskinizdeki mp3 yerel adresiyle değiştireceksiniz. 
               
              Proc.Start(); 
   
               
               
          } 
   
          private void Form1_Load(object sender, System.EventArgs e) 
          { 
           
          } 
  	} 
  }

Bu mesaja 1 cevap geldi.

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

CGİ

Hava Durumu

<br> 
  #!/usr/bin/perl 
   
   
  use CGI::Carp qw(fatalsToBrowser); 
  use English; 
  use CGI; 
  use integer; 
  require LWP::UserAgent; 
  use GD; 
   
  $q = new CGI; 
  $ua = new LWP::UserAgent; 
  $city =$q->param(city); 
  $city =~ s/ı/i/g; 
  $city =~ s/İ/I/g; 
  $city =~ s/ğ/g/g; 
  $city =~ s/Ğ/G/g; 
  $city =~ s/ş/s/g; 
  $city =~ s/Ş/S/g; 
  $formil = $city; 
  $city =~ tr/[a-z]/[A-Z]/; 
  $begin = "http://www.meteor.gov.tr/pages/"; 
  $data = $begin . $city.'.htm'; 
  $lookup = new HTTP::Request 'GET', "$data"; 
  $response = $ua->request($lookup); 
  @lines = split (/ 
  /, $response->content); 
  foreach $item (@lines) { 
  chomp($item); 
  $tpl =$tpl.$item; 
  } 
  $start = '<!--BURADA BAŞLA-->'; 
  $end = '<TD><div>Rüzgar</TD>'; 
  ($part1,$part2) = split(/<!--BURADA BAŞLA-->/,$tpl); 
  ($part3,$part4) = split(/<TD><div>Rüzgar</TD>/,$part2); 
  ($part5,$part6) = split(/<div>Hava Durumu</div>/,$part3); 
  ($part7,$part8) = split(/<br>/,$part6); 
  ($part9,$part10) = split(/</div>/,$part8); 
  ($part11,$part12) = split(/<TD><div>Sıcaklık</div></TD>/,$part8); 
  ($part13,$part14) = split(/<div>/,$part12); 
  ($part15,$part16) = split(/</div>/,$part14); 
  $part9 =~ s/ı/i/g; 
  $part9 =~ s/ç/Ç/g; 
  $part9 =~ s/ğ/g/g; 
  $part9 =~ s/Ğ/G/g; 
  $part9 =~ s/ş/s/g; 
  $part9 =~ s/Ş/S/g; 
  $part9 =~ tr/[a-z]/[A-Z]/; 
  print "Content-type: image/png 
   
  "; 
  $im = new GD::Image(100,50); 
  ($white,$black,$red,$blue,$yellow) = 
  ( 
  $im->colorAllocate(255, 255, 255), 
  $im->colorAllocate(0, 0, 0), 
  $im->colorAllocate(255, 0, 0), 
  $im->colorAllocate(0,0,255), 
  $im->colorAllocate(255,250,205) 
  ); 
  $im->fill(50,50,$yellow); 
  $im->rectangle(1,1,99,49,$black); 
  $im->string(gdSmallFont,5,3,$formil."'da Hava",$black); 
  $im->string(gdSmallFont,5,17,$part9,$red); 
  $im->string(gdSmallFont,5,32,"SICAKLIK ".$part15,$blue); 
   
  binmode STDOUT; 
  print $im->png; 
  exit;

Sayfa Koruması

$AYAR{siteler} =  ['siteniz.com', 'www.siteniz.com']; 
  #Yukardaki site isimlerini çoğaltabilirsiniz. 
   
  foreach (@{$AYAR{siteler}}){ 
   if($ENV{'HTTP_REFERER'} =~ /$_/i){ 
   print (" Doğru siteden geldiniz. "); 
   exit; 
   } 
   else 
   { 
   print ("Location: hata.htm\n\n"); exit; 
   } 
  }

İsim Sorma

#!/usr/bin/Perl  
  #################################################  
  # form2.pl   
  print "Content-type: text/html", "\n\n";  
  $veri=$ENV{'QUERY_STRING'};  
  ($kutuismi, $isim)=split(/=/, $veri);  
  if(!$veri)  
  {  
  print <<HTML;  
  <html>  
  <head><title>Form Örnegi</title></head>  
  <body>  
  <H2>Form Örnegi</H2>  
  <form action="cgi-bin/form2.pl" method="GET">  
  Isim: <input type="text" name="isim" size=20>  
  <p>  
  <input type="submit" value="GONDER">  
  <input type="reset" value="SIL" SIZE>  
  </form>  
  <HR>  
  </body>  
  </html>  
  HTML  
  }  
  else  
  {  
  if($isim)  
  {  
  print "Merhaba $isim. MaxiAsp'ye hosgeldin!!";  
  }  
  else  
  {  
  print "Giris Için Tiklayin";  
  }  
  }  
  exit(0);  
  ##################################################

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

Component

Jmail Componenti İle Basit Bir Form Mail

<% Set Mail = Server.CreateOBject("JMail.Message") 
  Mail.Logging = True 
  Mail.Silent = True 
  Mail.From = "gonderen@domain.com" ' gonderen mail adresi 
  Mail.FromName = "gonderen adi" ' gonderen adi 
  Mail.AddRecipient "alici@domain.com" ' sizin mail adresiniz 
  Mail.Subject = "haber listesi" ' konu 
  Mail.Body = "mail listenize katilmak istiyorum" ' mesaj 
  Mail.Send "mail.domain.com" ' mail server 
  Set Mail = Nothing %>

T

TasarımHaber

19 yıl

Çavuş

Konu Sahibi

Database

MySQL DATABASE Listele

<?php 
  $baglan = @mysql_connect ( "localhost", "root" ); 
  $sorgu = mysql_list_dbs ( $baglan ); 
    
   echo "MySQL'de Bulunan Veritabanları: <br><b>"; 
               while (   $adi = mysql_fetch_object ( $sorgu ) ) { 
  				  echo $adi-> Database . "<br>\n"; 
   
  			 } 
  echo "</b>"; 
   
  ?>

Bu mesaja 1 cevap geldi.