|
24-09-2005, 00:09
|
#1 |
Webmasterler için benim hazırladığım kodlar
SİTEYE MÜZİK EKLEME HTML <p align="center"><embed width="300" height="63" src="MP3 UN ADRESİNİ YAZACAKSIN".align="middle"></p> KAYAN YAZI HTML <marquee class="kyazi" onmouseover="this.stop()" onmouseout="this.start()">!!!İSTEDİGİNİ YAZABİLİRSİN !!!</marquee>" SAYFALAMA YAPMAK ASP <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> HOŞGELDİN MESAJI JAVA SCRİPT <script language="javascript"> <!-- alert("---Sitenizin Adı--- Hoşgeldiniz...") window.status="---Sitenizin Adı--- Sayfama Hoşgeldiniz..." --> </script> SÜPER SAAT JAVA SCRİPT <BODY onLoad="loadclock()" topmargin="6" leftmargin="0" bgcolor="#000080" text="#FFFF00" link="#FFFFFF" vlink="#C0C0C0" alink="#FF0000"> <script> <!-- function show2(){ var Digital=new Date() var hours=Digital.getHours() var minutes=Digital.getMinutes() var seconds=Digital.getSeconds() var dn="AM" if (hours>12){ dn="PM" hours=hours-12 } if (hours==0) hours=12 if (minutes<=9) minutes="0"+minutes if (seconds<=9) seconds="0"+seconds var ctime="<b><font face='Verdana' color='red'>"+hours+":"+minutes+":"+seconds+" "+dn+"</font></b>" if (!document.all) document.write(ctime) else tick2.innerHTML=ctime } function loadclock(){ if (document.all) setInterval("show2()",1000) } if (!document.all) show2() //--> </script> <!-- Bu satirinn konumu, saatin de konumunu belirler --> <p align="center"><span id=tick2></span></p> HAVA DURUMU (İLLERE GÖRE) ASP <% 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> ARAMA MOTORU ASP //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>   <input type=submit value=" Ara "> </form> </center> </body> </html> ARAMA MOTORLARI JAVA SCRİPT <SCRIPT> <!-- var MAX_ENGINES = 30; var SNARK_STRING = "hunting+the+snark"; function MakeArray(n) {for (var i = 1; i <= n; i++) {this[i] = 0;}this.maxlen = n;this.len = 0;return this;} var engs = new MakeArray(MAX_ENGINES); function find_substring(needle, haystack){var i, needlen = needle.length, haylen = haystack.length; for (i=0; i<=haylen-needlen; i++){if (needle == haystack.substring(i,i+needlen))return i;}return false;} function Engine(name, opts, home, search){var snark = find_substring(SNARK_STRING, search); this.name = name; this.opts = opts; this.home = home; this.pre_snark = search.substring(0,snark); this.post_snark= search.substring(snark+SNARK_STRING.length, search.length);} function Add(name, opts, home, search) {engs.len++;if (engs.len <= engs.maxlen) {engs[engs.len] = new Engine(name, opts, home, search)} else {alert("Better increase MAX_ENGINES: " + engs.len + ">" + engs.maxlen)}} // ADD YOUR OWN SEARCH ENGINES BELOW. (See Linkleri görebilmek için---> üye olmanız gerekiyor Buraya tıklayarak üye olabilirsiz <--- ) Add("Netnews: AltaVista", "", "http://altavista.digital.com/", "http://altavista.digital.com/cgi-bin/query?pg=q&what=news&fmt=d&q=hunting+the+snark" ); Add("Shareware/Windows", "", "http://vsl.cnet.com/", "http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=MS-Windows%28all%29&search=hunting+the+snark&logop=an d&and=&orfile=++&hits=200" ); Add("Shareware/Unix", "", "http://vsl.cnet.com/", "http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=UNIX&search=hunting+the+snark&logop= and&and=&orfile=++&hits=200" ); Add("the Web: AltaVista", "SELECTED", "http://altavista.digital.com/", "http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunting+the+snark" ); Add("the Web: Lycos", "", "http://www.lycos.com/", "http://twelve.srv.lycos.com/cgi-bin/pursuit?query=hunting+the+snark" ); Add("the Web: Yahoo!", "", "http://www.yahoo.com/", "http://search.yahoo.com/bin/search?p=hunting+the+snark" ); Add("Weather (City, ST)", "", "http://www.nnic.noaa.gov/cgi-bin/page?pg=netcast", "http://www.nnic.noaa.gov/cgi-bin/netcast.do-it?state=hunting+the+snark&area=Local+Forecast&htm l=yes&match=strong"); // ADD YOUR OWN SEARCH ENGINES ABOVE. (See Linkleri görebilmek için---> üye olmanız gerekiyor Buraya tıklayarak üye olabilirsiz <--- ) function HandleForm(form) {form.submit(); // This fixes a mysterious Netscape bug. Without this line, // you can't use <enter> to start the search the first time. var i, oldq=form.query.value, newq=""; for (i=0; i<oldq.length; i++) { // compress [ ]+ into \+ var thischar = oldq.charAt(i); if (thischar != ' ') newq += thischar; else if (lastchar != ' ') newq += '+'; lastchar = thischar;} var eng = engs[1+form.service.selectedIndex]; location.href = newq ? eng.pre_snark + newq + eng.post_snark : eng.home;} function DisplayForm() { document.writeln('<CENTER><FORM OnSubmit="HandleForm(this); return false">'); document.writeln('<SELECT name="service">'); for (i=1; i <= engs.len; i++) { document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name);} document.writeln('</SELECT> <INPUT size=26 name="query">'); document.writeln('<input type=submit value=" Ara ">'); document.writeln('</FORM> </CENTER>');} DisplayForm(); // done hiding from old browsers --> </SCRIPT> SİTEYE MAİL LİSTESİ HTML ************************************************** ** ** T R - M a i l l i s t v1 ** ** ACROphobia :: Linkleri görebilmek için---> üye olmanız gerekiyor Buraya tıklayarak üye olabilirsiz <--- ** ** http:// Linkleri görebilmek için---> üye olmanız gerekiyor Buraya tıklayarak üye olabilirsiz <--- ** ************************************************** ** Merhaba işte bir script daha karşınızda TR-maillist; Scriptte; <form method="POST" action="ekle.asp" name=""> <table width="51%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="42%" height="32"> <div align="right"><font size="2">E-Mail Listemize Katılın:</font></div> </td> <td width="58%" height="32"> <input type="text" name="EMail" size="20"> <input type="submit" value="Ekle" name="B1"> </td> </tr> </table> </form> MİDİ ÇALICI HTML <!-- Start Of Midi Master Script --> <!-- MIDI Player that allows you to choose songs/tracks --> <!-- Instructions: Just put this script anywhere on your webpage that you wish to have a user interface. <!-- --> <!-- --> <Script Language="JavaScript"> <!-- Hiding song = new Array() var x = 0 song[1] = "Cool Midi # 1" song[2] = "Cool Midi # 2" song[3] = "Cool Midi # 3" song[4] = "Cool Midi # 4" song[5] = "Cool Midi # 5" song[6] = "Cool Midi # 6" function prev(){ if (x>1) { x-- document.midi.typein.value=song [x] } } function next(){ var max= song.length-1 if (x<max) { x++ document.midi.typein.value=song [x] } } function go(){ if (x != 0){ location.href='song'+x+'.mid' } } function start(){ x=1 document.midi.typein.value=song [x] } function end(){ x=song.length-1 document.midi.typein.value=song [x] } function cls(){ document.midi.typein.value="Select Midi Song" } // Done Hiding --> </Script> <BODY Bgcolor="#ffffff" onload="cls()"> <Center> <FORM Name="midi"> <INPUT NAME="typein" TYPE="text" SIZE="25" ALIGN=top><BR> <font size=3 face="Comic Sans Ms"> <INPUT TYPE=Button Value="|<<" Align=left onclick="start()"> <INPUT TYPE=Button Value="<<" Align=left onclick="prev()"> <INPUT TYPE=Button Value="PLAY" Align=left onclick="go()"> <INPUT TYPE=Button Value=">>" Align=left onclick="next()"> <INPUT TYPE=Button Value=">>|" Align=left onclick="end()"> </FORM></font> </Center> </BODY> </HTML> <!-- End Of Midi Master Script --> </body> </html> EMEĞE SAYGI LÜTFEN TERAZİYİ UNUTMAYALIM.. 
|
|
|
     
