---
title: "Funktion reffer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108050-funktion-reffer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "costodia"
published: "2004-07-27T18:14:10.000Z"
updated: "2004-07-28T08:03:32.000Z"
replies: 7
views: 299
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/108050-funktion-reffer"
---

# Funktion reffer

## #1 — costodia, 2004-07-27T18:14Z

jag har fått ett bra skript från webforum som heter 
denna sidas namn <http://sveriges.com/sveriges/ny_sida_1.asp> 

```
<% 
Function GetCurrentURL()
	Dim strQueryString
	Dim strServerName
	Dim strScriptName
	Dim strURL

	strQueryString = Request.QueryString
	strServerName = Request.ServerVariables("SERVER_NAME")
	strScriptName = Request.ServerVariables("SCRIPT_NAME")

	strURL = "http://" & strServerName & strScriptName
	If strQueryString <> "" Then
		strURL = strURL & "?" & strQueryString
	End If

	GetCurrentURL = strURL
End Function

Response.Write "Denna sidans URL: " & GetCurrentURL() 
 %>
```

 

nu skulle jag vilja ha en kod som skrev ut vilkan reffer besökaren kommit ifrån på sidan, går detta?

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

## #2 — @nders, 2004-07-27T18:32Z

Vilkan reffer :q

Menar du referer?

```
Response.write Request.Servervariables("HTTP_REFERER")
```

Ger dock inte alltid ett värde, då vissa brandväggar slänger bort innehållet, t.ex.

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

## #3 — costodia, 2004-07-27T19:51Z

tack för koden, men hur gör jag rnt praktiskt?

```
<% 
Function GetCurrentURL()
	Dim strQueryString
	Dim strServerName
	Dim strScriptName
	Dim strURL

	strQueryString = Request.QueryString
	strServerName = Request.ServerVariables("SERVER_NAME")
	strScriptName = Request.ServerVariables("SCRIPT_NAME")

	strURL = "http://" & strServerName & strScriptName
	If strQueryString <> "" Then
		strURL = strURL & "?" & strQueryString
	End If

	GetCurrentURL = strURL
End Function

Response.write Request.Servervariables("HTTP_REFERER") "Denna sidans URL: " & GetCurrentURL() 
 %>
```

funkar inte, har lagt in även ett annat försök

<http://sveriges.com/sveriges/referer.asp>

där jag skrivit in koden 

```
<% 
Response.write Request.Servervariables("HTTP_REFERER")
 %>
```

men den koden genrear ingenting

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

## #4 — costodia, 2004-07-27T19:53Z

jag trixade lite till och da dam:

\[kod\]
\<% 
Function HTTP_REFERER()
	Dim strQueryString
	Dim strServerName
	Dim strScriptName
	Dim strURL

	strQueryString = Request.QueryString
	strServerName = Request.ServerVariables("SERVER_NAME")
	strScriptName = Request.ServerVariables("SCRIPT_NAME")

	strURL = "http://" & strServerName & strScriptName
	If strQueryString \<\> "" Then
		strURL = strURL & "?" & strQueryString
	End If

	HTTP_REFERER = strURL
End Function

Response.write Request.Servervariables("HTTP_REFERER")
 %\>
\[7kod\] är rätt kod.

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

## #5 — @nders, 2004-07-28T03:28Z

Inte för att jag förstår varför du kallar funktionen för HTTP_REFERER, men...

Funkar det nu alltså som du tänkt?

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

## #6 — costodia, 2004-07-28T05:17Z

jepp, den fungerar som jag hade tänkt,
finns att beskåda på <http://sveriges.com/sveriges/referer.asp>

men finns det alltså något enklare sätt att gära koden på?

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

## #7 — @nders, 2004-07-28T05:55Z

Enklare och enklare, det är klart att man kan göra funktionen lite kortare.

```
Function GetCurrentURL()
	Dim strURL

	strURL = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")
	If Request.QueryString <> "" Then
		strURL = strURL & "?" & Request.QueryString
	End If

	GetCurrentURL = strURL
End Function
```

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

## #8 — costodia, 2004-07-28T08:03Z

tackar för det

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/108050-funktion-reffer