<%if aslx="DuyuruEkle" then
call DuyuruEkle
elseif aslx="DuyuruDuzenle" then
call DuyuruDuzenle
elseif aslx="DuyuruSil" then
call DuyuruSil
elseif aslx="duyuru" then
call duyuru
elseif islem="" then
else
select case islem
case "DuyuruEkle"
call DuyuruKaydet
case "DuyuruDuzenle"
call DuyuruGuncelle
end select
end if
'==================== Silme İşlemleri ======================================
sub DuyuruSil
id=guvenlik(Request.Querystring("id"))
IF Not IsNumeric(Request.Querystring("id")) THEN
response.write "Lütfen Geçerli bir ID numarasi girin."
response.end
END IF
IF session("admin") = "" then
Response.Redirect "duyuru.asp"
Response.END
END IF
id=guvenlik(request("id"))
Set rs=Server.CreateObject("Adodb.Recordset")
SQL = "DELETE From duyurular where id="&id
rs.open sql, cilem, 1, 3
Response.Redirect "duyuru.asp?goster=duyuru"
response.end
rs.close
end sub
'====================Yeni Duyuru Kaydı======================================
sub DuyuruKaydet
Set rs=Server.CreateObject("Adodb.Recordset")
SQL = "Select * From duyurular"
rs.open sql, cilem, 1, 3
if request("duyuru")="" and guvenlik(request("baslik"))="" then
response.write"Lütfen Bos Alanları Doldurunuz
Geri Dön"
else
rs.addnew
rs("baslik")=guvenlik(request("baslik"))
rs("duyuru")=request("duyuru")
rs("editor")=guvenlik(request("editor"))
rs.update
rs.close
Response.Redirect "duyuru.asp?goster=duyuru"
end if
end sub
'==================== KAYIT DÜZENLE======================================
sub DuyuruGuncelle
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from duyurular where id="&id
rs.open sql,cilem, 1,3
if guvenlik(request("duyuru"))="" and guvenlik(request("baslik"))="" then
response.write"Lütfen Bos Alanları Doldurunuz
Geri Dön"
else
rs("baslik")=guvenlik(request("baslik"))
rs("duyuru")=request("duyuru")
rs("editor")=guvenlik(request("editor"))
rs.update
rs.close
Response.Redirect "duyuru.asp?goster=duyuru"
end if
end sub
'===========================
sub duyuru
Set rs=Server.CreateObject("Adodb.Recordset")
SQL = "Select * From duyurular"
rs.open sql, cilem, 1, 3
%>
|
|
|
Başlık |
Tarih |
İşlemler |
<% do while not rs.eof %>
 |
<%=rs("baslik")%> |
<%=rs("tarih")%> |
">
 |
">
 |
<% rs.movenext
loop%>
<%
rs.close
end sub
sub DuyuruEkle%>
<%end sub%>
<%sub DuyuruDuzenle%>
<%
On Error Resume Next
If Err.number <> 0 then
Response.Write "Sayfa Numarası Hatalı: "& Err.description
End If
%><%
id=guvenlik(request("id"))
sql="SELECT * FROM duyurular WHERE id=" & guvenlik(request("id"))
Set rs=cilem.Execute(sql)
if rs.eof then
Response.write""
if id = "" Or IsNumeric(id) = False Then
end if
else
id=guvenlik(request("id"))
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from duyurular where id="&id&""
rs.open sql,cilem, 1,3%>
<%end if%>
<%end sub%>
|