webForumDet fria alternativet

Infoga hemsida?

4 svar · 394 visningar · startad av mozilla

mozillaMedlem sedan juli 20011 084 inlägg
#1

Jag har hört att man i PHP ska kunna infoga text från andra hemsidor... och blev då lite nyfiken om det finns något liknande för asp! Någon som vet om/hur man gör detta?

solbulleMedlem sedan mars 20015 287 inlägg
#2

Sök på asptear här på forumet.

http://webforum.aleborg.com/forum/search.php?s=&action=showresults&searchid=2326&sortby=lastpost&sortorder=descending

<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.forex.se/exchange_sve.cfm", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
%>
mozillaMedlem sedan juli 20011 084 inlägg
#3

hmm?

Okej om jag förstår alla inläggen rätt, som kom upp vid sökningen finns det två sätt! ena är att man använder ASPTear andra via XMLHTTP. Min fråga är nu vilken som e bäst/lättast? Läste att båda två, har stora buggar.

Jag har tillgång att installera komponent på servern, men i så fall bara gratis versionen.

Och sedan vilket är enklas om man bara vill ha ut en liten del av en innehållet på hemsida?

solbulleMedlem sedan mars 20015 287 inlägg
#4

Jag är väl inte så haj på detta egentligen, men jag tror att det beror ganska mycket på hur det du vill ha ut ser ut så att säga.

Ovanstående har helt klart en del nackdelar men kanske det går att åtgärda.

Det blir väl sen RegEx som gäller:

<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://webforum.aleborg.com/forum/showthread.php?s=&threadid=38113", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set RegEx = New RegExp
RegEx.Global = True

RegEx.Pattern = "Jag har "
strHTML= RegEx.Replace(strHTML,( chr(253) ))
RegEx.Pattern = "det"
strHTML= RegEx.Replace(strHTML,( chr(254) ))
RegEx.Pattern = chr(253) & "[^" & chr(254) & "]*" & chr(254)
Set strOut = RegEx.execute(strHTML)

strHtml = strOut.Item(0)
Set RegEx = Nothing

strHtml = Replace(strHtml,chr(253)," ")
strHtml = Replace(strHtml,chr(254)," ")

Response.Write strHTML

%>
mozillaMedlem sedan juli 20011 084 inlägg
#5

shysst det verkar fungera supper!

124 ms totalt · 3 externa anrop · v20260731065814-full.beb2e261
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
122 ms — hämta tråd, inlägg och bilagor (db)