Asp upload, men sen då?? radera filer...

2 svar · 277 visningar · startad av Tompa5 26 juni 2005

Tompa5Medlem sedan aug. 200241 inlägg

Frågan26 juni 2005 21:12#1

Hejsan!

So rubriken lyder, (lite luddigt) så har jag ett uploadscript som funkar, men när man har laddat upp filen så kommer man till en sida som visar alla filer som man har laddat upp/filer som finns i den mappen.

Jag vill ha en radera-funktion där med så att man kan radera de filer som man inte längre vill ha där.

Nån som fattar vad jag menar och kan hjälpa mig med detta?

<!-- Detta ASP-script är skrivet av Joakim på JoakimWeb.com -->
<!--#include file="koppling.asp" -->
<html>
<link href=style.css rel=stylesheet type=text/css>
<body>
<table width='285'>
  <tr>
<td colspan=2><font face=verdana size=2><div align=center>LADDA UPP FILER</div></font></td>
</tr>
<tr>
<td colspan=2><hr size=1 color=#000000></td>
</tr>
<tr>
<td width=60%><font face=verdana size=1><b>Filnamn</b></font></td>
<td width=40%><font face=verdana size=1><b>Filstorlek</b></font></td>
</tr>
<%
' Här hämtas alla filerna
For Each filen In mapp.files
%>
<tr>
<td width='60%'><font face=verdana size=1><a href="<%Response.Write mapp1 & "/" & filen.Name %>">
<%Response.Write filen.name%></a></font></td>
    <td width='40%'><font face='verdana' size='1'> 
      <%Response.Write Round(filen.Size/1024,2)%>
      Kb</font></td>
</tr>
<%Next%>
<tr>
<td colspan='2'><hr size='1' color='#000000'></td>
</tr>
<tr>
<td align='left' colspan='2'>

<form name="frmUpload" method="post" enctype="multipart/form-data" action="laddaupp.asp?do=laddaupp">
<input type='file' name='upload' style='Border: 1px solid; font-family: verdana; font-size: 10px'>&nbsp;<input type='submit' value='Ladda upp' style='border: #000000 1px solid; font-family: verdana; font-size: 10px'>
</form>
</td>
</tr></table>
</body>
</html>

SannyWMedlem sedan jan. 2003438 inlägg

26 juni 2005 21:34#2

Har suttit och lekt med en liknande sak men med bilder, du blir tvungen att förändra lite:

Sub UploadDeleteImage
  pic = Request.Querystring("filename")

  '// Open FSO to remove the original file
  Dim objFSO 
  set objFSO=Server.CreateObject("Scripting.FileSystemObject")

  If objFSO.FileExists(Server.MapPath("upload/"& pic &"")) Then 
    objFSO.DeleteFile(Server.MapPath("upload/"& pic &""))
  else
    response.Write("Ett fel uppstod vid borttagning av: "& pic &"")
  End IF 

  Set objFSO = Nothing

  Response.Redirect "upload.asp"
End Sub

Anropar då sub genom:

<a href='upload.asp?do=delete&filename=" & fil.Name & "' >Ta bort</a>

Missadet detta först, har även detta inne i den vanliga bodyn.

<% If Request.Querystring("do") = "delete" then 
  Call UploadDeleteImage
End if %>

Tompa5Medlem sedan aug. 200241 inlägg

26 juni 2005 23:03#3

Ska testa detta så fort jag får tid...tack så hemskt mycket =)