KAYIT SİLME
Mesela hazırladığınız admin bölümündeki bir başlığı silmek
istiyorsunuz.. Admin panelinde şöyle bir linke tıkladınız.
sil.asp?ID=2565
bundan sonraki olacak olaylar ve kodları aşağıdaki gibidir.
Kod:
<%
ID = Request.QueryString ("ID") 'Stringi alıyor
Set ObjSil = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Delete From tablo_adi where ID = " & ID & "")
ObjSil.Open StrSql ObjCon 1 3
if ID = "" then 'ID boş ise sayfaya yönlendirecek
Response.Redirect Request.ServerVariables ("HTTP_REFERER")
Else
'Eğer ID dolu ve işlem yapıldıysa silind yazısı gelir ve tekrar önceki
sayfaya döner
Response.Write "Silindi"
Response.Redirect Request.ServerVariables ("HTTP_REFERER")
End if
%>
Mesela hazırladığınız admin bölümündeki bir başlığı silmek
istiyorsunuz.. Admin panelinde şöyle bir linke tıkladınız.
sil.asp?ID=2565
bundan sonraki olacak olaylar ve kodları aşağıdaki gibidir.
Kod:
<%
ID = Request.QueryString ("ID") 'Stringi alıyor
Set ObjSil = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Delete From tablo_adi where ID = " & ID & "")
ObjSil.Open StrSql ObjCon 1 3
if ID = "" then 'ID boş ise sayfaya yönlendirecek
Response.Redirect Request.ServerVariables ("HTTP_REFERER")
Else
'Eğer ID dolu ve işlem yapıldıysa silind yazısı gelir ve tekrar önceki
sayfaya döner
Response.Write "Silindi"
Response.Redirect Request.ServerVariables ("HTTP_REFERER")
End if
%>