Anti-Leech / Download Script

lorem Ipsum

Hvorfor lige stort bogstav i hvert ord??

i Global.asa:
    Sub Session_OnStart
        dim aX(2,3)
        '* ARRAY DEF: filId, filnavn, prettyname
        aX(0,0) = Stikmigettal()
        aX(0,1) = "Jegerhemmelig.jpg"
        aX(0,2) = "Dette er en hemmelige fil"
        aX(1,0) = Stikmigettal()
        aX(1,1) = "Jegerogsaahemmelig.jpg"
        aX(1,2) = "Dette er også en hemmelig fil"
        session("filer") = aX
       
    End Sub

    function Stikmigettal()
        randomize()
        Stikmigettal = round(Rnd(now) * 10000000, 0)
    end function
i en anden fil:
<h2>Hemmelige Filer</h2><br>
<%
for a = 0 to 1
    Response.Write "Hent: <a href=""hentsvinet.asp?ID=" & session("filer")(a,0) & """>" & session("filer")(a,2) & "</a> her!<br>"
next
%>
i hentsvinet.asp:
<%
ID = Clng(request("ID"))

'* Slå IDen op
for a = 0 to UBound(session("filer"))
    if session("filer")(a,0) = ID then
        filnavnet = session("filer")(a,1)
    end if
next

Response.Redirect(filnavnet)

%>

Weeeeeeeeeeeeeeeee, Det Virker. Takker Just4Fun

np
westhi > stort bogstav ???