|
Tek sayfa ile veri işlemleri (tr)
Dec 27,2008 00:00
by
RubeNiS
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 %> |