Nej.. :o)
<html>
<head>
<title>Lister filer i mappe!</title>
<style type="text/css">
<!--
a:link {color: #5881CA; text-decoration: none; font-family: Tahoma}
a:visited {color: #5881CA; text-decoration: none}
a:hover {color: #800000; text-decoration: underline}
td { font-family: Tahoma; font-size: 8pt}
-->
</style>
<script language="javaScript">
function Tabort(go){if (confirm("Vill du virkligen slette dette bilde?\n\nHelt sikkert?")){self.location=(go)}else{}}
</script>
</head>
<body topmargin="0" leftmargin="0">
<table border="0" width="410" cellspacing="0" cellpadding="5">
<tr>
<td width="100%">
<%'##########################################################################################################
'--------------------------------------------------INSTILLNINGER-----------------------------------------------------------------------------------------------
'############################################################################################################
'###################################################
'-------------MAPPEN DU LISTER FILERNE FRA----------------------
'###################################################
MappNamn = "billeder" &Request.Querystring("dir")
'###################################################
'-------------------ANTAL BILLEDER PR SIDE-------------------------------
'###################################################
AntalPerSida = 10
'############################################################################################################
'-------------------------------------------------lISTER ALLE FILENE SOM ER I MAPPEN------------------------------------------------------------------
'############################################################################################################
Set Mappkoll = Server.CreateObject("ISSecureFile.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))%>
<table border="0">
<tr>
<td colspan="5" width="372"><font size="2"><b>Liste over alle filer i mappen <i><%=MappNamn%>
</i></b></font></td>
</tr>
<tr>
<td colspan="5"><hr size="1"></td>
</tr>
<tr>
<td width="17">
<%If Request.Querystring("dir") <> "" Then%>
<a href="java script:history.back();"><img src="../bilder/back.gif" border="0" alt="Upp en nivå"></a>
<%End If%>
</td><td width="100"><b>Filnavn</b></td><td width="99"></td><td width="100"><b>Filstørrelse</b></td><td align="right" width="38"> </td>
</tr>
<tr>
<td colspan="5"><hr size="1"></td>
</tr>
<%PS = AntalPerSida
If Mapp.Files.Count Mod PS Then
Sidor = Mapp.Files.Count \ PS + 1
Else
Sidor = Mapp.Files.Count \ PS
End If
Sida = Request.QueryString("sida")
If Sida = "" Then
Sida = 1
End If
Start = (Sida - 1) * PS
Slut = Start + PS
If Mapp.Files.Count = 0 Then%>
<tr>
<td width="17"> </td><td colspan="4" width="349">Ingen filer!</td>
</tr>
<%Else
Set MyDrive = Mapp.Subfolders
For Each Folder in MyDrive%>
<tr>
<td width="17"><img src="../bilder/mapp.gif"></td><td width="145"><a href="pic.asp?dir=<%=Request.Querystring("dir")%>\<%=Folder.Name%>"><%=Folder.Name%></a></td><td width="48"></td><td width="100"><b>Mappe</b></td><td width="38"> </td>
</tr>
<%Next
For Each File In Mapp.Files
'Totalt = Totalt + File.Size
bild = InStrRev(LCase(File.Name), "." )
If bild < 1 Then bild = "" Else bild = Mid(LCase(File.Name),bild+1)
If X < Start Then
ElseIf X < Slut Then%>
<tr>
<td width="17"><img src="bilder/<%=bild%>.gif"></td><td width="100"><a href="<%=MappNamn%>/<%=File.Name%>" target="_blank"><%=MappNamn%>/<%=File.Name%></a></td><td width="99"></td><td width="100"><%=Round(File.Size/1000, 1)%> kb</td><td align="right" width="38"><a href="java script:Tabort('pic.asp?visa=delete&name=<%=File.Name%>&sida=<%=Request.QueryString("sida")%>&dir=<%=Request.Querystring("dir")%>')">Slet</a></td>
</tr>
<%Else
Exit For
End If
X = X + 1
Next
End If
If Sidor > 1 Then%>
<tr>
<td colspan="5"><hr size="1"></td>
</tr>
<tr>
<td colspan="5" width="372">
<%For i = 1 To Sidor
If i = CInt(Sida) Then
Response.Write "<b>" & i & "</b>"
Else
Response.Write " <a href=pic.asp?dir=" & Request.Querystring("dir") & "&sida=" & i & ">" & i & "</a> "
End If
Next%>
</td>
</tr>
<%End If%>
<tr>
<td colspan="5"><hr size="1"></td>
</tr>
<tr>
<td colspan="5" width="372"><b><%=Mapp.Files.Count%></b> filer og <b><%=Mapp.SubFolders.Count%></b>
mapper i mappen <b><%=MappNamn%></b><!--<br>Totalt <b><%=Round(Totalt/1000, 1)%></b> kb--></td>
</tr>
</table>
<%
'############################################################################################################
'-------------------------------------------------SLET DET BILLED DU HAR VALGT--------------------------------------------------------------------
'############################################################################################################
If Request.QueryString("visa") = "delete" Then
If MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Request.QueryString("name")) Then
MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & Request.QueryString("name"))
End If
Response.Redirect "pic.asp?sida=" & Request.QueryString("sida")
End If
Set Mapp = Nothing
Set Mappkoll = Nothing%></td>
</tr>
</table>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
