skifte billede med fade
HejJeg har her følgende kode:
<% if (Request.Cookies("PS") = "" OR Request.Cookies("PS") = "yes") then
PicShift = Request.Cookies("PicShift")
if PicShift = "" then
PicShift = "5000"
end if
dim image2, Image_Array2
Set directory2=server.createobject("scripting.filesystemobject")
Set allfiles2=directory2.getfolder(server.mappath("MainPics"))
For each image2 in allfiles2.files
SPcount=SPcount+1
Next
Set allfiles2=nothing
Set directory2=nothing
%>
<div style="position: relative;">
<img style="position: absolute; z-index: 2;" height="100%" width="100%" border="0" onmouseover="window.status='Tilfældigt billede...'; return true;" onmouseout="window.status='';" galleryimg="no" src="transparent.gif?uid=<%=replace(now()," ","")%>" onclick="<% if (Session("id") <> "" AND NOT Session("id") = "0") then%>jumpto()<%elseif (Session("id") = "0" OR Session("id") = "") then%>changeit()<%end if%>" alt="Aktuelt billede">
<img style="position: absolute; z-index: 1;" height="100%" width="100%" border="0" onmouseover="window.status='Tilfældigt billede...'; return true;" onmouseout="window.status='';" galleryimg="no" id="billede" src="MainPics/current/current.jpg?uid=<%=replace(now()," ","")%>" alt="Tilfældigt billede">
</div>
<script type="text/javascript">
var currentimage = 0;
var images = new Array(<%="" & SPcount+1 & ""%>);
var ilinks = new Array(<%="" & SPcount+1 & ""%>);
<%
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile(Server.MapPath("MainPics/current/current.txt"), 1)
id = "" & f.ReadAll & ""
f.Close
set f=nothing
set fs=nothing
%>
images[0] = new Image();
images[0].src = "MainPics/current/current.jpg";
ilinks[0] = "pics/redirGALL.asp?id=<%="" & id & ""%>";
<%
dim image
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath("MainPics"))
For each image in allfiles.files
IMGname = "" & image.Name & ""
PICcount=PICcount+1
Oname = "" & Replace("" & lcase("" & IMGname & "") & "", ".jpg", "") & ""
strSQL = "select * from StartPic WHERE pic=" & Oname & ""
set rs = Conn.execute(strSQL)
if NOT rs.EOF then
do until rs.EOF
PicID = "" & rs("gall") & ""
%>
images[<%="" & PICcount & ""%>] = new Image();
images[<%="" & PICcount & ""%>].src = "MainPics/<%="" & IMGname & ""%>";
ilinks[<%="" & PICcount & ""%>] = "pics/redirGALL.asp?id=<%="" & PicID & ""%>";
<%
rs.MoveNext
Loop
else
%>
images[<%="" & PICcount & ""%>] = new Image();
images[<%="" & PICcount & ""%>].src = "MainPics/<%="" & IMGname & ""%>";
ilinks[<%="" & PICcount & ""%>] = "#";
<%
end if
Next
Set allfiles=nothing
Set directory=nothing
rs.close
set rs=nothing
%>
function jumpto() {
window.location.href = ilinks[currentimage];
}
function changeit() {
var el = document.getElementById("billede");
currentimage = Math.floor(Math.random() * images.length);
el.src = images[currentimage].src;
}
setInterval("changeit()", <%="" & PicShift & ""%>);
</script>
<%
else
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile(Server.MapPath("MainPics/current/current.txt"), 1)
id = "" & f.ReadAll & ""
f.Close
set f=nothing
set fs=nothing
%>
<div style="position: relative;">
<img style="position: absolute; z-index: 2;" height="100%" width="100%" border="0" onmouseover="window.status='Tilfældigt billede...'; return true;" onmouseout="window.status='';" galleryimg="no" src="transparent.gif?uid=<%=replace(now()," ","")%>" alt="Aktuelt billede">
<img style="position: absolute; z-index: 1;" height="100%" width="100%" border="0" onmouseover="window.status='Tilfældigt billede...'; return true;" onmouseout="window.status='';" galleryimg="no" src="MainPics/current/current.jpg?uid=<%=replace(now()," ","")%>" alt="Aktuelt billede">
</div>
<%end if%>
Dette er en blanding af asp og java-script som henter nogle billeder i en bestemt mappe som java-scriptet så skifter i mellem en gang i mellem (hvert 5. sekund som standard).
- men kan det lade sig gøre at lave fade på den udskiftning af billeder og i så fald, hvordan skal det så se ud?
Det skal helst være uden at der er tale om en applet...
Grunden til at jeg har to img-tags er at jeg har en ramme ovenpå selve billedet... og det er så selve billedet der skal fade - rammen skal aldrig hverken fade eller skifte...
- kan dette lade sig gøre?
\Dan
