stop leechere

forresten sourcekoden:

<%
    Response.Buffer = True

    strFile = LCase(Request(\"file\"))
    If strFile > \"\" Then
        strDLFile = \"filer/\" & strFile

        Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
        If fso.FileExists(Server.MapPath(strDLFile)) Then
            Set file = fso.OpenTextFile(Server.MapPath(strDLFile))
            Response.AddHeader \"Content-disposition\", \"filename=\" & strFile
            Response.ContentType = \"application/zip\"
            Response.AddHeader \"Pragma\", \"no-cache\"
            Response.AddHeader \"Expires\", \"0\"

            Do Until file.AtEndOfStream
                Response.BinaryWrite ChrB(Asc(file.read(1)))
            Loop
            Response.End
        Else
            Response.Write \"The requested file does not exist on this server!<br>\"
            Response.Write \"File: \" & strFile
        End If
    Else
        Response.Write \"Error: filename missing!\"
    End If
%>

if request.servervariables(\"server_name\") = \"ditserver navn\" then
kør kode
else response.write \"leecher\"

jeg kan vel ik få dig til at vise hvordan det vil se ud ? altså jeg fatter ik så meget asp så det gør noget, og det skal somsagt bruges til hvis jeg linker til filer der ligger på min server..

jo skal jeg nok, men vil lige vågne først ik ?

oki... men er du da ik snart vågnet.. hehe