webForumDet fria alternativet

Infoga hemsida?

ASP

4 svar · 394 visningar · startad av mozilla

Medlem sedan juli 20011 084 inlägg
Frågan#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?

Medlem 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
%>
Medlem 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?

Medlem 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

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

shysst det verkar fungera supper!

261 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
126 ms — ändringar (db)