elma script oyun sciprti vvarez bu arkadaşlar!!
default.asp
<html>
<!-- #include file="baglan.asp" -->
<!-- #include file="Repl/track.asp" -->
<!-- #include file="Repl/track2.asp" -->
<%
sql="select tema,keyw,title from siteayar"
set site=bag.execute(sql)
sql2="select google1,google3 from google"
set ggl=bag.execute(sql2)
%><head>
<%
sql75="select sitemail,keyw,title from siteayar"
set str=bag.execute(sql75)
%>
<title><%=str("title")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta name="abstract" content="Flash Oyun">
<META NAME="description" CONTENT="Flash Oyun">
<meta name="author" content="Elma Script">
<meta name="classification" content="Flash Oyun">
<meta name="distribution" content="Global">
<meta name="content-language" content="tr">
<meta name="rating" content="All">
<meta name="robots" content="index, follow, imageindex, imageclick, archive, all">
<meta name="revisit-after" content="7 days">
<meta http-equiv="reply-to" content="<%=str("sitemail")%>">
<META name="keywords" content="<%=str("keyw")%>">
<%
str.close
set str=nothing
%>
<SCRIPT LANGUAGE="JavaScript">
function popUp2(URL) {
day = new Date();
id = day.getTime();
eval("page" + id + " = window.open(URL, '" + id + "', 'toolbar=0,scrollbars=1,location=0,statusbar=0,menubar=0,resizable=0,width=400,height=90');");
}
</script>
</head>
<body bgcolor="#000000">
<div align="center">
<table bgcolor="#FFFFFF" border="0" align="center" width="800" height="826" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#000000" height="826" width="122" rowspan="5">
<img border="0" src="templates/<%=site("tema")%>/left_img.jpg" width="60" height="838"></td>
<td height="160" width="845" colspan="3">
<table cellpadding="0" cellspacing="0" width="849">
<tr>
<td height="125">
<table cellpadding="0" cellspacing="0" width="848" background="templates/<%=site("tema")%>/banner.jpg" id="table3">
<tr>
<td height="125" width="253" rowspan="2">
<img border="0" src="templates/<%=site("tema")%>/logo.jpg" width="250" height="125"></td>
<td height="100" width="595" colspan="5">
<table cellpadding="0" cellspacing="0" width="570" id="table4">
<tr>
<td height="63" width="89">
</td>
<td height="63" width="468">
<%=ggl("google3")%></td>
<td height="63" width="13">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" width="322">
</td>
<td height="25" width="75">
<a href="default.asp">
<img border="0" src="templates/<%=site("tema")%>/blank.gif" width="72" height="25"></a></td>
<td height="25" width="75">
<a href="hakkimizda">
<img border="0" src="templates/<%=site("tema")%>/blank.gif" width="73" height="25"></a></td>
<td height="25" width="53">
<a href="reklam">
<img border="0" src="templates/<%=site("tema")%>/blank.gif" width="50" height="25"></a></td>
<td height="25" width="70">
<a href="iletisim">
<img border="0" src="templates/<%=site("tema")%>/blank.gif" width="70" height="25"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="35">
<table cellpadding="0" cellspacing="0" width="847" background="templates/<%=site("tema")%>/in_field.jpg" id="table2">
<tr>
<%if not session("girisor")="girisok" then%>
<form action="default.asp?id=890" method="post">
<td height="32" width="273">
<font face="Verdana"><span style="font-size: 7pt">
Kullanıcı Adı : <span style="font-size: 8pt">
<input type="text" name="kadi" size="10" style="color: #C171A2; border: 1px solid #CCCCCC; background-color: #FFFFFF; font-size:8pt; font-family:Tahoma"></span>
Parola <span style="font-size: 8pt">:
<input type="password" name="sifre" size="7" style="color: #C171A2; border: 1px solid #CCCCCC; background-color: #FFFFFF; font-size:8pt; font-family:Tahoma"></span></span></font></td>
<td height="32" width="346">
<input type="submit" value="Giris" name="B5" style="color: #FFFFFF; font-family: Verdana; font-size: 7pt; border: 1px solid #FFFFFF; background-color: #CC3366">
<a href="uyeol" style="color: #FFFFFF; font-family: Verdana; font-size: 7pt; border: 1px solid #FFFFFF; background-color: #CC3366; height:15px; text-decoration:none;">Üye Ol</a>
<font face="Verdana" style="font-size: 7pt">
</font>
<a href="javascript:popUp2('unuttum.asp')" style="color:#666666; text-decoration:none; ">
<font face="Verdana"><span style="font-size: 7pt">
Şifremi Unuttum ?</span></font></a></td></form>
<%else%>
<td><a href="sepet" style="text-decoration:none;"><font size="2" color="#666666"> I Oyun Sepetim <img src="images/checkout3-grey.gif" border="0" /></font></a>
<a href="bilgilerim" style="text-decoration:none;"><font size="2" color="#666666"> I Bilgilerim I</font></a> <a href="cikis" style="text-decoration:none;"><font size="2" color="#666666">Çıkış I</font></a>
</td>
<%end if%>
<form action="default.asp?id=889" method="post">
<td height="32" width="184">
<font face="Verdana"> <span style="font-size: 8pt">
<input name="klm" type="text" size="32" style="color: #C171A2; border: 1px solid #CCCCCC; background-color: #FFFFFF; font-size:8pt; font-family:Tahoma"></span></font></td>
<td height="32" width="44">
<button type="submit" style="width:26px; height:26px; border:0px;"><img border="0" src="templates/<%=site("tema")%>/but6.jpg" width="26" height="26"></button></td></form>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td bgcolor="#000000" height="826" width="131" rowspan="5">
<img border="0" src="templates/<%=site("tema")%>/right_img.jpg" width="60" height="836"></td>
</tr>
<tr>
<td valign="top" height="652" width="192">
<table cellpadding="0" cellspacing="0" width="194" height="660">
<tr>
<td height="208" width="194">
<table cellpadding="0" cellspacing="0" width="194" height="208">
<tr>
<td height="45">
<img border="0" src="templates/<%=site("tema")%>/t1.jpg" width="192" height="45"></td>
</tr>
<%
sql="select * from kategoriler"
set rs=bag.execute(sql)
do while not rs.eof
%>
<tr>
<td height="18" width="192" background="images/bg1.gif">
<img border="0" src="templates/<%=site("tema")%>/m1.gif" width="26" height="15">
<a href="kategoriler/<%=rs("id")%>/<%=temizlek(rs("kategori"))%>.htm" style="text-decoration:none;">
<font face="Arial Unicode MS" style="font-size: 8pt; " color="#A13F83"><%=rs("kategori")%></font></a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr>
<td height="19">
<img border="0" src="templates/<%=site("tema")%>/t2.jpg" width="192" height="19"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="19" width="194">
</td>
</tr>
<tr>
<td height="219" width="194">
<table cellpadding="0" cellspacing="0" width="194" height="207">
<tr>
<td height="29">
<img border="0" src="templates/<%=site("tema")%>/t6.jpg" width="192" height="29"></td>
</tr>
<tr>
<%
sql10="select soru,id from sorular"
set rs10=bag.execute(sql10)
%>
<td height="35" style="padding-left: 8px" background="templates/<%=site("tema")%>/bg5.gif">
<font face="Verdana"><span style="font-size: 7pt"><%=rs10("soru")%></span></font></td>
</tr>
<form method="post" action="default.asp?id=888">
<tr>
<td height="114" style="padding-left: 8px" background="templates/<%=site("tema")%>/bg5.gif">
<%
if rs10.eof then%>
<%
else
enid=rs10("id")
sql11="select * from cevaplar where anketid=" & enid
set rs11=bag.execute(sql11)
do while not rs11.eof
%>
<font color="#A13F83" face="Verdana"><span style="font-size: 7pt">
<input type="radio" name="cevap" id="radio2" value="<%=rs11("id")%>">
</span></font>
<font color="#A13F83">
<span class="style3"><span style="font-size: 7pt"><%=rs11("cevap")%><br>
</span></span></font>
<%
rs11.movenext
loop
rs11.close
set rs11=nothing
end if
rs10.close
set rs10=nothing
%>
</td>
</tr>
<tr>
<td height="20" background="images/bg5.gif" style="padding-left: 8px">
<input type="submit" value="Gönder" name="B3" style="color: #FFFFFF; font-family: Verdana; font-size: 7pt; border: 1px solid #FFFFFF; background-color: #CC3366">
</td>
</tr>
</form>
<tr>
<td height="9">
<img border="0" src="templates/<%=site("tema")%>/t7.gif" width="192" height="9"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top" width="194">
<table cellpadding="5" cellspacing="0" width="192" id="table5">
<tr>
<td height="50" width="192" colspan="3">
<img border="0" src="templates/<%=site("tema")%>/t8.jpg" width="192" height="30"></td>
</tr>
<tr><td style="color:#666666; font-size:12px; font:Arial;">
<%
sql13="select arama from aramalar order by id desc limit 30"
set rs13=bag.execute(sql13)
do while not rs13.eof
%>
<%=rs13("arama")%>, <%rs13.movenext
loop
rs13.close
set rs13=nothing%>
</td></tr>
</table>
</td>
</tr>
</table>
</td>
<td height="652" width="400" valign="top">
<%
id=temizle(request.QueryString("id"))
if id="" then
%>
<table cellpadding="0" cellspacing="0" width="360" height="659">
<tr>
<td height="201" valign="top">
<%
sql2="select * from oyunlar where haftaid=" & 1
set rs2=bag.execute(sql2)
if rs2.eof then
%>
<table><tr><td></td></tr></table>
<%
else
%>
<table cellpadding="0" cellspacing="0" width="420" height="201">
<tr>
<td height="201" width="435" rowspan="10" background="<%=rs2("haftaresim")%>">
<table cellpadding="0" cellspacing="0" width="259" height="177" id="table8">
<tr>
<td height="177" width="13" rowspan="5">
</td>
<td height="36" width="246">
</td>
</tr>
<tr>
<td height="16" width="246">
<font face="Arial">
<span style="font-size: 8pt; font-weight:700">Oyun Ady : </span></font>
<font face="Tahoma" color="#A13F83">
<span style="font-size: 7pt; font-weight: 700"> <%=rs2("oyunadi")%></span></font></td>
</tr>
<tr>
<td height="94" width="246">
<font class="content" style="font-size: 8pt" face="Verdana">
<%=rs2("aciklama")%></font><font class="content"><b><br>
</b><font face="Tahoma" color="#A13F83">
<span style="font-size: 8pt">Oyunun yüklenme süresi 1-3
dakika olabilir lütfen bekleyiniz. </span></font></font></td>
</tr>
<tr>
<td height="12" width="246">
<p align="right"><font face="Verdana" color="#333333">
<a href="oyun-oyna/<%=rs2("id")%>/<%=temizlek(rs2("oyunadi"))%>.htm" style="text-decoration:none;"><span style="font-size: 7pt; font-weight: 700">Tıkla..Oyuna
Başla! </span></a></font></td>
</tr>
<%
rs2.close
set rs2=nothing
%>
<tr>
<td height="19" width="246">
</td>
</tr>
</table>
</td>
</tr>
</table>
<%end if%> </td>
</tr>
<tr>
<td height="19">
</td>
</tr>
<tr>
<td height="439">
<table cellpadding="0" cellspacing="0" width="360" height="431">
<tr>
<td height="29">
<img border="0" src="templates/<%=site("tema")%>/t5.jpg" width="420" height="29"></td>
</tr>
<tr>
<td height="402">
<div align="center">
<table cellpadding="0" cellspacing="0" width="412" height="387" id="table9">
<tr><td valign="top">
<table><tr>
<%
sql5="select kid,oyunadi,id,onizleme from oyunlar order by id desc limit 12"
set rs5=bag.execute(sql5)
y=0
if rs5.eof then
%>
<td></td>
<%
else
do while not rs5.eof y=y+1
did=rs5("kid")
set rs6= bag.execute("select id,kategori from kategoriler where id=" & did)
%>
<td valign="top">
<table>
<tr>
<td height="75" width="106">
<a href="oyun-oyna/<%=rs5("id")%>/<%=temizlek(rs5("oyunadi"))%>.htm" style="text-decoration:none;"><img border="0" src="<%=rs5("onizleme")%>" width="93" height="66"></a></td>
</tr>
<tr>
<td height="15" width="106">
<font face="Verdana" style="font-size: 7pt" color="#666666">
Kategori : <%=rs6("kategori")%></font></td>
</tr>
<tr>
<td height="16" width="106">
<a href="oyun-oyna/<%=rs5("id")%>/<%=temizlek(rs5("oyunadi"))%>.htm" style="text-decoration:none;"><font face="Tahoma" color="#A13F83">
<span style="font-size: 8pt"><%=rs5("oyunadi")%></span></font></a></td>
</tr></table>
</td>
<%if y=4 then%>
</tr><tr><%y=0
else
end if
rs5.movenext
loop
%></tr></table>
</td><%end if%></tr>
<tr>
<td align="center" colspan="4" height="19" width="106">
<img border="0" src="templates/<%=site("tema")%>/line.gif" width="400" height="19"></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%elseif id="888" then%>
<table width="360" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td bgcolor="#CC0000"><font size="3" color="#ffffff"><b>Anket Sonuçları</b></font></td></tr>
<% if not session("oyla")="oyla" then%>
<tr><td colspan="3">
<br><br>
Oyunuz Kaydedilmiştir. Oy kullandığınız için teşekkür ederiz.<br><br></td></tr>
<%
ced=temizle(request.Form("cevap"))
sql18="select oy,id from cevaplar where id=" & ced
set rs18=bag.execute(sql18)
sql19="update cevaplar set oy='"&rs18("oy")+1&"' where id=" &ced
bag.execute(sql19)
else%>
<tr><td colspan="3"> <br><br><font color="red">Daha önce oy kullandınız!!..</font> <br><br></td></tr>
<%
end if
set ank=server.CreateObject("adodb.recordset")
sql="select * from sorular order by id desc"
ank.open sql,bag,1,3
%>
<tr> <td width="336">
<font face="Arial" size="1"><b> <%=ank("soru")%>
</b></font>
</tr></table>
<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="360" height="0">
<%
cevid=ank("id")
set cvb=bag.execute("select * from cevaplar where anketid=" & cevid)
do while not cvb.eof x=x+cvb("oy")
%>
<tr>
<td width="109" height="0">
<p align="left"><font face="Arial" size="1"><%=cvb("oy")%> <b><%=cvb("cevap")%></font></td><td width="144">
<table width="<%=cvb("oy")%>" bgcolor="#000099"><tr><td></td></tr></table>
</td>
</tr>
<%
cvb.movenext
loop%>
<tr>
<td colspan="2" height="0">
<br>
<br><br>
<%cvb.close
set cvb = nothing
session("oyla")="oyla"
%></td></tr> </form>
</table>
<%elseif id="889" then%>
<table><tr><td width="439">
<%
KayitSayisi = 20
If Request.QueryString("s") <> "" Then
Sayfa = CInt(Request.QueryString("s"))
Else
sayfa=1
end if
arna=temizle(request.form("klm"))
if arna="" then
arna=temizle(request.QueryString("klm"))
Else
end if
set arma =bag.execute("select * from oyunlar where oyunadi like '%"&arna&"%' order by id desc limit 0"& (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi)
%>
<table width="360" align="center" cellpadding="0" cellspacing="0"><tr><td bgcolor="#CC0000"><font size="3" color="#ffffff"><b>Arama Sonuçları</b></font></td></tr>
<%if arma.eof then%>
<tr><td>
<%
response.Write("sonuç bulunamadı")
else
set pers =bag.execute("select count(id) from oyunlar where oyunadi like '%"&arna&"%'")
TopKayit = pers(0)
%></td></tr>
<%do while not arma.eof%>
<tr><td height="20"><a href="oyun-oyna/<%=arma("id")%>/<%=temizlek(arma("oyunadi"))%>.htm" style=" color:#999999; font-size:12px; text-decoration:none;"><%=arma("oyunadi")%></a></td></tr>
<%arma.movenext
loop%>
</table>
<table align="right">
<tr>
<td colspan="3" align="right">
<%
If cint(TopKayit) > cint(KayitSayisi) Then
SayfaSayisi = CInt(TopKayit) / cint(KayitSayisi)
If InStr(1,SayfaSayisi,",",1) > 0 Then SayfaSayisi = CInt(Left(SayfaSayisi,InStr(1,SayfaSayisi,",",1))) + 1
If SayfaSayisi > 1 Then
For i=1 To SayfaSayisi
response.Write "<a href=""default.asp?s=" & i & "&id="&889&"&klm="&arna&""" style="" color:#3399cc; font-size:12px;"">" & i & "</a> "
next
End If
End If
end if
arma.close
set arma=nothing
%>
</td>
</tr>
</table>
<%
sQL2 =" Select * from aramalar where arama='"& arna & "'"
set kontrol=bag.execute(sql2)
if not kontrol.eof then
tivix=kontrol("id")
sql46="select * from aramalar where id=" & tivix
set rs46=bag.execute(sql46)
sql45="update aramalar set sayi='"&rs46("sayi")+1&"' where id=" & tivix
bag.execute(sql45)
rs46.close
set rs46=nothing
else
sql61="insert into aramalar (arama,sayi) values ('"&arna&"',1)"
bag.execute(sql61)
end if
%>
</td></tr></table>
<%
elseif id="890" then
kadi = temizle(request.Form("kadi"))
sifre = temizle(request.Form("sifre"))
if kadi="" or sifre="" then
response.Write "<script>alert('Lütfen doldurulması gereken alanları doldurunuz..!')</script>"
Response.Write "<META HTTP-EQUIV=""refresh"" CONTENT=""0;URL= "&request.ServerVariables("HTTP_REFERER")&""">"
response.end
else
end if
sql = "Select * From uyeler where kadi= '"& kadi &"' and sifre = '" & sifre & "'"
set kont = Bag.execute(sql)
if kont.eof then
response.Write "<script>alert('Kullanıcı adı veya şifre hatalı..!')</script>"
Response.Write "<META HTTP-EQUIV=""refresh"" CONTENT=""0;URL= default.asp"">"
response.end
else
sql = "Select * From uyeler where kadi= '"& kadi &"' and onay=1"
set rsa = Bag.execute(sql)
if rsa.eof then
response.Write "<script>alert('Aktif edilmemiş üyelik..!')</script>"
Response.Write "<META HTTP-EQUIV=""refresh"" CONTENT=""0;URL= default.asp"">"
response.end
else
end if
session("girisor") = "girisok"
session("id") = kont("id")
session("kadi") = kont("kadi")
end if
kont.close
set kont= nothing
response.Redirect request.ServerVariables("HTTP_REFERER")
end if%>
</td>
<td height="652" width="222" valign="top">
<table cellpadding="0" cellspacing="0" width="222" height="651" id="table1">
<tr>
<td height="207" width="222" valign="top">
<table cellpadding="0" cellspacing="0" width="221" id="table6">
<tr>
<td height="45" width="221" colspan="2">
<img border="0" src="templates/<%=site("tema")%>/t3.jpg" width="225" height="45"></td>
</tr>
<%
sql3="select * from oyunlar order by pop desc limit 5"
set rs3=bag.execute(sql3)
x=0
if rs3.eof then%>
<tr><td></td></tr>
<%
else
do while not rs3.eof x=x+1
pid=rs3("kid")
sql4="select kategori from kategoriler where id=" & pid
set rs4=bag.execute(sql4)
%>
<tr>
<td height="30" background="templates/<%=site("tema")%>/bg2.gif" style="padding-left: 5px; vertical-align:middle;" width="168">
<img border="0" src="templates/<%=site("tema")%>/but<%=x%>.gif" width="17" height="17">
<a href="oyun-oyna/<%=rs3("id")%>/<%=temizlek(rs3("oyunadi"))%>.htm" style="text-decoration:none;"><font face="Verdana"><span style="font-size: 7pt"><%=rs3("oyunadi")%></span></font></a></td>
<td height="30" background="images/bg3.gif" width="52">
<font face="Verdana"><span style="font-size: 7pt"><%=rs4("kategori")%></span></font></td>
</tr>
<%
rs3.movenext
loop
rs4.close
set rs4=nothing
end if
rs3.close
set rs3=nothing
%>
<tr>
<td height="14" width="221" colspan="2">
<img border="0" src="templates/<%=site("tema")%>/t4.jpg" width="225" height="14"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="19" width="222">
</td>
</tr>
<tr>
<td height="213" width="222" valign="top">
<table cellpadding="0" cellspacing="0" width="225" height="213">
<tr>
<td height="29">
<img border="0" src="templates/<%=site("tema")%>/t9.jpg" width="218" height="29"></td>
</tr>
<tr><td background="images/bg6.jpg">
<marquee onMouseOver="this.scrollAmount=0" onMouseOut="this.scrollAmount=1" direction="up" loop="-1" scrollamount="1">
<%
SQL8="SELECT * from haberler order by id desc"
set rs8=bag.execute(sql8)
do while not rs8.eof
%>
<table cellpadding="0" cellspacing="0">
<tr>
<td height="28" style="padding-left: 6px" background="images/bg6.jpg">
<table><tr><td>
<font face="Arial" style="font-size: 9pt; font-weight: 700" color="#CC3366">
<%=rs8("tarih")%></font></td></tr></table></td>
</tr>
<tr>
<td height="65" style="padding-left: 6px" background="images/bg6.jpg">
<table cellpadding="5" cellspacing="5" ><tr><td>
<font face="Verdana" style="font-size: 7pt; font-weight: 700" color="#A13F83">
<%=rs8("baslik")%></font>
<font face="Verdana" style="font-size: 7pt" color="#666666"><br>
<br>
<%=rs8("haber")%></font></td></tr></table></td>
</tr>
</table>
<%
rs8.movenext
loop
rs8.close
set rs8= nothing
%></marquee>
</td></tr>
<tr>
<td height="14">
<img border="0" src="templates/<%=site("tema")%>/t10.jpg" width="225" height="14"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="210" width="222">
<table cellpadding="0" cellspacing="0" width="225" id="table7">
<tr>
<td height="180">
<a href="<%=request.ServerVariables("HTTP_REFERER")%>"> <img border="0" src="templates/<%=site("tema")%>/mbanner2.jpg" onClick="alert('Oyunlardan herhangi birisini sepetinize ekleyebilmek için. Oyunu oynadığınız sayfada, oyunun üzerinde bulunan sepet iconuna basmanız yeterli olacaktır.')" width="225" height="180"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="19" width="192" bgcolor="#010101">
</td>
<td height="19" width="435" bgcolor="#010101">
</td>
<td height="19" width="222" bgcolor="#010101">
<p align="right">
<b><font color="#FFFFFF" size="2">Design Elmascript v2</font></b></td>
</tr>
</table>
<%
site.close
set site=nothing
bag.close
set bag=nothing
%>
</div>
</body>
</html>