8 svar · 575 visningar · startad av Asa
Kan man på något vis lista bilder från en annan hemsidas bildmapp på en sida på en egen server?
Alltså listningsfilen ligger på min gruvsjo.com och bilderna på ex: tradera.se/bilder
Gäller denna sidan jag vill hämta bilderna från och visa dem som bilder oxå:
http://www.userbars.org/data/thumbnails/1/
Det går med msxml2.xmlhttp.
Kolla microsofts sidor för dokumentation.
Okej, skall se om jag hittar nåt men ni får gärna hjälpa mig med koden tack.
Är det nått i stil med länken nedan du menar?
http://www.hjd.se/playground/list/
Någonting liknande men helst vill jag visa alla bilderna på den sidan jag länkade till i mitt inlägg.
Ja men det är precis vad scriptet gör
Aha, då är det ju perfekt :) Får man ta del av scriptet ? :)
Det är inte vackert och om du inte delar av sidan eller implementerar en pager eller liknande kommer servern förmodligen gnälla lite men endå:
<%
strUrl = "http://www.userbars.org/data/thumbnails/1/"
strFileExt = "jpg,png,gif"
strPattern = "a href=""(.*?)""|a href=(.*?)"
if request("file") <> "" then
Response.ContentType ="image/jpeg"
Set xmlhttp = CreateObject("Msxml2.SERVERXMLHTTP")
xmlhttp.Open "GET", strUrl & request("file"), false
xmlhttp.SetRequestHeader "Referer", strUrl & request("file")
xmlhttp.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
xmlhttp.Send(Now)
response.BinaryWrite xmlhttp.responseBody
response.end
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
<!--
body,td,th {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 11px;
color: #333333;
}
a {
color: #333333;
text-decoration: none;
display:block;
padding:2px 0;
text-align:center;
}
a:visited {
text-decoration: none;
color: #999999;
text-decoration:line-through;
}
a:hover {
text-decoration: none;
color: #993333;
}
a:active {
text-decoration: none;
}
.even {
background-color:#FFFFFF;
}
.odd {
background-color:#f6f6f6;
}
-->
</style></head>
<body>
<%
Function RegExpTest(strng,chk)
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = chk
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
For Each Match in Matches
RetStr = RetStr & Match.Value & "|"
Next
RegExpTest = RetStr
End Function
function getFile()
On Error Resume Next
if left(strUrl,7) = "http://" then
Set m_xh = CreateObject("Msxml2.ServerXMLHTTP.3.0")
m_xh.Open "GET", strUrl, FALSE
m_xh.Send
getFile = m_xh.ResponseText
end if
end function
arrImages = split(RegExpTest(getFile(),strPattern),"|")
for i = 5 to ubound(arrImages) -1
strFile = replace(arrImages(i),"""","")
strFile = replace(strFile,"A HREF=","")
if instr(strFileExt,lcase(right(strFile,3))) then
if i mod 2 then className = "even" else className = "odd"
response.write "<a href=""?file="& strFile &""" class="""& className &"""><img border=""0"" src=""?file=" & strFile &""" /></a>" & vbcrlf
end if
next
%>
</body>
</html>
Supertack så hemskt mycket :)