Tek sayfa ile veri işlemleri (tr)

Yapımcı : Access'den veriler alma, veri yazma/okuma/silme/değiştirme işlemlerini tek dosya ile yapabilirsiniz.
mdb yoluna mdb dosya adını
tablo ya bağlanacağınız tablo adını yazınız.

dosyadaki değişkenlere tablodaki değişkenleri yazınız
örneğin  aaaa=adi  tablodaki sutun adı aaa1=Adınız Soyadınız bu ise sayfanızdaki Görünecek olan açıklama metnidir.Tablodaki sutunlara göre bunları ayaralayın tek tek .Fazla olan değişkenleri sayfadan silin Sublar içinde de silmeniz lazım .Onay İd Hit ve Tarih atamnıza gerek yok.

www.makineteknik.com u ziyaret etmeyi unutmayın

---

<DIV ALIGN="CENTER">

<% Response.Buffer =  True  %>

<%
'TARİH VE İD NOSU HİT VE ONAY  STANDART DEĞİŞKENE İSİM GİRME
'aaaa bbbb cccc dolu olması istenecek şekilde

mdbyolu="deneme.mdb"
tabloadi="deneme"

aaaa="a"                '1 TABLO daki ad
aaa1="<B> Adınız Soyadınız : </B>"              'ÖN ADI   

bbbb="b"              '2
bbb1="<B> Email Adresi :</B>"     

cccc="c"                '2 
ccc1="<B> Website adı  :</B>"             

dddd="d"                    '2
ddd1="<B> Başlık :</B>"

eeee="e"
eee1="<B> kısaca :</B>"

ffff="f"
fff1="<B> konusu :</B>"

gggg="g"
ggg1="<B> İl :</B>"

hhhh="h"
hhh1="<B> İlçe :</B>"

iiii="k"
iii1="<B> Ülke :</B>"

kkkk="l"
kkk1="<B> Deene :</B>"

mmmm="m"
mmm1="<B> Düşünceler : </B>"

nnnn="n"
nnn1="<B> Açıklamanı yaz :</B>"

%>



<B>YAZ DÜZENLE OKU VE SİL</B>
<BR><BR>

<a href="default.asp?islem=ekle">Yeni Ekle</a> 
<a href="default.asp?islem=kayitlar">Kayıtlar</a>

<BR>

<%
Set  Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&mdbyolu&"")
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

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 '%Y%' order by id desc" 'KULLANICI İÇİN
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 " <BR><BR><B> Kayıt Bulunamadı....</B>"
Response.End
end  if
%>

<BR>
<B>KAYITLAR</B>

<table width="80%" bgcolor="#FFFFFF" bordercolor="#FFFFFF" border="5" cellspacing="0" cellpadding="3">
<%
efkan.pagesize =10      'bir sayfada gösterilecek adet
efkan.absolutepage = shf
sayfa = efkan.pagecount
for  i=1  to  efkan.pagesize
if  efkan.eof  then  exit  for
%>

<tr bgcolor="#EAEAEA">
<TD align="left" valign="center" width="80%" >

<B>İd:</B><%=efkan("id")%>
<B>Onay:</B><%=efkan("onay")%>
<B>Tarih :</B><%=efkan("tarih")%>
<B>Hit :</B><%=efkan("hit")%>

<BR>
<%=aaa1%> <%=efkan(""&aaaa&"")%>
<%=bbb1%> <%=efkan(""&bbbb&"")%>
<%=ccc1%> <%=efkan(""&cccc&"")%>

</td>


<TD align="center" valign="center" width="20%" >
<a href="default.asp?islem=oku&id=<%=efkan("id")%>">Oku</a> 
<a href="default.asp?islem=degistir&id=<%=efkan("id")%>">Değiştir</a> 
<a href="default.asp?islem=sil&id=<%=efkan("id")%>">Sil</a>
</td>
</tr>


<!-- ARA BOŞ SATIR -->
<tr bgcolor="#FFFFFF" height="1">
<td colspan=2 width="100%">
</td>
</tr>

