Eğer bir internet siteniz varsa buraya tıklayın.Sitenizi netbuu toplist'e kaydettirin kârlı çıkın.Şimdi kaydetmek için tıklayın.
Güncel Hazır Kod Arşivi - Php,Asp,Javascript,Delphi vb. Programlama Dillerine Ait Hazır Kod Arşivi,Güncel ve Üyelerinin Katılımı İle Büyüyen ve Gelişen Dev Bir Hazır Kod Arşivi Olma Yolunda Hızla İlerlemektedir.
Giriş Sayfası
|
WM Anasayfa
|
Kayıt Ol
|
Mail List Oluştur
|
Sayaç Edin
|
Link Kısaltıcı Oluştur
|
Ziyaretçi Defteri Oluştur
|
Anket Oluştur
|
Arama
|
Hazır Kodlar
|
Hazır Kod Ekle
|
Giris Sayfasi Yap
|
Sık Kullanılanlara Ekle
Üye Adı
Şifre
// Webmaster Araçları
Google Pagerak Ölçümü
Link Populerliği Kontrol
Arama Motorlarına Kayıt
Webte Kelime Arama
.htaccess Dosyası Oluştur
.htpasswd Dosyası Oluştur
Domain Sorgulama
Md5-Md4-Sha1 Kodla
Metatag Oluştur
Html Kodlarını Şifreleyin
Popup Yapım Aracı
Html-Php Uyumu Sağla
Html-Asp Uyumu Sağla
Html-JS Uyumu Sağla
Byte-Kb-Mg-Gb dönüştürücü
Buton Oluştur
Zaman Çevirici
Tarayıcıya Göre Yönlendirme
Çözünürlüğe Göre Yönlendirme
Css Yapım Aracı
Scroolbar Yapım Aracı
İp-Port-Sistem Bilgileriniz
El Yazısı
JavaScript Encode-Decode
// Siteniz İçin İçerik
Son Depremler
Sayısal Loto Sonuçları
Altın Fiyatları
Güzel Söz
Domain Sorgulama
Hava Durmu Kod'u
Döviz Kurlari Kod'u
Pagerank Sorgulama
Son Eklene Kodlar
Takvim Uygulaması
Günlük Burç Yorumu
Yol Durumu Bilgileri
Hazır Kodlar |
Kod Ekle
kendi kendine açılan popup
<script language=Javascript>window.open('http://trwebner.com/Anasayfa/webmaster/', 'newWindow', 'scrollbars=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes,width=600,height=330')</script>
Detaylar
Örneği Göster
Hit: 98
Kopyala
Tavsiye
php ile dosya upload
<?php $dosya_dizin = "/inetpub/wwwroot/"; $dosya_url = "http://server/"; if ( isset ( $dosya_gonder )) { print ("<b>Yol:</b> $dosya_gonder<br>\n"); print ("<b>Ad?:</b> $dosya_gonder_name<br>\n"); print ("<b>Boyut:</b> $dosya_gonder_size<br>\n"); print ("<b>Tür:</b> $dosya_gonder_type<br>\n"); copy ( $dosya_gonder, "$dosya_dizin/$dosya_gonder_name" )or die ("Dosya kopyalanam?yor!"); if ( $dosya_gonder_type == "image/gif" ||$dosya_gonder_type == "image/pjpeg" ) { print ("<img src=\"$dosya_url/$dosya_gonder_name\"><p>\n\n"); } } ?> <FORM ENCTYPE="multipart/form-data" ACTION="<?php print $PHP_SELF?>" METHOD="POST"> <INPUT TYPE="hidden" NAME="MAX_FILE_SIZE" VALUE="951200"> <INPUT TYPE="file" NAME="dosya_gonder"><BR> <INPUT TYPE="SUBMIT" VALUE="Dosya Yolla!"> </FORM> </BODY> </HTML>
Detaylar
Örneği Göster
Hit: 29
Kopyala
Tavsiye
asp ile excel den verialmak
<% 'Deðeri sýfýr yaptýk ve geçici bellekte veri saklanmasýný önledik Response.Expires = 0 'Baglanti nesnesi oluþturduk Set DB = Server.CreateObject("ADODB.Connection") DB = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=deneme.xls;" 'Veritaban?m?z?n yerini belirttik Baglanti.Open DB 'Veritaban?m?z? açt?k Set rsEx = Server.CreateObject("ADODB.Recordset") strSQL = "Select * From tabloadi" rsEx.Open strSQL, Baglanti 'Verileri yazdýrýyoruz. Response.Write ("<table border=1><tr><td>") Response.Write rsEx.GetString (, 10, "</tr><td>", "</td></tr><tr><td>", NBSPACE) %>
Detaylar
Örneği Göster
Hit: 34
Kopyala
Tavsiye
asp ile kayıtları göstermek
<% Set baglanti=Server.CreateObject("ADODB.connection" ) baglanti.Open "driver={microsoft access driver (*.mdb)}; DBQ=" &Server.MapPath("veritabani_yolu" ) SQL="select * from tablo_ismi" Set kayitseti = baglanti.Execute(SQL) Do While not kayitseti.Eof %> <table>Alinacak Bilgiler</table> <% kayitseti.Movenext %> ' Bu kodu nereye koyarsaniz orada kayit listeleme biter ve diger kayda gelir... <% Loop %> <%kayitseti.Close %>
Detaylar
Örneği Göster
Hit: 26
Kopyala
Tavsiye
asp ile sql veritabanı
<% Baglanti1 ="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" "DRIVER=SQL Server;SERVER=ip adres;UID=sa;APP=Visual Basic;WSID=kullanici;DATABASE=dbadi;Network=DBMSSOCN;Address=ip adres,1433" "" Set Baglanti = Server.CreateObject("ADODB.Connection" ) Baglanti.Open (Baglanti1) Set rst = Server.CreateObject("ADODB.RecordSet" ) %>
Detaylar
Örneği Göster
Hit: 37
Kopyala
Tavsiye
asp ile sayaç
<% 'E?er Application("hit") bo? ise Application("hit") 'i s?f?ra e?itliyoruz If Application("hit") = "" Then Application("hit") = 0 End If 'Application("hit") sayisini 1 artt?r?yoruz Application("hit") = Application("hit") + 1 %> <%= Application("hit") %> Ziyaretçi..
Detaylar
Örneği Göster
Hit: 34
Kopyala
Tavsiye
asp ile ip öğrenmek
"<% Dim temp, ip temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If temp<>"" Then ip = temp Else ip = Request.ServerVariables("REMOTE_ADDR") End If Response.Write ip %>
Detaylar
Örneği Göster
Hit: 14
Kopyala
Tavsiye
asp ile word dosyasına yazmak
<%@ LANGUAGE="VBSCRIPT" %> <% Dim strWordDosyasi Set strWordDosyasi = CreateObject("Word.Document") strWordDosyasi.Application.Visible = True strWordDosyasi.content.Font.Bold = True strWordDosyasi.content.Font.Italic = True strWordDosyasi.content.Font.Underline = True strWordDosyasi.content.Font.Name = "Comic Sans MS" strWordDosyasi.content.Font.Size = 25 strWordDosyasi.content.insertAfter "HazirKod.com adan zye tum programlama dilleri" strWordDosyasi.content.InsertParagraphAfter strWordDosyasi.Words(1).Font.Size = 10 strWordDosyasi.Words(1).Font.ColorIndex = 1 strWordDosyasi.Words(2).Font.Size = 20 strWordDosyasi.Words(2).Font.ColorIndex = 2 strWordDosyasi.Words(3).Font.Size = 30 strWordDosyasi.Words(3).Font.ColorIndex = 3 strWordDosyasi.Words(4).Font.Size = 40 strWordDosyasi.Words(4).Font.ColorIndex = 4 strWordDosyasi.PrintOut Set strWordDosyasi = Nothing %>
Detaylar
Örneği Göster
Hit: 42
Kopyala
Tavsiye
asp ile son on 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 %>
Detaylar
Örneği Göster
Hit: 87
Kopyala
Tavsiye
asp ile rastgele sayı
<% Dim rastgelesayi Randomize rastgelesayi = RND %> <p align="center"><%=rastgelesayi%></p>
Detaylar
Örneği Göster
Hit: 54
Kopyala
Tavsiye
Önceki
1-
2-
3-
4-
5-
6-
7-
8-
9-
10-
[11]
12-
13-
14-
15-
16-
17-
18-
19-
Sonraki
3
net
buu
