<div id="center">
<script type=text/javascript>
setTimeout('gizle()',10000);
function gizle() {
var x=document.getElementById('reklam').style;
var y=document.getElementById('video').style;
if(x.display=='block') { x.display='none'; y.display='block'; }
else { x.display='block'; y.display='none'; }
}
</script>
<div id="reklam" style="display:block;height:350px;"><p align="center">
<a href="http://www.google.com" target="_blank" rel="nofollow">
<img src="http://www.google.com/banner.gif" border="0"></a><p/>
</div>
<div id="video" style="display:none;">video.asp aşağıda
video önü reklam hakkında yardım
2
●849
- 02-07-2008, 01:31:20Arkadaşlar asp video scriptinde herhangi bir videoya tıklayınca ilk olarak 10 saniyelik bir video önü banner çıkmasını 10 saniye sonra bannerin kalkmasını ve video nun oynamısını istiyorum bunu yapmak için video.asp ye aşağıdaki kodu ekledim ama bir sorun var banner gözüküyor ama 10 saniye sonra yok olup video oynamıyor bunu nasıl ayarlarım acaba herhalde video.asp de bazı değişimlerin olması lazım yardımcı olursanız sevinirim...
- 24-01-2009, 13:14:44Asp'den anlamam ama kodun eklenmiş hali su sekilde olmalı sanırım.
<!-- #include file="body.asp" --> <!-- #include file="clear.asp" --> <table cellSpacing=0 cellPadding=0 width=900 border=0 align=center> <tr><td align=center height=180><!-- #include file="top.asp" --></td></tr> <% metyus=request("metyus") if not metyus<>"" then response.redirect "default.asp" response.end end if if metyus="cat" then label=request("label") cid=clear(request.querystring("cid")) if IsNumeric(cid)=false then response.redirect "default.asp" response.end end if %> <tr><td align=center valign=top height=400> <table cellSpacing=0 cellPadding=0 width=98% border=0 align=center> <tr><td align=center valign=top > <table cellSpacing=0 cellPadding=0 width=96% border=0 align=center background="img/blok_bg.jpg" height="164"> <tr><td align=center height=27 bgcolor=6e8f00 colspan=3 background="img/bar.jpg"><font size=1 face=verdana><b><%=label%> Kategorisinde Bulunan Videolar</b></font> </td></tr> <tr><td align=center height=4 bgcolor=6e8f00 colspan=3 background="img/blok_down.jpg"></td></tr> <!-- #include file="db.asp" --> <% sql = "select * from video where cat_id="&cid&" order by tarih desc " rs.open sql, bag, 1, 3 shf = Request.QueryString("shf") if shf="" then shf=1 end if if rs.eof then else %> <tr> <% rs.pagesize = 42 rs.absolutepage = shf sayfa = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for n=n+1 %> <td height=100> <table cellSpacing=0 cellPadding=0 width=98% border=0 align=center height=75> <tr><td rowspan=3 width=100><a href="video.asp?metyus=view&vid=<%=rs("id")%>"><img src="<%=rs("img")%>" border=0 width=100 height=80></a></td> <td><font size=1 face=verdana color=ffffff><b> <a href="video.asp?metyus=view&vid=<%=rs("id")%>"><%=rs("baslik")%></a></b></font></td></tr> <tr><td> <font size=1 face=verdana color=ffffff>Ranks : <% if rs("puan")=0 then response.write "<img src=""img/stars/0.gif"">" else end if if rs("puan")>0 and rs("puan")<25 then response.write "<img src=""img/stars/1.gif"">" else end if if rs("puan")>=26 and rs("puan")<50 then response.write "<img src=""img/stars/2.gif"">" else end if if rs("puan")>=51 and rs("puan")<75 then response.write "<img src=""img/stars/3.gif"">" else end if if rs("puan")>=76 and rs("puan")<100 then response.write "<img src=""img/stars/4.gif"">" else end if if rs("puan")>=101 then response.write "<img src=""img/stars/5.gif"">" else end if %> </font> </td></tr> <tr><td><font size=1 face=verdana color=ffffff> Görüntülenme : <%=rs("izleme")%></font></td></tr> </table> </td> <% if n=2 then response.write "</tr><tr>" n=0 end if rs.movenext next %> <tr><td align=center height=2 bgcolor=6e8f00 colspan=3 background="img/Untitled-2.jpg"></td></tr> <tr><td height=31 background="img/bg_sbar.jpg" colspan=2> <font size=4 face=Tahoma color=ffffff> Sayfalar : <% kaysay = 14 saysay = sayfa / kaysay degsay = int(sayfa / kaysay) if saysay > degsay then saysay = degsay + 1 else saysay = degsay end if if request("page")<>"" then session("page") =request("page") linkpage =request("page") ik = (request("page") * kaysay) - (kaysay - 1) else session("page") ="1" linkpage ="1" ik = 1 end if backpage = session("page")-1 nextpage = session("page")+1 sy = int(ik) if backpage >= 1 then %> <a href="?page=<%=backpage%>&metyus=cat&cid=<%=cid%>&label=<%=label%>"> <img src="img/arrow1.gif" border=0 width="20" height="20"></a> <% end if for y=1 to kaysay if sy =< sayfa then %> <a href="?shf=<%=sy%>&page=<%=linkpage%>&metyus=cat&cid=<%=cid%>&label=<%=label%>"><%=sy%></a> <% end if sy = sy + 1 next if nextpage =< saysay then %> <a href="?page=<%=nextpage%>&metyus=cat&cid=<%=cid%>&label=<%=label%>"> <font color="#FFFFFF">Sonraki ></font></a> <% end if %> </td></tr> <% end if rs.close set rs=nothing bag.close set bag=nothing %> </table> <p style="margin-top: 0; margin-bottom: 0"></td> <td align=center width="20%" valign=top> <table cellSpacing=0 cellPadding=0 width=98% border=0 align=center height="290"> <tr><td align=center height=30 bgcolor=2f3a42><font size=1 face=verdana color=ffffff><b>Bu Kategoriden Rastgele Video</b></font></td></tr> <tr><td align=center bgcolor=61696f height="247" > <!--#include file="db.asp"--> <% Sorgu = "select * from video where cat_id="&cid&" order by id" Rs.Open Sorgu, bag, 1, 3 if rs.eof then else ToplamKayit = rs.RecordCount Randomize gidilecekKayit = Int((ToplamKayit * Rnd ) + 0) rs.Move(gidilecekKayit) %> <table cellSpacing=0 cellPadding=0 width=100% border=0 align=center> <tr><td><font size=1 face=verdana color=ffffff><b> <img src="img/menu_open.gif" border=0> <a href="video.asp?metyus=view&vid=<%=rs("id")%>"><%=rs("baslik")%></a></b></font></td></tr> <tr><td align=center> <div id="center"> <script type=text/javascript> setTimeout('gizle()',10000); function gizle() { var x=document.getElementById('reklam').style; var y=document.getElementById('video').style; if(x.display=='block') { x.display='none'; y.display='block'; } else { x.display='block'; y.display='none'; } } </script> <div id="reklam" style="display:block;height:350px;"><p align="center"> <a href="http://www.google.com" target="_blank" rel="nofollow"> <img src="http://www.google.com/banner.gif" border="0"></a><p/> </div> <div id="video" style="display:none;"> <object width="275" height="200"> <param name="movie" value="<%=rs("url")%>"></param><param name="wmode" value="transparent"></param> <embed src="<%=rs("url")%>" type="application/x-shockwave-flash" wmode="transparent" width="275" height="200"></embed></object> </td></tr> <tr><td align=center height=25> <font size=1 face=verdana color=ffffff>Ranks : <% if rs("puan")=0 then response.write "<img src=""img/stars/0.gif"">" else end if if rs("puan")>0 and rs("puan")<25 then response.write "<img src=""img/stars/1.gif"">" else end if if rs("puan")>=26 and rs("puan")<50 then response.write "<img src=""img/stars/2.gif"">" else end if if rs("puan")>=51 and rs("puan")<75 then response.write "<img src=""img/stars/3.gif"">" else end if if rs("puan")>=76 and rs("puan")<100 then response.write "<img src=""img/stars/4.gif"">" else end if if rs("puan")>=101 then response.write "<img src=""img/stars/5.gif"">" else end if %> Görüntülenme : <%=rs("izleme")%> </font></td></tr> </table> <% end if rs.close set rs=nothing bag.close set bag=nothing %> </td></tr> <tr><td align=center height=13> </td></tr> </table> <table cellSpacing=0 cellPadding=0 width=96% border=0 align=center> <tr><td align=center height=27 bgcolor=6e8f00 colspan=2 background="img/bar.jpg"><font size=1 face=verdana><b>Kategorideki Yeni Videolar</b></font></td></tr> <!-- #include file="db.asp" --> <% sql = "select top 16 * from video where cat_id="&cid&" order by tarih desc " rs.open sql, bag, 1, 3 if rs.eof then else %> <% do while not rs.eof %> <tr><td height=100> <table cellSpacing=0 cellPadding=0 width=100% border=0 align=center height=75> <tr><td rowspan=3 width=100><a href="video.asp?metyus=view&vid=<%=rs("id")%>"><img src="<%=rs("img")%>" border=0 width=100 height=80></a></td> <td><font size=1 face=verdana color=ffffff><b> <a href="video.asp?metyus=view&vid=<%=rs("id")%>"><%=rs("baslik")%></a></b></font></td></tr> <tr><td> <font size=1 face=verdana color=ffffff>Ranks : <% if rs("puan")=0 then response.write "<img src=""img/stars/0.gif"">" else end if if rs("puan")>0 and rs("puan")<25 then response.write "<img src=""img/stars/1.gif"">" else end if if rs("puan")>=26 and rs("puan")<50 then response.write "<img src=""img/stars/2.gif"">" else end if if rs("puan")>=51 and rs("puan")<75 then response.write "<img src=""img/stars/3.gif"">" else end if if rs("puan")>=76 and rs("puan")<100 then response.write "<img src=""img/stars/4.gif"">" else end if if rs("puan")>=101 then response.write "<img src=""img/stars/5.gif"">" else end if %> </font> </td></tr> <tr><td><font size=1 face=verdana color=ffffff> Görüntülenme : <%=rs("izleme")%></font></td></tr> </table> </td></tr> <% rs.movenext loop end if rs.close set rs=nothing bag.close set bag=nothing %> </table> </td> </tr> </table> </td></tr> <% end if if metyus="view" then vid=clear(request.querystring("vid")) if IsNumeric(vid)=false then response.redirect "default.asp" response.end end if %> <!--#include file="db.asp"--> <% Function Duzenle(Str) Str = Replace(Str, "siktir", "******", 1, -1, 1) Str = Replace(Str, "*****", "******", 1, -1, 1) Str = Replace(Str, "amcik", "******", 1, -1, 1) Str = Replace(Str, "*****", "******", 1, -1, 1) Str = Replace(Str, "******", "******", 1, -1, 1) Str = Replace(Str, "oruspu", "******", 1, -1, 1) Str = Replace(Str, "çocuğu", "******", 1, -1, 1) Str = Replace(Str, "kaltak", "******", 1, -1, 1) Str = Replace(Str, "şıllık", "******", 1, -1, 1) Str = Replace(Str, "fırlama", "******", 1, -1, 1) Str = Replace(Str, "fırlatma", "******", 1, -1, 1) Str = Replace(Str, "hassiktir", "*********", 1, -1, 1) Str = Replace(Str, "hasiktir", "********", 1, -1, 1) Str = Replace(Str, "www", "***", 1, -1, 1) Str = Replace(Str, "***", "***", 1, -1, 1) Str = Replace(Str, "amcig", "***", 1, -1, 1) Str = Replace(Str, "am", "***", 1, -1, 1) Str = Replace(Str, "anan", "***", 1, -1, 1) Str = Replace(Str, "sik", "***", 1, -1, 1) Str = Replace(Str, "com", "***", 1, -1, 1) Str = Replace(Str, "net", "***", 1, -1, 1) Str = Replace(Str, "org", "***", 1, -1, 1) Str = Replace(Str, "gen", "***", 1, -1, 1) Str = Replace(Str, "***", "***", 1, -1, 1) Str = Replace(Str, "*****", "*****", 1, -1, 1) Str = Replace(Str, "http://", "******", 1, -1, 1) Str = Replace(Str, "//", "**", 1, -1, 1) Str = Replace(Str, "<", "<", 1, -1, 1) Str = Replace(Str, ">", ">", 1, -1, 1) Str = Replace(Str, vbCrLf, "<br>", 1, -1, 1) Str = Replace(Str, " ", " ", 1, -1, 1) Str = Replace(Str, " ", " ", 1, -1, 1) Str = Replace(Str, " ", " ", 1, -1, 1) Str = Replace(Str, " ", " ", 1, -1, 1) Str = Replace(Str, " ", " ", 1, -1, 1) Str = Replace(Str, " ", " ", 1, -1, 1) Str = Replace(Str, " ", " ", 1, -1, 1) Str = Replace(Str, " ", " ", 1, -1, 1) Str = Replace(Str, ":)", "<img src=""yuzler/gul.gif"">", 1, -1, 1) Str = Replace(Str, ": )", "<img src=""yuzler/gul.gif"">", 1, -1, 1) Str = Replace(Str, ":D", "<img src=""yuzler/sirit.gif"">", 1, -1, 1) Str = Replace(Str, ": D", "<img src=""yuzler/sirit.gif"">", 1, -1, 1) Str = Replace(Str, ";)", "<img src=""yuzler/gozkirp.gif"">", 1, -1, 1) Str = Replace(Str, "; )", "<img src=""yuzler/gozkirp.gif"">", 1, -1, 1) Str = Replace(Str, ":P", "<img src=""yuzler/dilcikar.gif"">", 1, -1, 1) Str = Replace(Str, ": P", "<img src=""yuzler/dilcikar.gif"">", 1, -1, 1) Str = Replace(Str, "?", "<img src=""yuzler/soru.gif"">", 1, -1, 1) Str = Replace(Str, ":@", "<img src=""yuzler/kiz.gif"">", 1, -1, 1) Str = Replace(Str, ":(", "<img src=""yuzler/kiz.gif"">", 1, -1, 1) Str = Replace(Str, ": (", "<img src=""yuzler/kiz.gif"">", 1, -1, 1) Duzenle = Str End Function %> <% if request("y_ekle")="1" then if request("ad")="" or request("mail")="" or request("yorum")="" then Response.write " <script>alert(""Form Alanında Boş kısımlar Bıraktınız..."");</script>" response.write " <meta http-equiv=""Refresh"" content=""0; URL=video.asp?metyus=view&vid="&request("video_id")&"""> " response.end end if rs.ActiveConnection = bag sorgu = "Select * from yorum" rs.open Sorgu, bag, 1, 3 Set kufurler = Server.CreateObject ("ADODB.RecordSet") Sql = " Select * from kufur" kufurler.open sql,bag,1,3 rs.addnew rs.fields("vid")=request("video_id") rs.fields("ad")=clear(request("ad")) rs.fields("mail")=clear(request("mail")) rs.fields("yorum")= Duzenle(Request.Form("yorum")) rs.fields("tarih")=now() rs.update rs.close set rs=nothing Response.write " <script>alert(""Yorumunuz Başarılı Bir Şekilde Eklendi."");</script>" response.write " <meta http-equiv=""Refresh"" content=""0; URL=video.asp?metyus=view&vid="&request("video_id")&"""> " response.end end if %> <!--#include file="db.asp"--> <% if session("giristamam")="1" then Sorgu = "select * from uye where id="&Session("kadi_id")&"" Rs.Open Sorgu, bag, 1, 3 rs("puan")=rs("puan") + 2 rs.update rs.close set rs=nothing bag.close set bag=nothing end if %> <tr><td align=center valign=top height=400 width=50%> <table cellSpacing=0 cellPadding=0 width=98% border=0 align=center> <tr><td align=center valign=top> <!--#include file="db.asp"--> <% Sorgu = "select * from video where id="&vid&" order by id" Rs.Open Sorgu, bag, 1, 3 %> <table cellSpacing=0 cellPadding=0 width=98% border=0 align=center> <tr><td align=center bgcolor=61696f > <% if rs.eof then else %> <table cellSpacing=0 cellPadding=0 width=100% border=0 align=center> <tr><td align=center height=30 bgcolor=2f3a42><font size=1 face=verdana color=ffffff><b> <img src="img/menu_open.gif" border=0> <%=rs("baslik")%></b></font></td></tr> <tr><td align=center> <object width="425" height="350"> <param name="movie" value="<%=rs("url")%>"></param><param name="wmode" value="transparent"></param> <div id="center"> <script type=text/javascript> setTimeout('gizle()',10000); function gizle() { var x=document.getElementById('reklam').style; var y=document.getElementById('video').style; if(x.display=='block') { x.display='none'; y.display='block'; } else { x.display='block'; y.display='none'; } } </script> <div id="reklam" style="display:block;height:350px;"><p align="center"> <a href="http://www.zevkdiyari.com/ortaklik.php?r=cf38b56a4f1bd64ee47fbb2a8da111eb" target="_blank" rel="nofollow"> <img src="http://www.trsexx.com/video.gif" border="0"></a><p/> </div> <div id="video" style="display:none;"> <embed src="<%=rs("url")%>" type="application/x-shockwave-flash" wmode="transparent" width="425" height="350"></embed></object></div> <br><br> </td></tr> </table> </td></tr> <tr><td align=center height="30"> <font face="Tahoma" color="#808080" size="1"> </font><font face="Tahoma" size="5" color="#808080"></font></td></tr> <tr><td align=center height="30"> <table cellSpacing=0 cellPadding=0 width=98% border=0 align=center background="img/blok_bg_pembe.jpg"> <tr><td align=center height=25 bgcolor=6e8f00 colspan=3 background="img/bar_pembe.jpg"><b><font face="verdana" size="1" color=ffffff> Yorumlar</font></b></td></tr> <tr><td align=center height=4 bgcolor=6e8f00 colspan=3 background="img/blok_down_pembe.jpg"></td></tr> <tr><td height=5></td></tr> <tr><td height=200 valign=top> <% Set yorum=Server.CreateObject("Adodb.Recordset") Sorgu = "select * from yorum where vid="&vid&" order by tarih desc" yorum.Open Sorgu, bag, 1, 3 shf = Request.QueryString("shf") if shf="" then shf=1 end if if yorum.eof then %> <br><br> <center><b><font face="verdana" size="1" color=ffffff>Bu Videoya Daha Önce Yorum Yapılmamış.<br>İlk Yorumu Sen Yap.</font></b></center> <% else yorum.pagesize = 10 yorum.absolutepage = shf sayfa = yorum.pagecount for i=1 to yorum.pagesize if yorum.eof then exit for %> <table cellSpacing=0 cellPadding=0 width=98% border=0 align=center> <tr><td align=left height=25><font color=ffffff face=verdana size=1><a href="mailto:<%=ozeldurum(yorum("mail"))%>)"><b><%=ozeldurum(yorum("ad"))%></b></a></font></td> <td align=left width=150><font color=ffffff face=verdana size=1><%= FormatDateTime(rs("tarih"), 1) %></font></td></tr> <tr><td align=left height=25 colspan=2><font color=ffffff face=verdana size=1><%=ozeldurum(yorum("yorum"))%></font></td></tr> <tr><td height=1 background="img/bar.jpg" colspan=2></td></tr> </table> <% yorum.movenext next %> </td></tr> </table> <br> <table cellSpacing=0 cellPadding=0 width=98% border=0 align=center > <tr><td align=center height=2 colspan=3></td></tr> <tr><td height=27 colspan=2 background="img/bg_sbar.jpg"><font size=1 face=verdana color=ffffff> Sayfalar : <% kaysay = 5 saysay = sayfa / kaysay degsay = int(sayfa / kaysay) if saysay > degsay then saysay = degsay + 1 else saysay = degsay end if if request("page")<>"" then session("page") =request("page") linkpage =request("page") ik = (request("page") * kaysay) - (kaysay - 1) else session("page") ="1" linkpage ="1" ik = 1 end if backpage = session("page")-1 nextpage = session("page")+1 sy = int(ik) if backpage >= 1 then %> <a href="?page=<%=backpage%>&metyus=view&vid=<%=vid%>"><img src="img/arrow1.gif" border=0></a> <% end if for y=1 to kaysay if sy =< sayfa then %> <b> <a href="?shf=<%=sy%>&page=<%=linkpage%>&metyus=view&vid=<%=vid%>"><%=sy%></a> </b> <% end if sy = sy + 1 next if nextpage =< saysay then %> <a href="?page=<%=nextpage%>&metyus=view&vid=<%=vid%>"><img src="img/arrow.gif" border=0></a> <% end if end if yorum.close set yorum=nothing %> </td></tr> </table> <br> <form action="video.asp?metyus=view&vid=<%=rs("id")%>" method="post"> <table border="0" cellspacing="1" style="border-collapse: collapse" width="70%"> <tr><td width="10%"><font size=1 face=verdana color=ffffff><b>Ad</b></font></td> <td width="90%"> <input type="text" name="ad" value="Adınız veya Takma Adınız" size="53" style="font-family: Verdana; font-size: 10px; border: 1px solid #676767"></td></tr> <tr><td width="10%"><font size=1 face=verdana color=ffffff><b>Mail</b></font></td> <td width="80%"> <input type="text" name="mail" value="Mail Adresiniz" size="53" style="font-family: Verdana; font-size: 10px; border: 1px solid #676767"></td></tr> <tr><td height=80 colspan=2><textarea name="yorum" style="font-family: Verdana; font-size: 10px; border: 1px solid #676767" rows="6" cols="60"></textarea></td></tr> <tr><td height=20 colspan=2 align=right><input type="submit" Value=" Yorumu Gönder " style="font-family: Verdana; font-size: 10px; border: 1px solid #676767"></td></tr> </table> <input type="hidden" name="video_id" value="<%=vid%>"> <input type="hidden" name="y_ekle" value="1"> </form> </td></tr> </table> </td> <td align=center valign=top width=50%> <table cellSpacing=0 cellPadding=0 width=98% border=0 align=center background="img/blok_bg.jpg"> <tr><td align=center height=27 bgcolor=6e8f00 colspan=3 background="img/bar.jpg"><b><font face="verdana" size="1">Video Bilgileri</font></b></td></tr> <tr><td align=center height=4 bgcolor=6e8f00 colspan=3 background="img/blok_down.jpg"></td></tr> <tr><td height=5></td></tr> <tr><td height=20> <font size=1 face=verdana color=ffffff><b>Eklenme Tarihi :</b> <%=rs("tarih")%></font></td></tr> <tr><td height=20> <font size=1 face=verdana color=ffffff><b>Açıklama :</b> <%=rs("detay")%>... </font></td></tr> <tr><td height=20> <font size=1 face=verdana color=ffffff><b>Tag'lar :</b> <% tags = rs("arama") tags2= split(tags," ") tagtane = ubound(tags2) for a=0 to tagtane response.write "<a href=search.asp?kelime="& tags2(a)&"><u>"&tags2(a)&"</u></a> " next %> </font></td></tr> <tr><td height=20> <font size=1 face=verdana color=ffffff> <b>Ranks :</b> <% if rs("puan")=0 then response.write "<img src=""img/stars/0.gif"">" else end if if rs("puan")>0 and rs("puan")<25 then response.write "<img src=""img/stars/1.gif"">" else end if if rs("puan")>=26 and rs("puan")<50 then response.write "<img src=""img/stars/2.gif"">" else end if if rs("puan")>=51 and rs("puan")<75 then response.write "<img src=""img/stars/3.gif"">" else end if if rs("puan")>=76 and rs("puan")<100 then response.write "<img src=""img/stars/4.gif"">" else end if if rs("puan")>=101 then response.write "<img src=""img/stars/5.gif"">" else end if %> ( <%=rs("puan")%> ) </font> </td></tr> <tr><td height=20> <font size=1 face=verdana color=ffffff><b>Görüntülenme :</b> <%=rs("izleme")%></font></td></tr> <tr><td height=30> <font size=1 face=verdana color=ffffff><b>URL :</b> <input type="text" value="http://www.trsexx.com/v.asp?vid=<%=rs("id")%>" size="50" name="Url" style="border: 1px solid #676767"></font></td></tr> <tr><td height=30> <font size=1 face=verdana color=ffffff><b>Embed :</b> <input type="text" value="<object width=425 height=350><param name=movie value=<%=rs("url")%>></param><param name=wmode value=transparent></param><embed src=<%=rs("url")%> type=application/x-shockwave-flash wmode=transparent width=425 height=350></embed></object>" size="50" name="Url" style="border: 1px solid #676767"></font></td></tr> <tr><td height=30 align=center> <script language="Javascript"> function Oyla() { document.OyForm.submit(); } </script> <table style="BORDER-COLLAPSE: collapse" cellSpacing="0" cellPadding="0" width="%100" border="0"> <% if request("ver")="1" then vid_id=request("vid_id") if request.cookies("metyus")("videooy")="1" and request.cookies("metyus")("videoid")=vid_id then Response.write " <script>alert(""Bu Videoya Oyunuzu Daha Önce Kullanmışsınız."");</script>" else puan=request.Form("puan") Set oyver=Server.CreateObject("Adodb.Recordset") sorgu = "Select * from video where id="&vid_id&"" oyver.open Sorgu, bag, 1, 3 oyver("puan")=oyver("puan") + puan oyver.update oyver.close set oyver=nothing response.cookies("metyus")("videooy")="1" response.cookies("metyus")("videoid")=vid_id response.cookies("metyus").expires=now()+1 Response.write " <script>alert(""Bu Videoya Başarılı Bir Şekilde Oyunuzu Kullandınız."");</script>" response.write " <meta http-equiv=""Refresh"" content=""0; URL=video.asp?metyus=view&vid="&vid_id&"""> " end if end if %> <form name="OyForm" action="video.asp?metyus=view&vid=<%=rs("id")%>" method="post"> <tr><td colspan=20 align=center><font size="1" face="Verdana" color="#ffffff"><b>Bu Videoya Oy verin :</b></font></td></tr> <tr> <td> <input onclick="javascript:Oyla();" type="radio" value="1" name="Puan"></td> <td> <input onclick="javascript:Oyla();" type="radio" value="2" name="Puan"></td> <td> <input onclick="javascript:Oyla();" type="radio" value="3" name="Puan"></td> <td> <input onclick="javascript:Oyla();" type="radio" value="4" name="Puan"></td> <td> <input onclick="javascript:Oyla();" type="radio" value="5" name="Puan"></td> <td> <input onclick="javascript:Oyla();" type="radio" value="6" name="Puan"></td> <td> <input onclick="javascript:Oyla();" type="radio" value="7" name="Puan"></td> <td> <input onclick="javascript:Oyla();" type="radio" value="8" name="Puan"></td> <td> <input onclick="javascript:Oyla();" type="radio" value="9" name="Puan"></td> <td> <input onclick="javascript:Oyla();" type="radio" value="10" name="Puan"></td> </tr> <tr> <td class="yazi" align="middle"><b><font size="1" face="Verdana">1</font></b></td> <td class="yazi" align="middle"><b><font size="1" face="Verdana">2</font></b></td> <td class="yazi" align="middle"><b><font size="1" face="Verdana">3</font></b></td> <td class="yazi" align="middle"><b><font size="1" face="Verdana">4</font></b></td> <td class="yazi" align="middle"><b><font size="1" face="Verdana">5</font></b></td> <td class="yazi" align="middle"><b><font size="1" face="Verdana">6</font></b></td> <td class="yazi" align="middle"><b><font size="1" face="Verdana">7</font></b></td> <td class="yazi" align="middle"><b><font size="1" face="Verdana">8</font></b></td> <td class="yazi" align="middle"><b><font size="1" face="Verdana">9</font></b></td> <td class="yazi" align="middle"><b><font size="1" face="Verdana">10</font></b></td> </tr> <input type="hidden" name="vid_id" value="<%=rs("id")%>"> <input type="hidden" name="ver" value="1"> </form> </table> </td></tr> <tr><td height=10></td></tr> <tr><td height=40> <% if session("giristamam")<>"1" then %> <font face="verdana" style="font-size:10px;" color=ffffff>Üye Girişi Yaptığınız Taktirde +2 Puan Sizin Adınıza Eklenecektir.<br> Üye Değilseniz Üye Olmak İçin <a href="reg.asp">TIKLAYINIZ.</a> <% End if %> <% if session("giristamam")="1" then %> <font face="verdana" style="font-size:10px;" color=ffffff> Hesabınıza +2 Puan Eklenmiştir. <% End if %> </td></tr> <tr><td height=10></td></tr> </table> <% rs("izleme")=rs("izleme") + 1 rs.update end if rs.close set rs=nothing bag.close set bag=nothing %> <iframe src="rastgele5.asp" width="95%" height="500" marginwidth="1" marginheight="11" name="rv" border="0" frameborder="0"></iframe> </td></tr> </table> </td></tr> <%end if%><tr><td align=right height=50><!-- #include file="down.asp" --></td></tr></table> - 26-01-2009, 02:37:55
Üyeliği durduruldukonu hortlamış ama yinede yazayım.
kodlarını az buçuk inceledim embed kısmını ikiye ayırıp aralarına sıkıştırmışsın video öncesi reklam kodunu. div id="ikinci" kısmına atamalısın embed kodlarını bölmeden.. aşağıdaki gibi yapabilirsin. embed kodu kısmının içerisinde yapacaksın bu işlemi. aşağıdaki kodu yerleştir scripte eski kodları da silmeyi unutma
<script type=text/javascript> setTimeout('gizle()',10000); function gizle() { var x=document.getElementById('birinci').style; var y=document.getElementById('ikinci').style; if(x.display=='block') { x.display='none'; y.display='block'; } else { x.display='block'; y.display='none'; } } </script> <div id="birinci" style="display:block; width:588; height:343"> Buraya reklam kodun</div> <div id="ikinci" style="display:none"> <object width="425" height="350"> <param name="movie" value="<%=rs("url")%>"></param><param name="wmode" value="transparent"></param> <embed src="<%=rs("url")%>" type="application/x-shockwave-flash" wmode="transparent" width="425" height="350"></embed></object> </div>
