Dil Seçimi PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
<script>
/*
By Richard Morris (Email:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.uk)
Featured on Website Abstraction (http://wsabstract.com)
For this and over 400+ free scripts, visit http://wsabstract.com
*/
var type=navigator.appName
if (type=="Netscape")
var lang = navigator.language
else
var lang = navigator.userLanguage
//cut down to first 2 chars of country code
var lang = lang.substr(0,2)
// Ingilizce
if (lang == "en")
window.location.replace('ingilizce.html')
// Almanca
else if (lang == "de")
window.location.replace('turkce.html')
// Turkce
else if (lang == "tr")
window.location.replace('turkce.html')
// eger yazdiklarinizdan degilse nereye yonlenecek
else
window.location.replace('turk.html')
</script>
<html>
Otomatik yönlendirme PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
<?php @ob_start(); @srand((double) microtime() * 1000000); // Şans faktörü düzeltici $link= array(); $link[]="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">?>
Daktilo yazı PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
<script language="JavaScript1.2">
var it=0
function initialize(){
mytext=typing.innerText
var myheight=typing.offsetHeight
typing.innerText=''
document.all.typing.style.height=myheight
document.all.typing.style.visibility="visible"
typeit()
}
function typeit(){
typing.insertAdjacentText("beforeEnd",mytext.charA t(it))
if (it<mytext.length-1){
it++
setTimeout("typeit()",100)
}
else
return
}
if (document.all)
document.body.onload=initialize
</script>
<span id="typing" style="visibility:hidden" align="left">YAZACAKLARINIZI BURAYA YAZIN...</span>
Arama motoru PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
//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>
Durum çubuğuna kayan yazı PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
<meta http-equiv="Content-Type"
content="text/html; charset=windows-1254">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<title>Metallica Team Durum Çubuğunda Kayan Yazı</title>
</head>
<body bgcolor="#000000" text="#FFFFF0" link="#FFFFFF"
vlink="#FFFFF0" alink="#333333"
onload="tmx1a=window.setTimeout('scroll_status(100 )',50);">
<script>
function stoperror(){
return true
}
window.onerror=stoperror
</script>
<p align="center"><font face="Verdana" size="2">Durum Çubuğunda Kayan Yazı</font><br>
</p>
<p align="center"><br>
<br>
<br>
<script>
function scroll_status (sval)
{
var msg = "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">