|
ASP.net (199)
ASP 3.0 (111)
PHP (30)
HTML (66)
SQL (89)
CSS (46)
XML (7)
JavaScript (78)
Diverse kode (13)
Programmering (22)
System og drift (15)
Trafikk og inntekt (11)
Guider og tips (22)
Nyttig lesestoff (23)
Web forum (604)
Link galleri (565)
ASP.NET kurs(5)
CSS kurs (2)
JQuery kurs (2)
Øk trafikken (8)
Facebook App. (4)
Microsoft CEO (6)
Server & web
Internett & epost
Systemverktøy
Sikkerhet
Fildeling
Lyd & media
Diverse software
Domenesalg
Metagenerator
Websikre farger
WebMail
Bli medlem!
Siste innlegg
Gjestebok
Tips en venn
Kontakt oss
Forsiden
|
|
Hente info fra andre Websider - Fetching!
Av: Øyvind A. Isaksen
Denne artikkelen forklarer hvordan man vhja ASP og XML kan hente info fra andre websider.
Hente en hel side
Denne koden henter hele www.webressurs.no vhj.a XML:
<%
'Åpner for XML objektet.
Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
'Her forteller vi hvilken side som skal åpnes
objXML.open "GET", "http://www.webressurs.no", false
'Send data som skal til for at lage en request på siden.
objXML.send
'sett kilde til å være kildekoden fra den siden som skal åpnes.
kilde = objXML.ResponseText 'ResponseText returnerer kildekoden til den siden som blir åpnet.
Response.Write("<B>WebRessurs direkte fra min side:</B><br><br>")
Response.Write(kilde)
Response.Write("<br><br><B>Slutt på webressurs.no!</B>")
%>
Hente en del av en side
Denne koden henter KUN menyen på www.webressurs.no vhj.a XML:
<%
'Åpner for XML.
Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
'Her henter vi siden.
objXML.open "GET", "http://www.webressurs.no/main/default.asp", false
objXML.send
'Sett strInnhold til å være kildekoden fra webressurs.no.
strInnhold = objXML.ResponseText
'Dette står et sted i kildekoden: <!--start hovedmeny--> <!--slutt hovedmeny-->
'Vi skal hente informasjonen mellom disse taggene.
'Finner START-posisjonen.
Pos1 = inStr(1,strInnhold,"<!--start hovedmeny-->")
'Finner STOPP-posisjonen.
Pos2 = inStr(Pos1,strInnhold,"<!--slutt hovedmeny-->")
'Fjern alt annet utenfor START og STOPP posisjonene.
strMeny = Mid(strInnhold,Pos1,Pos2-Pos1)
'Vi skriver ut det innholdet vi ønsket, her menyen på WebRessurs.no
Response.Write(strMeny)
%>
|
|
