---
title: "Räknare ska bara fungera på ?url=denna"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/81657-räknare-ska-bara-fungera-på-url-denna"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2003-07-09T07:03:52.000Z"
updated: "2003-07-10T16:05:58.000Z"
replies: 4
views: 312
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/81657-räknare-ska-bara-fungera-på-url-denna"
---

# Räknare ska bara fungera på ?url=denna

## #1 — voigtann1, 2003-07-09T07:03Z

```
dim t,count,length,nollor,id,databas,recset,mdbfilepath
id = request.querystring("ID")
if id = "--Example--" then
  count = "0123456789"
else
  Set Databas = Server.CreateObject("ADODB.Connection")
  MdbFilePath = Server.MapPath("db/freecounter.mdb")
  Session("dbasepath") = "driver={Microsoft Access Driver (*.mdb)};dbq=" & MdbFilePath & ";"
  Databas.Open Session("dbasepath")

  SQL = "SELECT visitors from counter where accountID = "& id
  set recset = databas.execute(SQL)
  if recset.eof then
    response.write "document.write(""error"")"
  else
    count = recset("visitors")
  end if
  recset.close: set recset = nothing

' Skapa Cookie för att kolla räknare
' **********************************
  If Request.Cookies("counting")("userID" & cStr(id)) = "" then
    count = count +1
    Response.Cookies("counting")("userID" & cStr(id)) = "voigtancount30"
    Response.Cookies("counting").Expires = DateAdd("h",3,Now())
      SQL = "UPDATE counter " 
      SQL = SQL & "SET visitors = "& count
      SQL = SQL & " WHERE accountID = "& id
      databas.execute SQL
  end if
end if
```

Om användarID 1 har url:en i databasen på <http://nagot.se> eller <http://nagotannat.se/minegnasida/>
och använder denna kod:

```
<script language="javascript" src="counter.asp?id=1&url=http://sidan.se/minsida/default.asp"></script><hr>
```

För det första: Hur gör man så att den kontrollera vilken URL javascriptet är på så att inte personen använder sin räknare/eller någon annans räknare som kan ge falska svar..

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

## #2 — voigtann1, 2003-07-09T09:58Z

kan någon av detta fungera?:

```
Request.ServerVariables("HTTP_REFERER")
```

???

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

## #3 — m_soderlund, 2003-07-09T10:59Z

Jag funderade på REFERER tidigare idag, testa denna kod:

```
<%
If Instr(Request.Querystring("url"),Request.ServerVariables("HTTP_REFERER"))>0 Then
Response.Write "<script language=""javascript"" src=""counter.asp?id=1&url=http://sidan.se/minsida/default.asp""></script><hr>"
Else Response.Write "Ej tillåten räknare."
End If
```

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

## #4 — voigtann1, 2003-07-09T11:24Z

Så här eller?

```
  SQL = "SELECT visitors,start,homepage from counter where accountID = "& id
  set recset = databas.execute(SQL)
  if recset.eof then
    response.write "document.write(""error"")"
  else
    count = recset("visitors")
    startcount = recset("start")
    showcount = (count + startcount)
    url = recset("homepage")
  end if
  recset.close: set recset = nothing

' Skapa Cookie för att kolla räknare
' **********************************
  If Instr(url,Request.ServerVariables("HTTP_REFERER"))>0 Then
    If Request.Cookies("counting")("userID" & cStr(id)) = "" then
      count = count +1
      Response.Cookies("counting")("userID" & cStr(id)) = "voigtancount30"
      Response.Cookies("counting").Expires = DateAdd("h",3,Now())
        SQL = "UPDATE counter " 
        SQL = SQL & "SET visitors = "& count
        SQL = SQL & " WHERE accountID = "& id
        databas.execute SQL
    end if
  else
    response.write "You cant use this counter"
  end if
end if
```

Man kanske inte behöver en querystring ens för url::en...

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

## #5 — Jesper T, 2003-07-10T16:05Z

Url:en kan du väl hårdkoda in om den bara skall funka på din adress.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/81657-räknare-ska-bara-fungera-på-url-denna