<%
Function getNews(n)
sFind = "<img src=""comment.gif"" border=""0"">"
eFind = "<br><br>"
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.porrnyheter.nu", False
objHTTP.Send
str = objHTTP.responseText
Set objHTTP = Nothing
str = Right(str,Len(str)-InStr(str,sFind)+1)
str = Left(str,InStr(str,"<hr color=""black"">")-1)
i = 0
Do Until i = n OR InStr(str,sFind) < 1
i = i --1
spos = InStr(str,sFind)
rstr = Right(str,Len(str)-spos+1)
epos = InStr(rstr,eFind)-1
substr = Mid(str,spos,epos)
substr = Replace(substr,"comment.gif","http://www.porrnyheter.nu/comment.gif")
substr = Replace(substr," - <a target=""_blank"""," | <a target=""_blank""")
myStr = myStr & "<br>" & substr
str = Right(str,Len(str)-spos-Len(substr)+1)
Loop
getNews = myStr
End Function
Response.Write(getNews(20))
%>
Trådstart#1
Hur hämtar man ut ex nyheter från en sida som innehåller massa htmlkod?
Vill hämta ex detta:
<img src="gfx/newsikon.gif" border="0"> 2003-02-28 - <a target="_blank" href="nyhet.asp">Rubrik</a><br><br>
Och ovanför detta ligger massa htmlkod och samma sak nedanför
Har denna kod nu:
<%Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://sidan.com", False
objHTTP.Send
strHTML=objHTTP.responseBody
Set objHTTP = Nothing
strHTML = Unicode(strHTML)
Response.Write strHTML
Function Unicode(strResponseBody)
Dim i, t
t = String(LenB(strResponseBody), " ")
t = ""
For i = 1 To LenB(strResponseBody)
t = t & Chr(AscB(MidB(strResponseBody, i, 1)))
Next
Unicode = t
End Function%>
VIll helst kunna plocka ut ex 5 stycken bara!