"Brian Odsgaard .dk>" <mail@oddball<remove> skrev i en meddelelse
news:sd11g298lduma1ti6umfu70f2hu07gagg9@4ax.com...
> Hejsa
>
> Er det muligt at lave noget asp kode, der kalder et antal forskellige
> sider på nettet og derefter laver en analyse af indholdet?
>
> Den sidste del er ikke noget problem, men kan det lade sig gøre at få
> et script til f.ex at kalde 3 forskellige sider på een gang og gemme
> siderne i f.ex en text fil?
>
> Brian
Her får du lige en redigeret klasse, du selv kan modificerer.
Med genbrugelig hilsen
Michael Weber
######################################
<!--METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library"
TYPE="TypeLib"
UUID="{00000205-0000-0010-8000-00AA006D2EA4}"-->
<%
Class LinkValidator
Private responseText
Private Sub Class_Initialize()
responseText = "ikke defineret"
End Sub
Private Sub Class_Terminate()
End Sub
Function IsValid(url) ' f.eks. "
http://www.google.com"
dim xmlhttp
dim userAgent, status
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.setRequestHeader "User-Agent","none"
xmlhttp.send ""
status = xmlhttp.status
if err.number <> 0 or status <> 200 then
if status = 404 then
response.write "404 - Siden findes ikke"
elseif status >= 401 and status < 402 then
response.write "(401) - Adgang forbudt"
elseif status >= 500 and status <= 600 then
response.write "500 - Intern fejl på fjern-serveren."
else
' i stedet for at udskrive xmlhttp.responseText kan du gemme den.
response.write xmlhttp.responseText
end if
else
' i stedet for at udskrive xmlhttp.responseText kan du gemme den.
response.write xmlhttp.responseText
end if
End Function
End Class
%>
###########
Og du bruger den på følgende måde i et andet asp-dokument :
<!--#include file="linkvalidator.asp"-->
<%
dim link
set link= new LinkValidator
link.IsValid("
http://www.google.com")
%>