MEHMET DANİSMAN - HTLM KODLARI 7

JAVASCRİPT İLE ŞİFRELİ KORUMA KODU

<html> <head> <title>JavaScript ile Şifreli koruma</title> </head> <body onLoad_fckprotectedatt=" onLoad="javascript:Sifresorgusu(prompt('Lütfen '#351;ifreyi girin!', ''));"">

ZİYARETÇİNİN ONLİNE KALMA SÜRESİ KODU

<html> <head> <script language="JavaScript">  </script> <title>Ziyaretçinin Online Süresini göstermek</title> </head> </html> <body onLoad_fckprotectedatt=" onLoad="Surehesaplama();""> <form name="Onlinesure"> <input name="OnlinesureDegeri" size="3" type="text"> Saniyeden beri bu sayfadasınız. </form> </body> </html>

ZİYARET EDİLEN SAYFALARI BELİRTME KODU MD

<a href="javascript:alert('Siz '+self.history.length+' adet Sayfayı ziyaret ettiniz.')" _fcksavedurl="javascript:alert('Siz '+self.history.length+' adet Sayfayı ziyaret ettiniz.')"> Ziyaret edilen sayfa sayısı</a>

VİDEO EKLEMEK MEDİA PLAYER KODU MD

UFAK ŞİRİN MP3 MÜZİK PLAYER KODU

KENDİN ŞARKINI YERLEŞTİR MP3 SİTENDE UFACIK ÇALSIN

ASP ZİYARETÇİ SAYACI KODU MD

Response.Write(Counter) Public Function Counter() Dim rs, strPfadDB strPfadDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath("dbCounter.mdb") & _ ";Mode=ReadWrite;Persist Security Info=False" set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select tblCounter.Counter from tblCounter", strPfadDB, 1, 2 rs.Update rs.Fields("Counter").Value = rs.Fields("Counter").Value + 1 Counter = rs.Fields("Counter").Value rs.UpdateBatch rs.Close set rs = nothing End Function

Gif Dünyası

html kodları

kod üreticiler

Gif Dünyası