Tjenare! Jag har denna ta bort foto kod! Man ska kunna ta bort sitt foto, och det fungerar! Men om man inte har en bild så kan man ta bort original bilden! Å det vill ja inte! Här e koden:
<%
SQL2="SELECT * FROM users WHERE username='" & se & "'"
Conn.execute(SQL2)
Set Rs2=Server.CreateObject("ADODB.Recordset")
Rs2.open SQL2, Conn, 3,3
SQLPRES2="SELECT * FROM presentation WHERE who='" & se & "'"
Conn.execute(SQLPRES2)
Set Rspres2=Server.CreateObject("ADODB.Recordset")
Rspres2.open SQLpres2, Conn, 3,3
if not rspres2.eof then
'om det är en riktig bild, plocka bort den!
if rspres2("pic")<>"profilbild.jpg" then
strPath=server.mapPath(rspres2("pic"))
Set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "" & strpath & ""
Set ObjFSO=Nothing
bilden="upload/" & "profilbild.jpg"
rspres2("pic")=bilden
rspres2.Update
response.write("Ditt foto har tagits bort.<br>" & _
"<a href=""profil.asp?se=" & se & """>Klicka här </a>" & _
" för att se hur din presentation ser ut. ")
else
'användaren har ingen bild
response.write("Du har inget foto att ta bort.<br>" & _
"Klicka på ditt användarnamn till vänster" & _
" för att se hur din presentation ser ut. ")
end if
end if
%>
<%
SQL2="SELECT * FROM users WHERE username='" & se & "'"
Conn.execute(SQL2)
Set Rs2=Server.CreateObject("ADODB.Recordset")
Rs2.open SQL2, Conn, 3,3
SQLPRES2="SELECT * FROM presentation WHERE who='" & se & "'"
Conn.execute(SQLPRES2)
Set Rspres2=Server.CreateObject("ADODB.Recordset")
Rspres2.open SQLpres2, Conn, 3,3
While Not rspres2.eof
'om det är en riktig bild, plocka bort den!
if rspres2("pic")<>"upload/profilbild.jpg" then
strPath=server.mapPath(rspres2("pic"))
Set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "" & strpath & ""
Set ObjFSO=Nothing
bilden="upload/" & "profilbild.jpg"
rspres2("pic")=bilden
rspres2.Update
response.write("Ditt foto har tagits bort.<br>" & _
"<a href=""profil.asp?se=" & se & """>Klicka här </a>" & _
" för att se hur din presentation ser ut. ")
else
'användaren har ingen bild
response.write("Du har inget foto att ta bort.<br>" & _
"Klicka på ditt användarnamn till vänster" & _
" för att se hur din presentation ser ut. ")
end if
rspres2.movenext
Wend
%>
Du kan ju alltid prova. :)
Edit// Koden såg helt sjuk ut, en liten felskrivning i koden
I ditt script, om du använder den sista versionen här ger du den ju namnet "upload/profilbild.jpg" Då är det ju bara det som du behöver jämföra med. Jag tycker nog att det måste fungera.
if rspres2("pic")<>"upload/profilbild.jpg" then
strPath=server.mapPath(rspres2("pic"))
Set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "" & strpath & ""
Set ObjFSO=Nothing
bilden="upload/" & "profilbild.jpg"
rspres2("pic")=bilden
rspres2.Update
Ett alternativ är att du inte lägger in sökvägen "upload" i databasen, men då måste du ju ta hänsyn till det när du skriver ut bilden. (Samt givetvis när du jämfö)
nja! Den går AS seeeeeeeeegggtttt! Så här vart koden:
<%
SQL2="SELECT * FROM users WHERE username='" & se & "'"
Conn.execute(SQL2)
Set Rs2=Server.CreateObject("ADODB.Recordset")
Rs2.open SQL2, Conn, 3,3
SQLPRES2="SELECT * FROM presentation WHERE who='" & se & "'"
Conn.execute(SQLPRES2)
Set Rspres2=Server.CreateObject("ADODB.Recordset")
Rspres2.open SQLpres2, Conn, 3,3
While Not rspres2.eof
'om det är en riktig bild, plocka bort den!
if rspres2("pic")<>"upload/profilbild.jpg" then
strPath=server.mapPath(rspres2("pic"))
Set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "" & strpath & ""
Set ObjFSO=Nothing
bilden="upload/" & "profilbild.jpg"
rspres2("pic")=bilden
rspres2.Update
response.write("Ditt foto har tagits bort.<br>" & _
"<a href=""profil.asp?se=" & se & """>Klicka här </a>" & _
" för att se hur din presentation ser ut. ")
else
'användaren har ingen bild
response.write("Du har inget foto att ta bort.<br>" & _
"Klicka på ditt användarnamn till vänster" & _
" för att se hur din presentation ser ut. ")
end if
Wend
%>
Hoppas det var den jag skulle lägga in den i!?!?!? Lr om jag skulle lägga in de i original koden........ Men denna kod var VÄLDIGT seg!
