Hej! En sak jag undrar med ett script jag har laddat ned från
http://www.pbfsoft.net
det är bildgalleriet.
<html>
<head>
<title>pbf´s bildgalleri 1.0</title>
</head>
<body>
<h2>pbf´s bildgalleri 1.0</h2>
<form method="post" enctype="multipart/form-data" action="?do=ladda_upp">
<input type="file" name="file">
<input type="submit" value="Skicka filen">
</form>
<%
If Request.Querystring("do") = "ladda_upp" Then
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save(Server.MapPath("bilder"))
response.write "Bilden är nu uppladdad."
end if
%>
<%
// Koden nedan kommer ifrån
http://www.guffa.com
' ADO-konstanter
Const adInteger = 3
Const adDate = 7
Const adVarChar = 200
Const adVarWChar = 202
' dimensionera variabler
Dim objRS, objFS, objFile
' skapa ett recordset-objekt
Set objRS = Server.CreateObject("ADODB.Recordset")
' skapa fält i recordsetet
objRS.Fields.Append "namn", adVarWChar, 256
objRS.Fields.Append "storlek", adInteger
objRS.Fields.Append "uppladdat", adDate
' öppna recordsetet (utan databaskoppling och utan SQL-fråga)
objRS.Open
' skapa ett FSO-objekt
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
' loopa igenom filerna i mappen
For each objFile in objFS.GetFolder(Server.MapPath("bilder")).Files
' skapa en ny post i recordsetet
objRS.AddNew
' lägg in värden i posten
objRS("namn") = objFile.Name
objRS("storlek") = objFile.Size
objRS("uppladdat") = objFile.DateCreated
Next
' ta bort FSO-objektet
Set objFS = Nothing
' sortera recordsetet
objRS.Sort = "storlek desc"
' loopa ut filerna i en tabell
Do Until objRS.EOF
%>
" target="_blank">[img]bilder/<%=objRS([/img]" height="50" width="50" style="border:1px solid #EEEEEE;" alt="Storlek: <%=objRS("storlek")%> byte | Uppladdad: <%=objRS("uppladdat")%>" />
<%
objRS.MoveNext
Loop
' stäng recordsetet
objRS.Close
' ta bort recordsetet
Set objRS = Nothing%>
<center>
Scriptet får användas helt fritt om nedanstående text förblir intakt.
©
PBFSoft.com 2006
</center>
</body>
</html>
Går det att skriva om att man får länken till bilden när man laddar upp bilden?