<%
efkan.movenext
Next
efkan.close
%>
</table>


<%=adet%> adet kayıt bulundu...<BR>
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 "<b> <a href=""default.asp?islem=kayitlar&shf="&y&""">"&y&"</a></b>"
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
%>

<BR><B>DEĞİŞTİR</B>

<table width="40%" bgcolor="#EBEBEB" bordercolor="#330000" border="5" cellspacing="0" cellpadding="3">
<tr>
<td align=center>

<form method="POST" action="default.asp?islem=degistir&id=<%=efkan("id")%>">

<B>İd :</B><BR>
<input type="text" value="<%=efkan("id")%>" size="39" readonly>
<BR>

<B>Tarih :</B><BR>
<input name="tarih" type="text" value="<%=efkan("tarih")%>" size="39">
<BR>

<B>Onay :</B><BR>
<input name="onay" type="text" value="<%=efkan("onay")%>" size="39">
<BR>

<B>Hit:</B><BR>
<input name="hit" type="text" value="<%=efkan("hit")%>" size="39">
<BR>

<%=aaa1%><BR>
<input name="<%=aaaa%>" type="text" value="<%=efkan(""&aaaa&"")%>" size="39">
<BR>

<%=bbb1%><BR>
<input name="<%=bbbb%>" type="text" value="<%=efkan(""&bbbb&"")%>" size="39">
<BR>

<%=ccc1%><BR>
<input name="<%=cccc%>" type="text" value="<%=efkan(""&cccc&"")%>" size="39">
<BR>

<%=ddd1%><BR>
<input name="<%=dddd%>" type="text" value="<%=efkan(""&dddd&"")%>" size="39">
<BR>

<%=eee1%><BR>
<input name="<%=eeee%>" type="text" value="<%=efkan(""&eeee&"")%>" size="39">
<BR>

<%=fff1%><BR>
<input name="<%=ffff%>" type="text" value="<%=efkan(""&ffff&"")%>" size="39">
<BR>

<%=ggg1%><BR>
<input name="<%=gggg%>" type="text" value="<%=efkan(""&gggg&"")%>" size="39">
<BR>

<%=hhh1%><BR>
<input name="<%=hhhh%>" type="text" value="<%=efkan(""&hhhh&"")%>" size="39">
<BR>

<%=iii1%><BR>
<input name="<%=iiii%>" type="text" value="<%=efkan(""&iiii&"")%>" size="39">
<BR>

<%=kkk1%><BR>
<input name="<%=kkkk%>" type="text" value="<%=efkan(""&kkkk&"")%>" size="39">
<BR>

<%=mmm1%><BR>
<input name="<%=mmmm%>" type="text" value="<%=efkan(""&mmmm&"")%>" size="39">
<BR>

<%=nnn1%><BR>
<TEXTAREA NAME="<%=nnnn%>" ROWS="5" COLS="30"><%=efkan(""&nnnn&"")%></TEXTAREA>

<BR><BR>
<input type="submit" value=" DEĞİŞTİR... " name="submit" >
<INPUT TYPE="reset" value=" TEMİZLER "  >
</form>

</td>
</tr>
</table>


<%
if  request.form(""&aaaa&"")="" or request.form(""&bbbb&"")="" or request.form(""&cccc&"")=""    then
Response.Write "<center>Tüm alanları doldurunuz...</center>"
Response.End
end  if

efkan("onay") = Trim (Request.Form ("onay"))
efkan("tarih") = Trim (Request.Form ("tarih"))
efkan("hit") = Trim (Request.Form ("hit"))

efkan(""&aaaa&"") = Trim (Request.Form (""&aaaa&""))
efkan(""&aaaa&"") =  Replace(efkan(""&aaaa&"") , "<", "<")
efkan(""&aaaa&"") =  Replace(efkan(""&aaaa&"") , ">", ">")

efkan(""&bbbb&"") = Trim (Request.Form (""&bbbb&""))
efkan(""&bbbb&"") =  Replace(efkan(""&bbbb&"") , "<", "<")
efkan(""&bbbb&"") =  Replace(efkan(""&bbbb&"") , ">", ">")

efkan(""&cccc&"") = Trim (Request.Form (""&cccc&""))
efkan(""&cccc&"") =  Replace(efkan(""&cccc&"") , "<", "<")
efkan(""&cccc&"") =  Replace(efkan(""&cccc&"") , ">", ">")

efkan(""&dddd&"") = Trim (Request.Form (""&dddd&""))
efkan(""&dddd&"") =  Replace(efkan(""&dddd&"") , "<", "<")
efkan(""&dddd&"") =  Replace(efkan(""&dddd&"") , ">", ">")

efkan(""&eeee&"") = Trim (Request.Form (""&eeee&""))
efkan(""&eeee&"") =  Replace(efkan(""&eeee&"") , "<", "<")
efkan(""&eeee&"") =  Replace(efkan(""&eeee&"") , ">", ">")

efkan(""&ffff&"") = Trim (Request.Form (""&ffff&""))
efkan(""&ffff&"") =  Replace(efkan(""&ffff&"") , "<", "<")
efkan(""&ffff&"") =  Replace(efkan(""&ffff&"") , ">", ">")

efkan(""&gggg&"") = Trim (Request.Form (""&gggg&""))
efkan(""&gggg&"") =  Replace(efkan(""&gggg&"") , "<", "<")
efkan(""&gggg&"") =  Replace(efkan(""&gggg&"") , ">", ">")

efkan(""&hhhh&"") = Trim (Request.Form (""&hhhh&""))
efkan(""&hhhh&"") =  Replace(efkan(""&hhhh&"") , "<", "<")
efkan(""&hhhh&"") =  Replace(efkan(""&hhhh&"") , ">", ">")

efkan(""&iiii&"") = Trim (Request.Form (""&iiii&""))
efkan(""&iiii&"") =  Replace(efkan(""&iiii&"") , "<", "<")
efkan(""&iiii&"") =  Replace(efkan(""&iiii&"") , ">", ">")

efkan(""&kkkk&"") = Trim (Request.Form (""&kkkk&""))
efkan(""&kkkk&"") =  Replace(efkan(""&kkkk&"") , "<", "<")
efkan(""&kkkk&"") =  Replace(efkan(""&kkkk&"") , ">", ">")

efkan(""&mmmm&"") = Trim (Request.Form (""&mmmm&""))
efkan(""&mmmm&"") =  Replace(efkan(""&mmmm&"") , "<", "<")
efkan(""&mmmm&"") =  Replace(efkan(""&mmmm&"") , ">", ">")

efkan(""&nnnn&"") = Trim (Request.Form (""&nnnn&""))
efkan(""&nnnn&"") =  Replace(efkan(""&nnnn&"") , "<", "<")
efkan(""&nnnn&"") =  Replace(efkan(""&nnnn&"") , ">", ">")

efkan.Update

Response.Redirect "default.asp"
'response.redirect Request.ServerVariables("HTTP_REFERER")
'Response.write "<BR><BR><b>Değişiklik Yapıldı...Şimdi ana sayfaya yönlendirileceksiniz...</b><br>"
'Response.Write "<meta http-equiv='Refresh' content='2; URL=default.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%>
<BR>
<B>YENİ KAYIT EKLE</B>


<table width="40%" bgcolor="#EBEBEB" bordercolor="#330000" border="5" cellspacing="0" cellpadding="3">
<tr>
<td align=center>

<form method="POST" action="default.asp?islem=ekle">

<%=aaa1%><BR>
<input name="<%=aaaa%>" type="text" value="" size="39">
<BR>

<%=bbb1%><BR>
<input name="<%=bbbb%>" type="text" value="" size="39">
<BR>

<%=ccc1%><BR>
<input name="<%=cccc%>" type="text" value="" size="39">
<BR>

<%=ddd1%><BR>
<input name="<%=dddd%>" type="text" value="" size="39">
<BR>

<%=eee1%><BR>
<input name="<%=eeee%>" type="text" value="" size="39">
<BR>

<%=fff1%><BR>
<input name="<%=ffff%>" type="text" value="" size="39">
<BR>

<%=ggg1%><BR>
<input name="<%=gggg%>" type="text" value="" size="39">
<BR>

<%=hhh1%><BR>
<input name="<%=hhhh%>" type="text" value="" size="39">
<BR>

<%=iii1%><BR>
<input name="<%=iiii%>" type="text" value="" size="39">
<BR>

<%=kkk1%><BR>
<input name="<%=kkkk%>" type="text" value="" size="39">
<BR>

<%=mmm1%><BR>
<input name="<%=mmmm%>" type="text" value="" size="39">
<BR>

<%=nnn1%><BR>
<TEXTAREA NAME="<%=nnnn%>" ROWS="5" COLS="30"></TEXTAREA>

<input type="hidden" name="tarih" size="30"  value="<%=(Date)%>">
<P>

<input type="submit" value=" Ekle " name="submit" >
<INPUT TYPE="reset" value=" Temizle "  >
</form>

</td>
</tr>
</table>

<%
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 "<center>Tüm alanları doldurunuz...</center>"
Response.End
end  if

efkan.AddNew

efkan("tarih") = Request.Form ("tarih")
efkan("onay") = "N"
efkan("hit") = 0

efkan(""&aaaa&"") = Trim (Request.Form (""&aaaa&""))
efkan(""&aaaa&"") =  Replace(efkan(""&aaaa&"") , "<", "<")
efkan(""&aaaa&"") =  Replace(efkan(""&aaaa&"") , ">", ">")

efkan(""&bbbb&"") = Trim (Request.Form (""&bbbb&""))
efkan(""&bbbb&"") =  Replace(efkan(""&bbbb&"") , "<", "<")
efkan(""&bbbb&"") =  Replace(efkan(""&bbbb&"") , ">", ">")

efkan(""&cccc&"") = Trim (Request.Form (""&cccc&""))
efkan(""&cccc&"") =  Replace(efkan(""&cccc&"") , "<", "<")
efkan(""&cccc&"") =  Replace(efkan(""&cccc&"") , ">", ">")

efkan(""&dddd&"") = Trim (Request.Form (""&dddd&""))
efkan(""&dddd&"") =  Replace(efkan(""&dddd&"") , "<", "<")
efkan(""&dddd&"") =  Replace(efkan(""&dddd&"") , ">", ">")

efkan(""&eeee&"") = Trim (Request.Form (""&eeee&""))
efkan(""&eeee&"") =  Replace(efkan(""&eeee&"") , "<", "<")
efkan(""&eeee&"") =  Replace(efkan(""&eeee&"") , ">", ">")

efkan(""&ffff&"") = Trim (Request.Form (""&ffff&""))
efkan(""&ffff&"") =  Replace(efkan(""&ffff&"") , "<", "<")
efkan(""&ffff&"") =  Replace(efkan(""&ffff&"") , ">", ">")

efkan(""&gggg&"") = Trim (Request.Form (""&gggg&""))
efkan(""&gggg&"") =  Replace(efkan(""&gggg&"") , "<", "<")
efkan(""&gggg&"") =  Replace(efkan(""&gggg&"") , ">", ">")

efkan(""&hhhh&"") = Trim (Request.Form (""&hhhh&""))
efkan(""&hhhh&"") =  Replace(efkan(""&hhhh&"") , "<", "<")
efkan(""&hhhh&"") =  Replace(efkan(""&hhhh&"") , ">", ">")

efkan(""&iiii&"") = Trim (Request.Form (""&iiii&""))
efkan(""&iiii&"") =  Replace(efkan(""&iiii&"") , "<", "<")
efkan(""&iiii&"") =  Replace(efkan(""&iiii&"") , ">", ">")

efkan(""&kkkk&"") = Trim (Request.Form (""&kkkk&""))
efkan(""&kkkk&"") =  Replace(efkan(""&kkkk&"") , "<", "<")
efkan(""&kkkk&"") =  Replace(efkan(""&kkkk&"") , ">", ">")

efkan(""&mmmm&"") = Trim (Request.Form (""&mmmm&""))
efkan(""&mmmm&"") =  Replace(efkan(""&mmmm&"") , "<", "<")
efkan(""&mmmm&"") =  Replace(efkan(""&mmmm&"") , ">", ">")

efkan(""&nnnn&"") = Trim (Request.Form (""&nnnn&""))
efkan(""&nnnn&"") =  Replace(efkan(""&nnnn&"") , "<", "<")
efkan(""&nnnn&"") =  Replace(efkan(""&nnnn&"") , ">", ">")

efkan.Update

Response.Redirect "default.asp"
'response.redirect Request.ServerVariables("HTTP_REFERER")
'Response.write "<BR><BR><b>Kayıdınız eklenmiştir.Yönetici onayından sonra yayınlanacaktır</b><br>"
'Response.write "<BR><BR><b>Şimdi ana sayfaya yönlendirileceksiniz...</b><br>"
'Response.Write "<meta http-equiv='Refresh' content='3; URL=default.asp'>"

efkan.close
end  sub
%>




<%
sub  oku
id=Request.QueryString("id")

sor  = "select * from "&tabloadi&" where id="&id&""
efkan.Open sor,sur,1,3

efkan("hit") = efkan("hit") + 1
efkan.Update
%>

<table width="40%" bgcolor="#D3D3D3" bordercolor="#FFFFFF" border="5" cellspacing="0" cellpadding="0">
<tr bgcolor="#EAEAEA">
<TD align="center" valign="center" width="100%" >


<B>İd :</B><BR>
<input type="text" value="<%=efkan("id")%>" size="39" readonly>
<BR>

<B>Tarih :</B><BR>
<input name="tarih" type="text" value="<%=efkan("tarih")%>" size="39">
<BR>

<B>Onay :</B><BR>
<input name="onay" type="text" value="<%=efkan("onay")%>" size="39">
<BR>

<B>Hit:</B><BR>
<input name="hit" type="text" value="<%=efkan("hit")%>" size="39">
<BR>

<%=aaa1%><BR>
<input name="<%=aaaa%>" type="text" value="<%=efkan(""&aaaa&"")%>" size="39">
<BR>

<%=bbb1%><BR>
<input name="<%=bbbb%>" type="text" value="<%=efkan(""&bbbb&"")%>" size="39">
<BR>

<%=ccc1%><BR>
<input name="<%=cccc%>" type="text" value="<%=efkan(""&cccc&"")%>" size="39">
<BR>

<%=ddd1%><BR>
<input name="<%=dddd%>" type="text" value="<%=efkan(""&dddd&"")%>" size="39">
<BR>

<%=eee1%><BR>
<input name="<%=eeee%>" type="text" value="<%=efkan(""&eeee&"")%>" size="39">
<BR>

<%=fff1%><BR>
<input name="<%=ffff%>" type="text" value="<%=efkan(""&ffff&"")%>" size="39">
<BR>

<%=ggg1%><BR>
<input name="<%=gggg%>" type="text" value="<%=efkan(""&gggg&"")%>" size="39">
<BR>

<%=hhh1%><BR>
<input name="<%=hhhh%>" type="text" value="<%=efkan(""&hhhh&"")%>" size="39">
<BR>

<%=iii1%><BR>
<input name="<%=iiii%>" type="text" value="<%=efkan(""&iiii&"")%>" size="39">
<BR>

<%=kkk1%><BR>
<input name="<%=kkkk%>" type="text" value="<%=efkan(""&kkkk&"")%>" size="39">
<BR>

<%=mmm1%><BR>
<input name="<%=mmmm%>" type="text" value="<%=efkan(""&mmmm&"")%>" size="39">
<BR>

<%=nnn1%><BR>
<TEXTAREA NAME="<%=nnnn%>" ROWS="5" COLS="30"><%=efkan(""&nnnn&"")%></TEXTAREA>

<P>

</td>
</tr>
</table>

<%
efkan.close
end  sub
%>