7 svar · 219 visningar · startad av Asa
Kan man på något sätt visa källan- htmlkoden på en sida som ligger på någon annans server och kolla efter ett speciellt ord på en sida med asp? Ex som ligger med exakt denna adress?
Japp, visst kan man det.
Sök på XMLHTTP här i forumet så får du säkert upp en del intressant information. :)
Okej! Tackar för tipset! :) Måste man ha nå speciellt på webbhotellet för att det ska funka?
Nope, inte på nyare servrar baserade på MS-plattform iaf.
Mer intressant läsning:
» http://www.4guysfromrolla.com/webtech/110100-1.shtml
Någon som har ett bra exempel på hur man kollar om en viss länk finns på sidan? Helst upplagd i en function! Har sökt här men inte hittat nåt passande!
Denna verkar funka.
<%
url = "http://www.gruvsjo.com"
exist = "http://www.aspsidan.nu"
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", url, False
xml.Send
If InStr(1, xml.responseText,exist) Then
Response.Write "Länken finns på sidan"
Else
Response.Write "Länken finns ej på sidan"
End If
Set xml = Nothing%>
Lek med denna kod. :)
Den talar i nuläget om hur många gånger besökarna klickat på min banner från din sida:
[RED]<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.gruvsjo.com", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing
Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<img src=""http://www.palleman.nu/banners/palle_88_1.gif"" border=""0"" alt="".*"" width=""88"" height=""31""></a>"
Set hittade = objRegExp.Execute(strHTML)
Function red(strText)
strText = replace(strtext,"<img src=""http://www.palleman.nu/banners/palle_88_1.gif"" border=""0"" alt="""," ")
strText = replace(strtext,""" width=""88"" height=""31""></a>"," ")
red = strText
End Function
For each item in hittade
Response.Write red(item.value)
Next
%>[/RED]
Tackar för det exemplet!