Igår fick jag hela databasen raderad när en kund skulle skriva ut en sida, då blev det något fel och den började skriva ut en massa sidor och efter det säger han att all info var raderad i databasen, och det var det och därtill så var alla uppladdade bilder i en mapp raderad också. Jag förstår inte hur detta kunna hänt!
Jag har en sida som listar alla inläggen i databasen och där har jag även en raderar länk, vid klick på länken så kommer man till nedan sida, kan någon se om det är något fel på sidan som skulle kunna ha raderat allt?
Tack på förhand!
<%
response.buffer=true
dim conn,rs,sql,strConn,id,name,delete,Mappnamn,Mapp,Mappkoll,onpage
dim img1, img2, img3, img4, img5, marke,Uploader
'*****************hämtar id:et från delete länken*******************''
id=request.querystring("id")
delete=request.querystring("del")
img1=request.querystring("img1")
img2=request.querystring("img2")
img3=request.querystring("img3")
img4=request.querystring("img4")
img5=request.querystring("img5")
marke=request.querystring("marke")
'********raderar länken********
sql="Delete FROM bilar WHERE upload_id="& request.querystring("id") &";"
set rs=conn.execute(sql)
'**kollar om bilderna ligger på servern och deletar dom vid klick på delete länken på upload_links.asp***************
MappNamn = "images"
Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))
'If Request.QueryString("del") = "delete" Then
If MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & img1) Then 'OR MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing2")) OR MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing3")) OR MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing4")) OR MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing5")) Then
MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & img1)
'MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing2"))
'MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing2"))
'MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing3"))
'MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing3"))
'MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing4"))
'MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing4"))
'MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing5"))
'MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & Uploader.Form("existing5"))
'Set Mapp = Nothing
'Set Mappkoll = Nothing
End If
MappNamn = "images"
Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))
If MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & img2) Then
MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & img2)
'Set Mapp = Nothing
'Set Mappkoll = Nothing
End If
MappNamn = "images"
Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))
If MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & img3) Then
MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & img3)
'Set Mapp = Nothing
'Set Mappkoll = Nothing
End If
If MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & img4) Then
MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & img4)
'Set Mapp = Nothing
'Set Mappkoll = Nothing
End If
If MappKoll.FileExists(Server.MapPath(MappNamn) & "\" & img5) Then
MappKoll.DeleteFile(Server.MapPath(MappNamn) & "\" & img5)
Set Mapp = Nothing
Set Mappkoll = Nothing
End If
'End If
response.redirect("links.asp")
%>