Skapa radera funktion kopplat till...

2 svar · 253 visningar · startad av jlee 28 sep. 2003

jleeMedlem sedan dec. 2002378 inlägg

Frågan28 sep. 2003 16:46#1

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
%\>

SebbeMedlem sedan jan. 20032 285 inlägg

28 sep. 2003 17:05#2

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
%>

jleeMedlem sedan dec. 2002378 inlägg

28 sep. 2003 17:26#3

Exakt så Sebbe, TACK så mycket!