---
title: "Visa källa?!?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/64795-visa-källa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2003-01-14T00:34:29.000Z"
updated: "2003-01-14T01:52:57.000Z"
replies: 7
views: 224
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/64795-visa-källa"
---

# Visa källa?!?

## #1 — Asa, 2003-01-14T00:34Z

Kan man på något sätt visa källan- htmlkoden på en sida som ligger på någon annans server och kolla efter ett speciellt ord på en sida med asp? Ex som ligger med exakt denna adress?

<http://www.gruvsjo.com/default.asp>

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

## #2 — Palle, 2003-01-14T00:49Z

Japp, visst kan man det.

Sök på XMLHTTP här i forumet så får du säkert upp en del intressant information. :)

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

## #3 — Asa, 2003-01-14T01:00Z

Okej! Tackar för tipset! :) Måste man ha nå speciellt på webbhotellet för att det ska funka?

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

## #4 — Palle, 2003-01-14T01:28Z

Nope, inte på nyare servrar baserade på MS-plattform iaf.

Mer intressant läsning:
» <http://www.4guysfromrolla.com/webtech/110100-1.shtml>

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

## #5 — Asa, 2003-01-14T01:30Z

Någon som har ett bra exempel på hur man kollar om en viss länk finns på sidan? Helst upplagd i en function! Har sökt här men inte hittat nåt passande!

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

## #6 — Asa, 2003-01-14T01:35Z

Denna verkar funka.

```
<%
url   = "http://www.gruvsjo.com"
exist = "http://www.aspsidan.nu"

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", url, False
xml.Send

If InStr(1, xml.responseText,exist) Then
  Response.Write "Länken finns på sidan"
Else
  Response.Write "Länken finns ej på sidan"
End If
 
Set xml = Nothing%>
```

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

## #7 — Palle, 2003-01-14T01:48Z

Lek med denna kod. :) 
Den talar i nuläget om hur många gånger besökarna klickat på min banner från din sida: 

```
[RED]<%

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.gruvsjo.com", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<img src=""http://www.palleman.nu/banners/palle_88_1.gif"" border=""0"" alt="".*"" width=""88"" height=""31""></a>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText) 
	strText = replace(strtext,"<img src=""http://www.palleman.nu/banners/palle_88_1.gif"" border=""0"" alt="""," ")
	strText = replace(strtext,""" width=""88"" height=""31""></a>"," ")

	red = strText
End Function

For each item in hittade
Response.Write red(item.value) 
Next

%>[/RED]
```

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

## #8 — Asa, 2003-01-14T01:52Z

Tackar för det exemplet!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/64795-visa-källa