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").
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.
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!?
266 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25