---
title: "Leta efter sökord, på en sida"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/174002-leta-efter-sökord-på-en-sida"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Eclipse"
published: "2008-09-12T12:07:59.000Z"
updated: "2008-09-12T15:12:50.000Z"
replies: 5
views: 535
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/174002-leta-efter-sökord-på-en-sida"
---

# Leta efter sökord, på en sida

## #1 — Eclipse, 2008-09-12T12:07Z

Jag håller på att bygga en funktion för att testa om ett visst sökord finns på en viss sida. Om inte, bara att testa på nästa sida.

Koden är inte komplett:

```
FUNCTION lookPageForWord(strWord)
	DIM getURL
	Set http = Server.CreateObject("MSXML2.ServerXMLHTTP")
	URL = "http://www.google.com/search?hl=sv&q=" & strWord
	http.open "GET",URL,false
	http.send
	getUrl = http.responseText

END FUNCTION
```

Nu får jag ett svar tillbaka, en sida på Google. Hela svaret finns i getUrl.

Nu vill jag söka efter om ordet från \*just min\* domän finns på denna sidan. Det gör jag enklast med att fråga efter Request.ServerVariables("SERVER_NAME").

Men hur frågar jag i kod!?

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

## #2 — Eclipse, 2008-09-12T12:19Z

```
response.write " LEN getURL = " & LEN(getURL)
```

Detta funkar. Det blir :
LEN getURL = 4441 

i just detta fallet.

Hur söker jag efter min hemsida i denna massa av text!?

Måste jag använda SQL!?

SELECT \* FROM \[results\] WHERE getUrl LIKE '%" &Request.ServerVariables("SERVER_NAME") &  "%';"

Kan man skriva det där i vbScript...?

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

## #3 — voigtann1, 2008-09-12T12:31Z

InStr() kommer ge dig ett värde där första träffen är.
Du får nog använda dig av RegExp för att få ut någon typ av struktur data... vet inte riktigt vad målet är med din lösning.

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

## #4 — Eclipse, 2008-09-12T12:44Z

Testa själv denna kod!

Ta reda på ett sökord som finns på en förstasida, och byt:

```
lookPageForWord "mitt favvosökord"

FUNCTION lookPageForWord(strWord)
	DIM getURL
	Set http = Server.CreateObject("MSXML2.ServerXMLHTTP")
	URL = "http://www.google.com/search?hl=sv&q=" & strWord
	http.open "GET",URL,false
	http.send
	getURL = http.responseText

	response.write " LEN getURL = " & LEN(getURL) & "<BR>"
	pos=InStr(getURL,"www.minhemsida.se")
	response.write(pos)

END FUNCTION
```

Det blir alltid 0 (noll) för mig i svar.

Vilken information finns egentligen i getURL!? Är det koden som finns i "Visa källa" eller det man ser i webbläsaren...??

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

## #5 — voigtann1, 2008-09-12T13:20Z

> **Eclipse skrev:**
>
> Vilken information finns egentligen i getURL!? Är det koden som finns i "Visa källa" eller det man ser i webbläsaren...??

Du kan ju alltid ta response.Write på getURL variabeln för att exakt se vad som hämtas.

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

## #6 — Eclipse, 2008-09-12T15:12Z

```
Google  	 Error
 

    Forbidden
    Your client does not have permission to get 
URL /search?hl=sv&q=sökord from this server. 
(Client IP address: 193.17.218.90)

    Please see Google's Terms of Service posted at [url]http://www.google.com/terms_of_service.html[/url]

...med mera...
```

Hmmm.... Finns det nåt alternativ!? Måste fundera på det... Annars får man väl bygga en eget program som kollar detta!?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/174002-leta-efter-sökord-på-en-sida