Är det någon som känner till något bra bildslumparskript? Använder detta script för att slumpa en bild vid refresh Hur anger du vilka bilder som du skall slumpa ut? Hej, Vilken filändelse har sidan som du klistrade in koden på? Bilderna ligger i samma mapp. Dokumentet har asp som filändelse, men ligger i ett frameset vilka övriga är vanliga html. Skall alla vara asp? Nej...koden du fick av mig måste köras genom ASP-motorn och det gör den vara om filändelsen är .ASP. Du kan blanda frisk mellan rena HTML filer och ASP filer. Koden exkverars inte. Testa och placera detta på sidan Har du använt ASP kod på sidor som ligger på denna server förut? Jag får inte upp de du tipsar om men jag ska kontakta sysop. Du ska ha stort tack! Hej och tack för tipset,Bildslumparskritp?
På en indexsida har jag en bild som jag vill skall bytas ut mot en annan när man loggar in n:a gång, eller när man trycker på refresh.
Tacksam för tips. Sv: Bildslumparskritp?
<script language="JavaScript" type="text/javascript">
<!-- Hide script from older browsers
var quotes = new Array();
var numberOfQuotes = 0;
var quotes = new Array();
var numberOfQuotes = 0;
function addQuots(quote)
{
quotes[numberOfQuotes++] = quote;
}
// Add quotes
addQuots ("<img src='...'>");
addQuots ("<img src='...'>");
</script>
<script language="JavaScript" type="text/javascript">
<!--
document.write(quotes[Math.round(Math.random()*(quotes.length-1))]);
// -->
</script>Sv: Bildslumparskritp?
Har du dessa pekare i en databas?
Exempel 1;
Här är en lösning som bygger på en DB som innehåller sökvägen till bilderna.
Skjuter från höften här. Den kan vara buggar.
Bilderna ligger i en db som ser ut som nedan
tabellnamn: tbl_rndImage
imgID imgPath
'hämta alla bilder
Dim sSQLRnd 'as String
Dim rsRnd 'as Recordset
sSQLRnd = "SELECT * FROM tbl_rndImage"
Set rsRnd = Server.CreateObject("adodb.recordset")
rsRnd.Open sSQLrnd,Conn,3
if rsRnd.eof or rsRnd.bof then
'inga bilder finns så skriv ut en standardbild
%>
<img src="images/standard_bild.gif">
<%
else
'hur många bilder finns i recordsetet
Dim imageAnt 'as integer
imageAnt = rsRnd.recordcount
'slumpa ut ett tal i och antalet poster
Dim intNr 'as Integer
Randomize
intNr = Int((imageAnt * Rnd) + 1)
'hoppa till vald post
rsRnd.absolutePosition = intNr
'skriv ut bilden
%>
<img src="<%=rsRnd("imgPath")%>">
<%
end if
rs.close
Set rs = Nothing
%>
Exempel 2:
Du placerar alla dina bilder i en sträng som du petar in i en array.
Dim imgString 'as String
imgString = "bild1.gif,bild2.gif,bild3.gif"
Dim myImgArr 'as Array
myImgArr = split(imgString,",")
Dim antImg 'as Integer
antImg = Ubound(myImgArr) + 1
Randomize
Dim intNr 'as Integer
intNr = Int((antImg * Rnd))
%>
<img src="<%=myImgArr(intNr)%>">
Ett par lösningar som kanske hjälper. Exempel 1 är kanske inte så effetiv om det finns många bilder i recordsetet men i alla fall.
//PutteSv: Bildslumparskritp?
Prövade ditt 2:a exempel, men det funkade inte. Mina bilder(bild1.jpg och bild2.jpg) ligger i samma katalog.
Något jag blev förvånad över är att din kod syns när klickar Visa källa i webbfönstret. Skall man kunna det?
Så här la jag in din kod html-dokumentet:
<code>
< !DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<TITLE>Fastighetshuset förmedlar</TITLE>
< script language="JavaScript">
< !-- function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</HEAD>
<%
Dim imgString 'as String
imgString = "bild1.jpg,bild2.jpg"
Dim myImgArr 'as Array
myImgArr = split(imgString,",")
Dim antImg 'as Integer
antImg = Ubound(myImgArr) + 1
Randomize
Dim intNr 'as Integer
intNr = Int((antImg * Rnd))
%>
< BODY background="bilder/bakgrund.gif" bgcolor="White" text="Black" link="#336699"
vlink="Gray" alink="#666666">
<table cellspacing="0" cellpadding="0" border="0" height="289">
<tr>
<td width="45"><img src="bilder/pxl.gif" width=45 height=5 alt=""
border="0"></td>
<td width="301" valign="top" colspan="3">
<img src="bilder/pxl.gif"
width=5 height=20 alt="" border="0"><br>
<img src="bilder/valkommen1.gif"
width=490 height=30 border=0></td></tr>
<tr>
<td width="45" height="233"><img src="bilder/pxl.gif"
width=45 height=5 alt=""
border="0"></td>
<td width="200" valign="top" height="233"><img src="bilder/pxl.gif"
width=5
height=20 alt="" border="0"><br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Fastighetshuset</b>
har funnits sedan tidigt 70-tal. Vår verksamhet är uppdelad i tre affärsområden:
<br>
<br>
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>1.</b>
Traditionellt fastighetsmäkleri<br>
<br>
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b> 2.</b>
Försäljning av nyproducerade bostadsrätter i grupphusområden<br>
<br>
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>3.</b>
Ombildning av hyresrätter till bostadsrätter, samt rekonstruktioner av andelshus
och bostadsföreningar<br>
<br>
</font><font face="verdana,arial,helvetica" size="1">Vår adress: Alviksvägen
1 <br>
167 53 Bromma<br>
08-250 333<br>
<br>
</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0033"><b><font color="#006699">Vilka
är vi? Klicka!</font></b></font> <font face="verdana,arial,helvetica" size="1">Bo
Bergman<br>
Bertel
G Blomberg Jan
Malmgren</font><font face="arial, helvetica"
size="1"> </font></td> <td width="20" height="233"> </td>
<td valign="top" height="233"> <img src="bilder/pxl.gif"
width=5 height=20 alt="" border="0"><br>
<code>
<img src="<%=myImgArr(intNr)%>" width="285" height="187" border="0">
</code><br>
<font face="arial, helvetica"
size="1">Producerad av <a
href="http://www.laterna.com" target="_top">Laterna Graphica</a> 1998</font> </td>
</tr>
</table>
</BODY>
</HTML>
</code>Sv: Bildslumparskritp?
Den måste ha en .asp ändelse.
Ligger bilderna i samma mapp som sidan koden är på?
Om inte får du lägga till sökvägen:
<img src="../images/<%=myImgArr(intNr)%>">
Hör av dig om det inte fungerar
//PutteSv: Bildslumparskritp?
Sv: Bildslumparskritp?
Men finns det ASP-kod på en sida så måste den ha den rätta ändelsen.
Vilken länk är det till sidan så jag kan titta på det.
//PutteSv: Bildslumparskritp?
Datum: <%=now()%>
Är asp igång så skall dagens datum skrivas ut.
//PutteSv: Bildslumparskritp?
Du måste associera ASP filer med ASP.dll.
Högerklicka på en site, välj Properties.
Klicka på fliken Directory och sedan på App Mappings.
I den listan så skall följande finnas med
.asp c:\winnt\system32\inetsrv\asp.dll.
Om inte så får du kontakta Sysop och be dem aktivera ASP.
//PutteSv: Bildslumparskritp?
Sv: Bildslumparskritp?
Prövade VB-skript men det gick inte pga att ASP inte var igång på det hotellet. Så, nu tänkte jag prova ditt.
Jag är nybörjare, så jag vore glad om du kunde kommentera in lite handledning i din kod; vad skall vara var osv. Har försökt ett par ggr på egen hand men, får det inte att fungera.
Påskhälsningar,
Joakim