 |
06.05.2008
|
#1 (permalink) |
|
Üyelik Tarihi: 27.04.2008
Yer: izmir
Yaş: 19
Mesaj: 2
|
Asp Download Sayfasına Sayaç Eklemek
ASP Download sayfasına rapidshare'deki gibi gerî sayım sayacı koymak istiyorum.
yani Download linkine tıklandıgında sayfada 10 dan geriye doğru sayacak ve download dosyasını sayaç sona erdiğinde ekrana getirecek... eLinizde kod varsa paylaşırsanız yada bilen biri yardımcı olursa sevinirim... |
|
         
|
|
15.05.2008
|
#2 (permalink) |
Üyelik Tarihi: 14.05.2008
Yer: İSTANBUL
Yaş: 27
Mesaj: 8
|
Re: Asp Download Sayfasına Sayaç Eklemek
İlk öncelikle ilk ASP dosyamız bu .
dl.ASP <% Set DLConnect = server.CreateObject("ADODB.Connection") DLConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb") %> <head> <meta http-equiv="Content-Type" content="text/HTML; charset=iso-8859-9"> <script language=JavaScript1.2> if (window.Event) // Only Netscape will have the CAPITAL E. document.captureEvents(Event.MOUSEUP); // catch the mouse up event function nocontextmenu() // this function only applies to IE4, ignored otherwise. { event.cancelBubble = true event.returnValue = false; return false; } function norightclick(e) // This function is used by all others { if (window.Event) // again, IE or NAV? { if (e.which == 2 || e.which == 3) return false; } else if (event.button == 2 || event.button == 3) { event.cancelBubble = true event.returnValue = false; return false; } } document.oncontextmenu = nocontextmenu; // for IE5+ document.onmousedown = norightclick; // for all others </script> <script> function ctrlNEngelle(e) { olay = document.all ? window.event : e; tus = document.all ? olay.keyCode : olay.which; if(olay.ctrlKey&&(tus==110||tus==78)) { if(document.all) { olay.returnValue = false; } else { olay.preventDefault(); } } } </script> <script language="JavaScript"> <!-- var left=">"; var right="<"; var msg="Sitenizin Sloganı"; var speed=200; function scroll_title() { document.title=left+msg+right; msg=msg.substring(1,msg.length)+msg.charAt(0); setTimeout("scroll_title()",speed); } scroll_title(); // End --> </script> <script LANGUAGE="JavaScript"> var scrollCounter = 0; var scrollText = "Sitenizin Sloganı"; var scrollDelay = 20; var i = 0; while (i ++ < 140) scrollText = " " + scrollText; function Scroller() { window.status = scrollText.substring(scrollCounter++, scrollText.length); if (scrollCounter == scrollText.length) scrollCounter = 0; setTimeout("Scroller()", scrollDelay); } Scroller(); </script> <link rel="stylesheet" type="text/CSS" href="http://forum.zoque.net/ASP/inc_style/crackz.CSS"> <style type="text/CSS"> <!-- body,td,th { font-size: 0.7em; } --> </style></head> <body> <table cellspacing="0" cellpadding="0" bgcolor="#ffffff" border="0" style="width: 362px" align="center"> <tr valign="top"> <td width="541"> <table cellspacing="0" cellpadding="0" bgcolor="#ffffff" border="0" height="212" bordercolor="#111111" style="width: 369px"> <tr valign="top"> <td align="middle" width="319" height="212"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"> <tr> <td><font color="#333333"> <%DDL = Request.QueryString("DDL") If DDL = "Yukle" Then Call Yukle ElseIf DDL = "Beklet" Then Call Beklet End If%> </font> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" height="157" align="center"> <tr> <td width="100%" height="157" class="current"><br> <% Sub Yukle%><font color="#333333"> </font> <table border="0" cellpadding="2" cellspacing="0" width="385"> <tr> <td align="center" valign="top" bgcolor="#999999" width="381"> <%DLid = Request("DLid") Set CrackDown = server.CreateObject("ADODB.RecordSet") CSQL = "Select * FROM Crack WHERE DLid = "&DLid&"" CrackDown.Open CSQL,Bag,3,3 If Not CrackDown.EOF Then CrackDown("Hit") = CrackDown("Hit") + 1 CrackDown.Update Response.Redirect ""&CrackDown("Url")&"" End If %> </td> </tr> </table> <font color="#333333"> <%End Sub%> <%Sub Beklet%> </font> <table border="0" cellpadding="2" cellspacing="0" width="385" height="100"> <tr> <td height="3" width="381"> <font color="#333333"> </font></td> </tr> <tr> <td align="center" valign="top" bgcolor="#FFFFFF" width="381" height="16"> <b> <font face="Arial" color="#FFFFFF" style="font-size: 9pt"> <% DLid = Request("DLid") Set CrackDown = server.CreateObject("ADODB.RecordSet") CSQL = "Select * FROM Crack WHERE DLid = "&DLid&"" CrackDown.Open CSQL,DLConnect,3,3 %></font><font face="Arial" color="#333333" style="font-size: 9pt"> </font></b> <font class="font_a"><%=CrackDown("Ad")%><b><b> <font class="font_a"> Yükleniyor... </font></b> <div id="dl"> <b> <%=CrackDown("Ad")%><font color="#333333" style="font-size: 9pt"> </font> <font face="Arial" color="#333333" style="font-size: 9pt"> HATA: Lütfen JavaScript'i Aktifleştirin.</font></b></div> <script>var c = 5; fc(); function fc(){ if(c>0){document.getElementById("dl").innerHTML = "<b>Yükleniyor Lütfen Bekleyiniz " + c + ' Saniye Kaldı'; c = c - 1;setTimeout("fc()", 1000)} else {document.getElementById("dl").innerHTML = unescape("<a href='indir.ASP?DDL=Yukle&DLid=<%=CrackDown("DLid" )%>' style='text-decoration: none; font-weight:700'>Dosyayı İndir</a><a href='JavaScript:window.close()'>Kapat</a>")}}</script> </td> </tr> </table> <p><font color="#333333"><% End Sub %></td> </tr> İkincisi ise indir.ASP indir.ASP <% Set DLConnect = server.CreateObject("ADODB.Connection") DLConnect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb") %> <% Response.Buffer = True %> <% DLid = Request.QueryString("DLid") Set DLDown = server.CreateObject("ADODB.RecordSet") CSQL = "Select * From Crack Where DLid="& DLid DLDown.Open CSQL, DLConnect, 1, 3 Url = DLDown("Url") Response.Redirect (""& Url &"") %> |
|
|
|
Zoque'a hoşgeldiniz!
Zoque RSS Aboneliği
