God evening Hittade ett gammalt skript som utför det du önskar. Det är snabbt skrivet och förmodligen inte helt genomtänkt, men det fungerar åtminstone... det verkar inte funka någe bra. Om du vill ha ett asp-script med en databas, så skriv ett mail, så skall jag försöka att hjälpa dig. jag är mest ute efter ett script som skall kunna göra sånt automatiskt.. att den letar upp alla bilder som ligger i samma mapp som scriptet typ.. Skriptet du fick fungerar, testade precis och det fungerade som en dans. såhär blir det på mitt webhotells server:bildvisnings-script
Någon som råkar sitta på ett skript som funkar så att det visar alla bilder i en mapp, som miniatyrer på en sida. Och när man klickar på miniatyrerna kommer ett popupfönster som visar bilden i full storlek. Det ska alltså gå att lägga till nya bilder i mappen utan att hålla på o ändra i script och databaser.. den nya bilden kommer med i listan ändå.
Alla tips blir jag glad över :-BSv: bildvisnings-script
Fil nr 1(bildvisning.asp):
<code>
<script type="text/javascript">
function openwindow(pic)
{
window.open('pic.asp?pict=' + pic,'','toolbar=no, scrolling=auto, directories=no, status=no, menubar=no, scrollbars=no=resizable=no, minimize=no, width=400, height=500');
}
</script>
</head>
<%
Response.Write "Visar nu bilder från katalogen ../pics/<br><br>"
Dim intCountF ' as integer
Dim FileSizeKB ' as integer
Dim strFileSize ' as integer
Dim f ' as string
Dim strFolderName ' as string
Dim iCount ' as integer
intCountF = 0
intCut = 4
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set FSOFo = FSO.GetFolder(Server.mapPath(".") & "./pics")
set f = FSOFo.Files
Response.Write iRead
For Each fl in f
intCountF = intCountF + 1
Response.Write ""
If intCountF = intCut Then
Response.Write "<br>"
intCut = intCut + 4
End If
Next
Function getSize(intFolderSize)
Decimaler = 2
FileSizeKB = 1048576
newFileSize = Round(intFolderSize / FileSizeKB, Decimaler)
strFileSize = newFileSize & " Mb"
Response.Write strFileSize
End Function
iFSize = FSOFo.Size
strFolderName = FSOFo.Name
%>
<br>Katalogen <%=strFolderName%> är för nuvarande <%=getSize(iFSize)%> stor och innehåller <%=intCountF%> stycken filer.
</code>
Fil nr 2(pic.asp):
<code>
<html>
<head>
<title>
<%=Request.QueryString("pict")%>
</title>
<script type="text/javascript">
function getsize()
{
var bildX = document.bilden.width;
var bildY = document.bilden.height;
self.resizeTo(bildX + 35, bildY + 90);
}
</script>
</head>
<body onLoad="getsize();">
<table border=0 align="right" valign="top">
<tr>
<td valign="top" align="right">
a href="Javascript:self.close();">Stäng</a></font>
</td>
</tr>
<tr>
<td>
<center><img src="/images/<%=Request.Querystring("pic")%>" name="bilden"></center>
</td>
</tr>
</body>
</html>
</code>
Mycket enkel liten kodsnutt, men det är åtminstone en början.
/MichaelSv: bildvisnings-script
ie laddar och laddar men kommer aldrig fram.Sv: bildvisnings-script
Man lägger in bildens namn i databasen och scriptet är gjort så att den kan visa både stora och små bilder. (du måste förstås ha bägge storlekana själv).
saw@songer.comSv: bildvisnings-script
skulle vara ganska praktiskt om man skulle få det att funka.. bara att skicka upp ytterligare bilder via ftp i den mappen.. utan att behöva ändra i databaser.. skulle va satans smidigt..
typ.. lista *.jpg.. om ni förstår.. =)Sv: bildvisnings-script
Du råkar inte köra något antivirusprogram som kanske spökar till det för dig? Vet att åtminstone Norton Antivirus hindrar automatiskt vissa skript då dessa kan vara farliga.
Om det är installerat - kolla dina inställningar!
/MichaelSv: bildvisnings-script
Visar nu bilder från katalogen ../pics/
Microsoft VBScript runtime error '800a0044'
Device unavailable
/default.asp, line 24
Jag har både lagt en pics mapp i samma mapp som scriptet ligger i, och i mappen över.