22. marts 2005 - 10:17Der er
5 kommentarer og 1 løsning
slet billede fso
Hej Eksperter
Jeg forsøger nedenstående at slette et billede fra webserveren samt databasen.
<% 'Sletter billede fra databasen og serveren Set rs_del_picture = Server.CreateObject("ADODB.RecordSet") rs_del_picture.open "Select * From [Pictures] Where Id =" & request.QueryString("Picture_Id") , Conn,1,3 'Udskriver billedet for at se om stien er rigtig response.write("<img src='../userfiles/"&Unique_Name&"/pictures/"&rs_del_picture("Picture_Url")&"'>") Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.GetFile("../userfiles/"&Unique_Name&"/pictures/"&rs_del_picture("Picture_Url")&"") MyFile.Delete rs_del_picture.Delete %>
Lige nu kommer billedet frem, men nedenunder står der: --------------------------------------------------------------- Microsoft VBScript runtime error '800a0035'
File not found
/admin/pictures.asp, line 138 ---------------------------------------------------------------
Line 138: Set MyFile = fso.GetFile("../userfiles/"&Unique_Name&"/pictures/"&rs_del_picture("Picture_Url")&"")
Der er sletterettigheder på serveren - så problemmet er ikke der!
Får denne fejl nu: ---------------------------------------------------------------- Active Server Pages error 'ASP 0116'
Missing close of script delimiter
D:\WEB\zantiago.com\www\kildekode/userfiles/demo/pictures/2.jpg, line 172
The Script block lacks the close of script tag (%>). error '8000d001'
/admin/pictures.asp, line 135 ----------------------------------------------------------------
Koden er nu: ---------------------------------------------------------------- <% 'Sletter billede fra databasen og serveren Set rs_del_picture = Server.CreateObject("ADODB.RecordSet") rs_del_picture.open "Select * From [Pictures] Where Id =" & request.QueryString("Picture_Id") , Conn,1,3 server.Execute("../userfiles/"&Unique_Name&"/pictures/"&rs_del_picture("Picture_Url")) Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.GetFile("../userfiles/"&Unique_Name&"/pictures/"&rs_del_picture("Picture_Url")&"") MyFile.Delete rs_del_picture.Delete %> ----------------------------------------------------------------
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.