AspHTTP + VBScript

Set HttpObj = Server.CreateObject(\"AspHTTP.Conn\")
HttpObj.Url = \"http://www.dinside.dk/index.htm\"
strResult = HttpObj.GetURL

Så har du resultatet i strResult

Så kan du evt. lave en REPLACE på fonten.

strResult = REPLACE(strResult,\"arial\", \"verdana\")

/Jesper

vet ikke om du kjenner til dokumentasjonen for komponentet:

http://www.serverobjects.com/comp/asphttp3.htm

du henter en side på den måten dudal skriver, men hvis du skal hente noen overskrifter fra en side, så skal de vare tagget på en speciell måte sånn at de er lette å gjenkjenne. du bør legge en lokal kopi av siden på din maskin, deretter kan du ved hjelp av

Scripting.FileSystemObject

parse deg gjennom din fil...

/nute

hmmm....mener du også må ta med:

objHTTP.RequestMethod = \"GET\"

i tillegg til dudal sin kode...

/nute

nute : vil du visse mig hvorledes, så sender jeg dig lige den side hvorfra headlines skal tages fra og så siden de skal ligge på`?

hvis du f.eks hadde benyttet <th> på alle dine overskrifter, så kunne du ha gjort følgende:

  Set objHTTP = Server.CreateObject(\"AspHTTP.Conn\")
  \'Input file
  objHTTP.Url = \"http://www.domene.dk/dinfil.htm\"
  \'Output file
  set updateFile = myFileObject.CreateTextFile(\"navn på en tmp fil\")
 
  tmpHTMLDoc = objHTTP.GetURL
  objHTTP.RequestMethod = \"GET\"
 
  updateFile.writeLine(tmpHTMLDoc)
  set updateFile = nothing
  Set objHTTP = Nothing

  set fromFile = myFileObject.OpenTextFile(\"navn på tmp fil\")
 
  WHILE NOT fromFile.AtEndOfStream
    currentLine = fromFile.ReadLine
   
      IF INSTR(currentLine,\"<th>\") THEN
        response.write fromFile.ReadLine
        END IF
      WEND
 
  \'Free resources
  fromFile.Close
  set fromFile = nothing

MEN...det er vanskelig å gjøre dette hvis ikke alle overskrifter er tagget på en speciell måte....

/nute

Til Nute

Ok, jeg vil hente det overskrifter der er på denne side : http://www.knr.gl/news/dansk/1.htm

Overskrifterne skal så frem på min side med <font color=\"#993300\" size=\"1\" face=\"Arial\">

How ??

dette skulle gjøre jobben for deg...


  Set objHTTP = Server.CreateObject(\"AspHTTP.Conn\")
  \'Input file
  objHTTP.Url = \"http://www.knr.gl/news/dansk/1.htm\"; 
 
  tmpHTMLDoc = objHTTP.GetURL
  objHTTP.RequestMethod = \"GET\"
  \'Output file
  objHTTP.saveFileTo = \"c:\\temp\\temp.htm\"
 
  Set objHTTP = Nothing

  set fromFile = myFileObject.OpenTextFile(\"c:\\temp\\temp.htm\")
 
  WHILE NOT fromFile.AtEndOfStream
    currentLine = fromFile.ReadLine
   
      IF INSTR(currentLine,\"<font color=\"\"#993300\"\">\") THEN
        response.write \"<font color=#993300 size=1 face=Arial>\" & fromFile.ReadLine & \"</font><br>\"
        END IF
      WEND
 
  \'Free resources
  fromFile.Close
  set fromFile = nothing

/nute

hov....en liten modifikasjon...

    \'FileObject
    set myFileObject = Server.CreateObject(\"Scripting.FileSystemObject\")
  Set objHTTP = Server.CreateObject(\"AspHTTP.Conn\")
  \'Input file
  objHTTP.Url = \"http://www.knr.gl/news/dansk/1.htm\" 
 
  \'Output file
  objHTTP.saveFileTo = \"c:\\temp\\temp.htm\"
  tmpHTMLDoc = objHTTP.GetURL
  objHTTP.RequestMethod = \"GET\"

  Set objHTTP = Nothing

  set fromFile = myFileObject.OpenTextFile(\"c:\\temp\\temp.htm\")
 
  WHILE NOT fromFile.AtEndOfStream
    currentLine = fromFile.ReadLine
   
      IF INSTR(currentLine,\"<font color=\"\"#993300\"\">\") THEN
        response.write \"<font color=#993300 size=1 face=Arial>\" & currentLine & \"</font><br>\"
        END IF
      WEND
 
  \'Free resources
  fromFile.Close
  set fromFile = nothing

dette er forsåvidt kun skjelettet, for som du vil komme til å se, så ligger den første overskriften over to linjer, og det vil \"fucke up\" din forespørsel...

en annen måte er å benytte XML

/nute

Skal jeg ikke skifte indholdet af HTTPhtm.asp ud med det indhold du har sent ?

bare legg dette inn i den filen du vil skal utføre oppgaven. hvis det er HTTPhtm.asp, så skal du kopiere min kode inn i dnne...

/nute

Så får jeg denne fejl :

http://www.piteraq.gl/hentknr/kkk.asp

ahhh....fjern semikolon...det skal ikke være der (kommer av at jeg sitter å programmerer i Java, og der avsluttes alle linjer med semikolon....sorry ;)

/nute

1000 tak det virker bare, nu må jeg ude og lege med det selv.

Forsat god aften deroppe :-)

selv takk :) og så må du hygge deg med det...:)