Forum
Aktif konular
Üyeler
Kurallar
Arama
Db Den Veri İle Birlikte Resimleri De Silmek ASP Db Den Veri İle Birlikte Resimleri De Silmek ASP
-
Arakdaşlar resim uygulamasında db den veri silerken sadece o ID yi siliyorum fakat resimler kendi klasorunde kalıyor, ben aynı zamanda o ID ye ait resim adreslerindeki resimleride silmek istiyorum.. örnek kod varsa incelemek isterim
Teşekkürler -
geceler00 bunu yazdı:
-----------------------------
Arakdaşlar resim uygulamasında db den veri silerken sadece o ID yi siliyorum fakat resimler kendi klasorunde kalıyor, ben aynı zamanda o ID ye ait resim adreslerindeki resimleride silmek istiyorum.. örnek kod varsa incelemek isterim
Teşekkürler
-----------------------------fso ile klasör silmek diye yaz halledersin.
-
resimleri silmek isteidğine göre kendi sunucunda bir klasörde depoluyorsundur resimleri. resim isimlerini de dbde tutuyorsan veya resimlerin ismi ID ler ile aynıysa dbden veriyi silerken fso ile klasörden resmi silmelisin. fso ile silme hakkında bilgi ve örnek kodlar için;
http://www.google.com.tr/search?q=fso+dosya+silme
-
hocam belliki eklerken resimlerle birlikte ekliyosun onu nasıl yapıyoruz kodu serebilir misin bana da lazım da
ekleme:zip koyarsan daha iyi olur malum form replace edebiliyo bazı kodları sağol şimdiden -
http://www.aspjpeg.com/
buradaki uygulamalarda varda resim yükleme fso ile falan silmesi yok :) ben kendim sildirdiğimde sadece ID yi siliyor klasor içinde reism kalıyor. dedim örnek bikaç kod ve db varsa zipli incelemek istiyordum bende
-
<%id=request.querystring("id")
Set rsresim = Sur.Execute("Select * from members where id='"&id&"';")
%>
<%
Set FSO = CreateObject("Scripting.FileSystemObject" )
FSO.DeleteFile Server.MapPath("../resimler/"&rsresim("resim")&"")
Set FSO = Nothing
%>Kalın yerleri kendince uyarla
-
Asortic; ben aşağıdaki şekilde kod kullanıyorum querystring ile yapmadım burada nereye yerleştirecem açıkçası bilemedim yardımcı olabilirsen sevinirim
<%
Set vt = Server.CreateObject("ADODB.Connection")
vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
%>
:
<%
set rs = server.createobject("ADODB.Recordset")
SQL = "Select * from TblResimler"
rs.open SQL,vt,1,3
%>
<%
if rs.eof then
response.write "hiç haber yok."
else
do while not rs.eof
%>
<table width="200" border="1">
<tr>
<td><%=rs("resimID")%></td>
<td><a href="sil.asp?islem=sil&resimID=<%=rs("resimID")%>">Sil</a></td>
</tr>
</table>
<%
rs.movenext
loop
end if
%>
<%
do while not rs.eof
response.write rs("resimID") & ","
rs.movenext
loop
%>
<%
sub sil
resimID = Request("resimID")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql_sil = "DELETE from TblResimler where resimID = " & resimID & ""
rs.open Sql_sil,vt,1,3
response.redirect Request.ServerVariables("HTTP_REFERER")
end sub
%>
<%
islem = Request.QueryString("islem")
if islem = "sil" then
call sil
else
end if
%> -
geceler00 bunu yazdı:
-----------------------------
Asortic; ben aşağıdaki şekilde kod kullanıyorum querystring ile yapmadım burada nereye yerleştirecem açıkçası bilemedim yardımcı olabilirsen sevinirim
-----------------------------<%
sub sil
resimID = Request("resimID")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql_sil = "DELETE from TblResimler where resimID = " & resimID & ""
rs.open Sql_sil,vt,1,3Set FSO = CreateObject("Scripting.FileSystemObject" )
FSO.DeleteFile Server.MapPath("resimler/"&rs("resimadi")&"")
Set FSO = Nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
end sub
%>
<%
islem = Request.QueryString("islem")
if islem = "sil" then
call sil
else
end if
%> -
FSO.DeleteFile Server.MapPath("resimler/"&rs("resimadi")&"")
kısmında hata veriyor bende resim1, resim2 resim... resim10 a kadaralanlar var bu alanlarda resimlerin adresileri ve isimleri yazıyor. "resimadi" dediğin kısma "resim1" olarak değiştirdim gene bu satırda hata çakıyor :S
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla