İ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 &"")
%>