|
| sasan65 : Sağdaki 5 Kişi Mesajınızdan Dolayı Size Teşekkür Etti |
deli_ugur (25-12-2005), Dogukan__ (12-07-2006), ferdi (12-01-2006), hasret14 (19-06-2007), sanal_casus (06-05-2006)
|
|
09-12-2005, 12:46
|
#2 |
PaylaŞimin İÇİn TeŞekkÜr Edİyorum ArkadaŞ SaĞol. |
|
|
|
|
|
25-12-2005, 18:56
|
#3 |
|
Cok güzel bi paylasımından dolayı tebrik ederim.(cümleyi bende anlamadım ama) tebrrikler 
|
|
|
|
|
|
02-02-2006, 14:43
|
#4 |
|
midi çalıcı da mp3 aderleri buraya mı song[1] = "Cool Midi # 1" song[2] = "Cool Midi # 2" song[3] = "Cool Midi # 3" song[4] = "Cool Midi # 4" song[5] = "Cool Midi # 5" song[6] = "Cool Midi # 6" |
|
|
|
|
|
15-02-2006, 14:35
|
#5 |
|
yaw eline saglık çok güzel ama ben bunları yapamadım nereye koyucaz bunları benim site php oldugu içinmi yapamadım acaba!!!! :s |
|
|
|
|
|
19-02-2006, 20:55
|
#6 |
|
eline saglık çok güzel |
|
|
|
|
|
22-02-2006, 22:04
|
#7 |
|
Arkadaşım eline emeğine sağlık süpersin.bu kodlar phpbb2 forum sitelerinde geçerlimi.seninle msn den de görüşmek isterim ernbaran@hotmail.com ben bi radyoda dj'lik yapıyorum bi yandanda okuyorum o yüzden pek katkıda bulunamıyorum.benimle irtibata geçersen sewinirim.kolaygelsin arkadaşlar... |
|
|
|
|
|
23-02-2006, 01:38
|
#8 |
|
ya bu mp3 ün adresi derken tam bi açıklasaydın ii olurdu |
|
|
|
|
|
25-04-2006, 00:26
|
#9 |
|
thanks |
|
|
|
|
|
01-07-2006, 18:29
|
#10 |
|
paylaşım için tşkler |
|
|
|
|
 |
| Tags: benim, hazirladigim, icin, kodlar, webmasterler |
| Bookmarks |
| Şu an bu konuyu görüntüleyen kullanıcı sayısı: 1 (0 üye ve 1 misafir) | |
| Konu Araçları | |
| Görünüm Modları | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Yanıtlar | Son Mesaj |
| Photoshop'ta Hazırladığım Wallpapers Çalışmaları | muratarik | Photoshop & Macromedia Flash | 0 | 12-11-2009 14:54 |
| kendi hazırladığım fake ufo videosu | sarabande | Sizin Videolarınız | 8 | 02-02-2008 22:30 |
| Cep telefonu için gizli kodlar...! | Dj$uBo | Duyurular & Haberler | 8 | 07-03-2007 12:45 |
Düzenli Mod
