Någon som kan se...

6 svar · 222 visningar · startad av FIgg3 14 dec. 2001

FIgg3Medlem sedan sep. 2001354 inlägg

Frågan14 dec. 2001 20:52#1

Hejsan hej...

Håller på att býgga ett ladda ner syetm skydd så att man inte kan länka till mina filer från min server men jag har ingen server att testa filerna på så jag undrar om någon kan se om allt är rätt (Om någon har tid)

<% 
If Request.ServerVariables("HTTP_ACCEPT") = "http://rubensoft.d2g.com/figg3/ladda.asp"
or Request.ServerVariables("HTTP_ACCEPT") = "http://rubensoft.d2g.com/jolle/ladda.asp"
Then
id = Request.QueryString("id")
file = Server.MapPath("databasen.mdb")

'Öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file

'Öppnar tabellen
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL =  "SELECT * FROM TABELL WHERE ID LIKE '"& id &"'"

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

'Plusar på 1
fldcount = RecSet("fldcount") + 1
RecSet("fldcount") = fldcount

filen = Recset("fil")

'Stänger m.m
RecSet.Update
RecSet.Close
Connect.Close
%>
<html>
<head>
<title>Laddar ner...</title>
<meta http-equiv="refresh" content="0;URL=<%=filen%>">
</HEAD>
<% Else %>
<html>
<head>
<title>Ej tillstånd att Laddar ner...</title>
</HEAD>

Du har ej till stånd att ladda ner filen från den sidan du är på<br>
var god att kontakta mig på förljande mail figg3@surfzon.com om du ej har hittat<br>
länken till denna filen på dessa adresser: [url="http://rubensoft.d2g.com/figg3/<br>"]http://rubensoft.d2g.com/figg3/<br>[/url]  [url="http://rubensoft.d2g.com/jolle/<br>"]http://rubensoft.d2g.com/jolle/<br>[/url] 

För att ladda ner filen i fråga gå till [url="http://rubensoft.d2g.com/figg3/ladda.asp"]http://rubensoft.d2g.com/figg3/ladda.asp[/url] 

MVH Fredrik "FIgg3" Martinsson

------------------
Dont drink and drive!!! smoke shit and fly!!!

FIgg3Medlem sedan sep. 2001354 inlägg

15 dec. 2001 12:48#2

Hejsan im back med en fråga...

NU har jag installerat en server men det fungerar ej det kommer aldrig upp att filen börjas ladda ner uttan bara att man ej har tillstånd att ladda ner filen fast jag kommer från rätt adress vad kan vara fel?

<html>
<head>
<title>Laddar ner...</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000" background="back.gif"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
<% 
' Kollar så att länken ej är rippad
If Request.ServerVariables("HTTP_ACCEPT") = "http://figg3" Then

' Skappar lite variabler
id = Request.QueryString("id")
file = Server.MapPath("laddaner.mdb")

' Öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file

' Öppnar tabellen
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL =  "SELECT * FROM downloads WHERE ID LIKE '"& id &"'"

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

' fixar räknaren i scriptet
fldcount = RecSet("fldcount") + 1
RecSet("fldcount") = fldcount

' Skappar en variabel som ska laddas ner
filen = Recset("fldcount")

'Stänger m.m
RecSet.Update
RecSet.Close
Connect.Close
' Börjar ladda ner filen
%><html>
<head> 
<title>Laddar ner...</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="refresh" content="0;URL=<%=filen%>">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
<% Else %>
</font> 
<html>
<head>
<title>Laddar ner...</title></head>
<body bgcolor="#FFFFFF" text="#000000"> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
<font size="-1"><b><font color="#FF0000">ERROR</font></b></font><br>
Du försöker nå en fil genom en länk som inte är godkännd 
av mig detta kan beror på följande</font> 
<ul>
  <li><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Någon 
    länk har blivit rippad</font></li>
  <li><font face="Verdana, Arial, Helvetica, sans-serif" size="-2">Serverproblem</font></li>
  <li><font face="Verdana, Arial, Helvetica, sans-serif" size="-2">Script problem</font><br>
    <br>
    <font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Om du ej hittat 
    länken till den filen du försöker nå från min sida 
    <a href="http://figg3.com">http://www.figg3.com<br>
    </a></font><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Så 
    vill jag att du kontaktar mig på förljande mail figg3@surfzon.com 
    eller <br>
    figg3@mail.com eller tar kontakt med mig i forumet på min sida...</font> 
    <br>
    <br>
    <font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Öppna startsidan 
    för figg3 och sök efter länkar till den information du vill 
    ha. <br>
    Klicka på knappen Bakåt om du vill försöka med en annan 
    länk. <br>
    Klicka på Sök om du vill leta efter information på Internet.<br>
    <br>
    Filen laddas inte <br>
    Internet Explorer </font><br>
  </li>
</ul>
<p> </p>
</body>
</html>
<%End If%>

------------------
Dont drink and drive!!! smoke shit and fly!!!

[Redigerat av FIgg3 den 15 dec 2001]

@ndersMedlem sedan juni 200032 967 inlägg

15 dec. 2001 12:58#3

Det känns som att du använder fel servervariabel för att kontrollera var det länkades ifrån.

Skriv ut innehållet i Request.ServerVariables("HTTP_ACCEPT") och jämför det med innehållet i Request.ServerVariables("HTTP_REFERER").

Mvh,

------------------
Don't panic!

FIgg3Medlem sedan sep. 2001354 inlägg

15 dec. 2001 13:02#4

Tackar men hur menar fatta ej det riktigt...

------------------
Dont drink and drive!!! smoke shit and fly!!!

@ndersMedlem sedan juni 200032 967 inlägg

15 dec. 2001 13:33#5

Response.write Request.ServerVariables("HTTP_ACCEPT") & "<BR>" & Request.ServerVariables("HTTP_REFERER")

Vilken av dem två innehåller det värdet du vill ha?

------------------
Don't panic!

FIgg3Medlem sedan sep. 2001354 inlägg

15 dec. 2001 13:35#6

Aaaa tackar blandade i hop dem dära ;)

------------------
Dont drink and drive!!! smoke shit and fly!!!

@ndersMedlem sedan juni 200032 967 inlägg

15 dec. 2001 14:02#7

Kände nästan på mig det. :)

Tips så här i juletid. Det finns massor av servervariabler som man kan använda till lite allt möjligt. Kör igång en sida med denna kod, så får du se alla som finns, och dess innehåll:

For each servervariable in Request.Servervariables
Response.write servervariable & " : " & Request.servervariables(servervariable) & "<br>"
Next

Mvh,

------------------
Don't panic!