Dundas Component’i İle Basit Bir Mail Gönderme Sitemi
< % Set Mail = Server.CreateOBject("Dundas.Mailer") sReturn = Mail.QuickSend("[email protected]",”[email protected]”,”konu basligi”,”mesajınız”) Set Mail = Nothing %> TurkIRC ©
» Devamını OkuKategori: Hazır Kodlar
DELPHI / Merge Strings
MergeStrings(ListBox1.Items, ListBox2.Items); } procedure MergeStrings(Dest, Source: TStrings); var i : integer; begin for i := 0 to -1 + Source.Count do if Dest.IndexOf(Source[i]) = -1 then Dest.Add(Source[i]); end; TurkIRC ©
» Devamını OkuASP / .Asp De Kelime Sayısını Bulma
< % Function Kelimebul(Gelen) Gelen=Trim(Gelen) If Gelen="" Then Exit Function KelimeParcala=Split(Gelen," ") Kelimebul=Ubound(KelimeParcala,1)+1 End Function Kelime="merhaba deneme yazisi yazdik kelime sayisini bulacagiz " Saybakalim=Kelimebul(Kelime) Response.Write (Saybakalim) 'Sonuç 7 Kelime %> TurkIRC ©
» Devamını OkuASP / Veri Tabanı
protected void Button4_Click(object sender, EventArgs e) { OleDbConnection yeni = new OleDbConnection(); OleDbCommand eski = new OleDbCommand(); OleDbDataReader rdr; yeni.ConnectionString = ” Provider = Microsoft.Jet.OleDb.4.0; Data Source = ” + Server.MapPath(“kayit.mdb”); yeni.Open(); eski.Connection = yeni; eski.CommandText = “SELECT * from kayit”; rdr = eski.ExecuteReader(); string KulAd, Sifre; KulAd = TextBox6.Text; Sifre = TextBox7.Text; while (rdr.Read()) { if (KulAd == Convert.ToString(rdr[“KulAd”]) […]
» Devamını OkuDATABASE / SQL Server 2005 GSM No Kontrolü
CREATE FUNCTION [dbo].[fn_GSM] ( @deger nvarchar(1000) ) RETURNS @RtnValue table ( GSM nvarchar(10), Durum bit ) AS BEGIN SET @deger = LTRIM(RTRIM(@deger)) DECLARE @karakterler NVARCHAR(10) SET @karakterler = ‘0123456789’ DECLARE @deger_ NVARCHAR(1000) SET @deger_ = ” DECLARE @say INT SET @say = 1 DECLARE @harf NVARCHAR(1) WHILE (@say < = LEN(@deger)) BEGIN SET @harf = '' SET @harf = SUBSTRING(@deger, [...]
» Devamını OkuDELPHI / Loop
// show 1,2,3,4,5 message boxes var i: integer; begin for i := 1 to 5 do begin ShowMessage(‘Box: ‘+IntToStr(i)); end; end; var i: integer; begin for i := 5 downto 1 do begin ShowMessage(‘T minus ‘ + IntToStr(i) + ‘seconds’); end; ShowMessage(‘For sequence executed!’); end; var i,j: integer; begin //be aware: //this double loop is executed 4×4=16 times for i:= […]
» Devamını OkuDELPHI / Hicon To Ticon
var MyIcon:TIcon; icoHandle: HIcon; begin MyIcon:=TIcon.Create; try icoHandle := ExtractIcon(application.handle,’c:\windows\explorer.exe’, 0); MyIcon.Handle:=icoHandle; Image1.Picture.Icon:=MyIcon; finally MyIcon.free; end; end;
» Devamını Oku