|
||
| Editor Login | Register | ||
| > Akademik İnternet ® > ASP |
|
|
| 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 "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=" Adınız Soyadınız : " "ÖN ADI bbbb="b" "2 bbb1=" Email Adresi :" cccc="c" "2 ccc1=" Website adı :" dddd="d" "2 ddd1=" Başlık :" eeee="e" eee1=" kısaca :" ffff="f" fff1=" konusu :" gggg="g" ggg1=" İl :" hhhh="h" hhh1=" İlçe :" iiii="k" iii1=" Ülke :" kkkk="l" kkk1=" Deene :" mmmm="m" mmm1=" Düşünceler : " nnnn="n" nnn1=" Açıklamanı yaz :" %> YAZ DÜZENLE OKU VE SİL Yeni Ekle Kayıtlar 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 " Kayıt Bulunamadı...." Response.End end if %> KAYITLAR
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 %> DEĞİŞTİR
if request.form(""&aaaa&"")="" or request.form(""&bbbb&"")="" or request.form(""&cccc&"")="" then Response.Write "Tüm alanları doldurunuz..." 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 " Değişiklik Yapıldı...Şimdi ana sayfaya yönlendirileceksiniz... " "Response.Write "" 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 %> 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("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 " Kayıdınız eklenmiştir.Yönetici onayından sonra yayınlanacaktır " "Response.write " Şimdi ana sayfaya yönlendirileceksiniz... " "Response.Write "" 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 %>
efkan.close end sub %> | |||||||
|
| Bağlantılar: bilgininefendisi.net |
| Open Source Document Project | AUP&TOS |