---
title: "Någon som kan se..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13197-någon-som-kan-se"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "FIgg3"
published: "2001-12-14T20:52:00.000Z"
updated: "2001-12-15T14:02:00.000Z"
replies: 6
views: 238
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13197-någon-som-kan-se"
---

# Någon som kan se...

## #1 — FIgg3, 2001-12-14T20:52Z

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
```

Permalänk: https://www.webforum.nu/p/13197

## #2 — FIgg3, 2001-12-15T12:48Z

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%>
```

Permalänk: https://www.webforum.nu/p/300834

## #3 — @nders, 2001-12-15T12:58Z

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,

Permalänk: https://www.webforum.nu/p/300835

## #4 — FIgg3, 2001-12-15T13:02Z

Tackar men hur menar fatta ej det riktigt...

Permalänk: https://www.webforum.nu/p/300836

## #5 — @nders, 2001-12-15T13:33Z

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

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

Permalänk: https://www.webforum.nu/p/300837

## #6 — FIgg3, 2001-12-15T13:35Z

Aaaa tackar blandade i hop dem dära ;)

Permalänk: https://www.webforum.nu/p/300838

## #7 — @nders, 2001-12-15T14:02Z

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,

Permalänk: https://www.webforum.nu/p/300839

---

Tråden på webben: https://www.webforum.nu/amne/asp/13197-någon-som-kan-se