---
title: "Skapa radera funktion kopplat till..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/87110-skapa-radera-funktion-kopplat-till"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jlee"
published: "2003-09-28T16:46:31.000Z"
updated: "2003-09-28T17:26:45.000Z"
replies: 2
views: 260
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/87110-skapa-radera-funktion-kopplat-till"
---

# Skapa radera funktion kopplat till...

## #1 — jlee, 2003-09-28T16:46Z

Detta script visar bilder i en mapp och jag undrar om man kan skapa radera funktion (en bild i taget) till detta script?

 \<%
    Dim FSO
    Dim Files
    Dim File
    Dim Count
    Const Columns = 2
    Const ImageWidth = 100
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Set Files = FSO.GetFolder(Server.MapPath("./")).Files
    Set FSO = Nothing
    Response.Write "\<TABLE width=""500px"" border=""0"" cellspacing=""0""\>"
    Response.Write "\<TR\>"
    Count = 0
    For Each File In Files
    	Select Case LCase(Right(File.Name, 3))
    		Case "jpg", "gif", "bmp", "png"
    			Count = Count + 1
    			if Count Mod Columns = 1 Then Response.Write "\</TR\>\<TR\>"
    			
    			Response.Write "\<TD align=""center"" valign=""top""\>"
    			
    			Response.Write "\<A href=""" & File.Name & """\>"
    			Response.Write File.Name
    			Response.Write "\<BR\>\<IMG src=""" & File.Name & """ border=""0"" width=""" & ImageWidth & """\>\<BR\>"
    			Response.Write "\</A\>"
    			
    			Response.Write "\</TD\>"
    	End Select
    Next
    Response.Write "\</TR\>"
    Response.Write "\</TABLE\>"
    Set File = Nothing
    Set Files = Nothing
    %\>

Permalänk: https://www.webforum.nu/p/87110

## #2 — Sebbe, 2003-09-28T17:05Z

Menar du ungefär såhär?

```
<%
If Request.QueryStrind("do") = "" Then
  Dim FSO 
  Dim Files 
  Dim File  
  Dim Count 
  Const Columns = 2 
  Const ImageWidth = 100 

  Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
  Set Files = FSO.GetFolder(Server.MapPath("./")).Files 
  Set FSO = Nothing 
  Response.Write "<TABLE width=""500px"" border=""0"" cellspacing=""0"">" 
  Response.Write "<TR>" 
  Count = 0 

  For Each File In Files 
    Select Case LCase(Right(File.Name, 3)) 
      Case "jpg", "gif", "bmp", "png" 
        Count = Count + 1
 
        if Count Mod Columns = 1 Then Response.Write "</TR><TR>" 

        Response.Write "<TD align=""center"" valign=""top"">" 
        Response.Write "<A href=""" & File.Name & """>" 
        Response.Write File.Name 
        Response.Write "<BR><IMG src=""" & File.Name & """ border=""0"" width=""" & ImageWidth & """></a><BR>" 
        Response.Write "<a href=""?do=delete&bild=" & File.Name & """>Ta bort</a>" 
        Response.Write "</TD>" 
    End Select 
  Next 

  Response.Write "</TR>" 
  Response.Write "</TABLE>" 
  Set File = Nothing 
  Set Files = Nothing 
ElseIf Request.QueryString("do") = "delete" Then
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  If objFSO.FileExists(Server.MapPath(Request.QueryString("bild"))) Then
    objFSO.DeleteFile(Server.MapPath(Request.QueryString("bild")))
  End If

  Set objFSO = Nothing
  Response.Redirect("?do=")
End If
%>
```

Permalänk: https://www.webforum.nu/p/1170789

## #3 — jlee, 2003-09-28T17:26Z

Exakt så Sebbe, TACK så mycket!

Permalänk: https://www.webforum.nu/p/1170811

---

Tråden på webben: https://www.webforum.nu/amne/asp/87110-skapa-radera-funktion-kopplat-till