bilduppladdare/bildgalleri

frippe · 2007-06-22, 01:41

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?

Aktiva användare som för närvarande tittar på det här ämnet: 1 (0 medlemmar och 1 gäster)

Menu

bilduppladdare/bildgalleri