Deftere YazTüm Mesajlar
<%
function buyukharf(bharf)
bharf = Trim(bharf)
bharf = Replace(bharf , "ı", "I")
bharf = Replace(bharf , "i", "İ")
bharf = Ucase(bharf)
buyukharf=bharf
end function
function kucukharf(kharf)
kharf = Trim(kharf)
kharf = Replace(kharf , "I", "ı")
kharf = Replace(kharf , "İ", "i")
kharf = Lcase(kharf)
kucukharf=kharf
end function
%>
<%
'TARİH VE İD NOSU HİT VE ONAY STANDART DEĞİŞKENE İSİM GİRME
'aaaa bbbb cccc dolu olması istenecek şekilde
mdbyolu="db/defter.mdb"
tabloadi="defter"
aaaa="adi" '1 TABLO daki ad
aaa1="Ekleyen: " 'ÖN ADI
bbbb="email" '2
bbb1=" Email Adresi :"
cccc="url" '2
ccc1="Web siteniz:"
dddd="baslik" '2
ddd1=" Başlık :"
eeee="mesaj"
eee1=" Mesaj :"
%>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/defter")
Set efkan = Server.CreateObject("ADODB.Recordset")
islem = Request.QueryString("islem")
if islem = "sil" then
call sil
elseif islem="oku" then
call oku
elseif islem="degistir" then
call degistir
elseif islem="ekle" then
call ekle
elseif islem="arabul" then
call arabul
elseif islem="listele" then
call listele
else 'işlem yukarıdakilerin hiç biri değilse kayitları çağır
call kayitlar
end if
%>
<%
sub kayitlar
sor = "Select * from "&tabloadi&" where ONAY like '%N%' order by id desc"
efkan.Open sor,Sur,1,3
onaysiz=efkan.recordcount
efkan.close
sor = "Select * from "&tabloadi&" order by id desc" 'ADMİN İÇİN
efkan.Open sor,Sur,1,3
adet=efkan.recordcount
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
if efkan.eof or efkan.bof then
Response.Write "
Kayıt Bulunamadı...."
Response.End
end if
%>
MESAJLARINIZ
Onay Bekleyen Mesaj :(<%=onaysiz%>)
<%
efkan.pagesize =20 'bir sayfada gösterilecek adet
efkan.absolutepage = shf
sayfa = efkan.pagecount
for i=1 to efkan.pagesize
if efkan.eof then exit for
%>
<%=adet%> adet kayıt bulundu...
Sayfalar :
<%
for y=1 to sayfa
' if shf=y then
if y=cint(shf ) then 'bulunduğun sayfaya link yok
response.write y
else
response.write ""&y&""
end if
next
end sub
%>
<%
sub degistir
Response.Buffer = True
id=Request.QueryString("id")
sor = "select * from "&tabloadi&" where id="&id&""
efkan.Open sor,sur,1,3
%>
(<%=efkan("id")%>) NUMARALI KAYIT DEĞİŞTİRİLECEK
<%
if request.form(""&aaaa&"")="" or request.form(""&bbbb&"")="" or request.form(""&dddd&"")="" or request.form(""&eeee&"")="" then
Response.Write "
Tüm alanları doldurunuz...
"
Response.End
end if
efkan("onay") = Trim(Request.Form ("onay"))
efkan("tarih") = Trim(Request.Form ("tarih"))
efkan(""&aaaa&"") =Request.Form (""&aaaa&"")
efkan(""&bbbb&"") =Request.Form (""&bbbb&"")
efkan(""&cccc&"") =Request.Form (""&cccc&"")
efkan(""&dddd&"") =Request.Form (""&dddd&"")
efkan(""&eeee&"") =Request.Form (""&eeee&"")
efkan("ekleme") =Request.Form ("ekleme")
efkan.Update
Response.Write ""
Response.Write ""
'Response.Redirect "defteradmin.asp"
efkan.close
end sub
%>
<%
sub sil
id=Request.QueryString("id")
'id = Request("id")
sor = "DELETE from "&tabloadi&" WHERE id="&id&""
efkan.open sor,Sur,1,3
response.redirect Request.ServerVariables("HTTP_REFERER")
efkan.close
end sub
%>
<%sub ekle%>
YENİ KAYIT EKLE
<%
sor = "Select * from "&tabloadi&""
efkan.Open sor,sur,1,3
if request.form(""&aaaa&"")="" or request.form(""&bbbb&"")="" or request.form(""&cccc&"")="" then
Response.Write "
Tüm alanları doldurunuz...
"
Response.End
end if
efkan.AddNew
efkan("onay") = "N"
efkan("tarih") = Trim(Request.Form ("tarih"))
efkan(""&aaaa&"") =Request.Form (""&aaaa&"")
efkan(""&bbbb&"") =Request.Form (""&bbbb&"")
efkan(""&cccc&"") =Request.Form (""&cccc&"")
efkan(""&dddd&"") =Request.Form (""&dddd&"")
efkan(""&eeee&"") =Request.Form (""&eeee&"")
efkan.Update
Response.Write ""
Response.Write ""
'Response.Redirect "defteradmin.asp"
efkan.close
end sub
%>
<%
sub arabul
Response.Buffer = True
if request("ara")="" then
Response.Write "
LÜTFEN ARANACAK KELİMEYİ BELİRTİN..."
Response.End
end if
ara=trim(request("ara"))
sor = "select * from "&tabloadi&" WHERE "&cccc&" like '%"&ara&"%' OR "&dddd&" like '%"&ara&"%' "
'sor = "select * from "&tabloadi&" WHERE onay ='Y' AND "&aaaa&" like '%"&ara&"%' OR onay ='Y' AND "&bbbb&" like '%"&ara&"%' "
efkan.Open sor,Sur,1,3
if efkan.eof or efkan.bof then
Response.Write "
KAYIT BULUNAMADI"
Response.End
'Response.Redirect "defteradmin.asp"
end if
adet=efkan.recordcount
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
%>
<%=adet%> adet "<%=ara%>" bulundu..
<% efkan.pagesize =15 '1 sayfada görüntülemek istediğiniz kayıt sayısı (değiştirebilirsiniz)
efkan.absolutepage = shf
sayfa = efkan.pagecount
for i=1 to efkan.pagesize
if efkan.eof then exit for
%>
Sayfalar :
<%
for y=1 to sayfa
' if shf=y then
if y=cint(shf ) then 'bulunduğun sayfaya link yok
response.write y
else
response.write " "&y&" "
end if
next
set efkan =nothing
end sub
%>
İd:<%=efkan("id")%>