Mesajın yayınlanması için onay
Mesajın yayınlanması için onay
merhaba arkadaşlar
bir site için ziyaretçi defteri yaptım pek profesyonel olmasada küfür koruması karakter sınırı ve alanları doldurma zorunluluğu gibi önlemleri aldım fakat yine de içim rahat değil.Bu yüzden gelen mesajlara admin onayı eklemek istiyorum.Bunun nasıl yapılacağını bir çok scriptte inceledim fakat yine de size de sormak istedim.Bana bu konu hakkında elinde makale vb bişey varsa ve benimle payşaşırsa sevinirim.Ya da foruma yardımcı olacak kodları yazarsa minnettar kalırım.
Saygılarımla
bir site için ziyaretçi defteri yaptım pek profesyonel olmasada küfür koruması karakter sınırı ve alanları doldurma zorunluluğu gibi önlemleri aldım fakat yine de içim rahat değil.Bu yüzden gelen mesajlara admin onayı eklemek istiyorum.Bunun nasıl yapılacağını bir çok scriptte inceledim fakat yine de size de sormak istedim.Bana bu konu hakkında elinde makale vb bişey varsa ve benimle payşaşırsa sevinirim.Ya da foruma yardımcı olacak kodları yazarsa minnettar kalırım.
Saygılarımla
! SİGARA ÖLDÜRÜR! ÖLDÜRENE KADAR DA SÜRÜNDÜRÜR
Aslında çok basit bir mantığı var.
Mesajların olduğu tabloya birde Aktif diye bir alan oluştur. Bir kullanıcı mesajını yazdığında Aktif alanına varsayılan olarak 0 yazsın.
Mesajları yayınladığın sayfada ise aktif alanı 0 olmayan alanları göster.
Sonra kontrol paneline girdiğinde Aktif alanı 0 olanları seçerek (SELECT * FROM yazilar WHERE aktif=0 vs.vs.) onay bekleyen mesajları listelemiş olacaksın. O mesajı aktif hale getirmek içinse bir o mesajın aktif alanını 1 yapman yeterli olacak
Mesajların olduğu tabloya birde Aktif diye bir alan oluştur. Bir kullanıcı mesajını yazdığında Aktif alanına varsayılan olarak 0 yazsın.
Mesajları yayınladığın sayfada ise aktif alanı 0 olmayan alanları göster.
Sonra kontrol paneline girdiğinde Aktif alanı 0 olanları seçerek (SELECT * FROM yazilar WHERE aktif=0 vs.vs.) onay bekleyen mesajları listelemiş olacaksın. O mesajı aktif hale getirmek içinse bir o mesajın aktif alanını 1 yapman yeterli olacak
En son salvation tarafından 12 May 2005 04:09 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
- sherlockholmes
- Kıdemli Üye
- Mesajlar: 930
- Kayıt: 19 Tem 2004 09:13
mesajı mesaj dosyasına yazarken aktif alan kısmını false diye yazsın , admin okuduktan sonra bu alanı true olarak update et... ne tür bir veritabanı kullanıyorsun , verilerin nasıl saklıyorusn?
y = e^x fonksiyonu hangimizi etkilememiştir ki? Küllerinden hayat bulan Zümrüd-ü Anka kuşu gibi, türevi yine kendisidir.
özür dilerim arkadaşlar en başından kodlarımı yazmalıydım
benim deftere kayıt girildikten sonra veritabanıma kaydı yazan asp dosyamdaki kodlarım şunlar...
<% @Codepage="1254" %>
<%
Set Surbbs = Server.CreateObject("ADODB.Connection")
Surbbs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/veritabanım.mdb")
Set bbs = Server.CreateObject("ADODB.Recordset")
sorbbs = "Select * from ziyaretcidefteri"
bbs.Open sorbbs,Surbbs,1,3%>
<center><img src= "grafik/banner.gif" ></center>
<%
Function temizle(temizlik)
temizlik=replace(temizlik, ">" , "" )
temizlik=replace(temizlik, "<" , "" )
temizlik=replace(temizlik, "%" , "" )
temizlik=replace(temizlik, "*" , "" )
temizlik=replace(temizlik, "'" , "" )
temizle=temizlik
End Function
%>
<%
adi = Trim(Request.Form("adi"))
adi=temizle(adi)
email = Trim(Request.Form("email"))
email=temizle(email)
baslik = Trim(Request.Form("baslik"))
baslik=temizle(baslik)
mesaj = Trim(Request.Form("mesaj"))
mesaj=temizle(mesaj)
if adi="" then
response.write "<font face=verdana size=2><center>HATA!!! İsim Kısmını Boş Bırakamazsınız.Lütfen Geri Dönüp Eksik Bilgilerinizi Yazınız.</center><br><a href=javascript:history.back(1)><b><center>Geri</center></b></a> </font>"
response.end
elseif email="" then
response.write "<font face=verdana size=2>E-posta kismini bos giremezsiniz<br><a href=javascript:history.back(1)><b>Geri</b></a></font>"
response.end
elseif mesaj="" then
response.write "<font face=verdana size=2>Mesaj kismini bos giremezsiniz<br><a href=javascript:history.back(1)><b>Geri</b></a></font>"
response.end
end if
bbs.addnew
bbs("adi") = adi
bbs("email") = email
bbs("baslik") = baslik
bbs("mesaj") = mesaj
bbs("tarih") = date
bbs.update
%>
<% response.redirect ("deftere_eklendi.asp") %>
benim deftere kayıt girildikten sonra veritabanıma kaydı yazan asp dosyamdaki kodlarım şunlar...
<% @Codepage="1254" %>
<%
Set Surbbs = Server.CreateObject("ADODB.Connection")
Surbbs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/veritabanım.mdb")
Set bbs = Server.CreateObject("ADODB.Recordset")
sorbbs = "Select * from ziyaretcidefteri"
bbs.Open sorbbs,Surbbs,1,3%>
<center><img src= "grafik/banner.gif" ></center>
<%
Function temizle(temizlik)
temizlik=replace(temizlik, ">" , "" )
temizlik=replace(temizlik, "<" , "" )
temizlik=replace(temizlik, "%" , "" )
temizlik=replace(temizlik, "*" , "" )
temizlik=replace(temizlik, "'" , "" )
temizle=temizlik
End Function
%>
<%
adi = Trim(Request.Form("adi"))
adi=temizle(adi)
email = Trim(Request.Form("email"))
email=temizle(email)
baslik = Trim(Request.Form("baslik"))
baslik=temizle(baslik)
mesaj = Trim(Request.Form("mesaj"))
mesaj=temizle(mesaj)
if adi="" then
response.write "<font face=verdana size=2><center>HATA!!! İsim Kısmını Boş Bırakamazsınız.Lütfen Geri Dönüp Eksik Bilgilerinizi Yazınız.</center><br><a href=javascript:history.back(1)><b><center>Geri</center></b></a> </font>"
response.end
elseif email="" then
response.write "<font face=verdana size=2>E-posta kismini bos giremezsiniz<br><a href=javascript:history.back(1)><b>Geri</b></a></font>"
response.end
elseif mesaj="" then
response.write "<font face=verdana size=2>Mesaj kismini bos giremezsiniz<br><a href=javascript:history.back(1)><b>Geri</b></a></font>"
response.end
end if
bbs.addnew
bbs("adi") = adi
bbs("email") = email
bbs("baslik") = baslik
bbs("mesaj") = mesaj
bbs("tarih") = date
bbs.update
%>
<% response.redirect ("deftere_eklendi.asp") %>
! SİGARA ÖLDÜRÜR! ÖLDÜRENE KADAR DA SÜRÜNDÜRÜR
Öncelikle veritabanında düzenleme yapacaksın.. Access veritabanın aç ve Aktif adında, Sayı tipinde (alan boyutu=byte) bir alan oluştur.
Sonra kaydettiğin kodlarda düzenleme yapacaksın
bbs.addnew
bbs("adi") = adi
bbs("email") = email
bbs("baslik") = baslik
bbs("mesaj") = mesaj
bbs("tarih") = date
bbs("aktif") = 0
bbs.update
Yönetim panelinde mesajları onaylamak için, Sql ile kayıtların Aktif alanları 0 olanları göstereksin. Ör: SELECT * FROM yazilar WHERE aktif=0 gibi.
Sayfada listelenenlerden birisini aktif hale getirmek istersen, üzerine tıkla ve o kaydın Aktif alanını 1 yaptır. Ör: UPDATE yazilar SET aktif=1 WHERE id = ID
Son olarak herkesin gördüğü yazıların yayınlandığı sayfada sadece aktif olanları göster. Ör: SELECT * FROM yazilar WHERE aktif=1
Sonra kaydettiğin kodlarda düzenleme yapacaksın
bbs.addnew
bbs("adi") = adi
bbs("email") = email
bbs("baslik") = baslik
bbs("mesaj") = mesaj
bbs("tarih") = date
bbs("aktif") = 0
bbs.update
Yönetim panelinde mesajları onaylamak için, Sql ile kayıtların Aktif alanları 0 olanları göstereksin. Ör: SELECT * FROM yazilar WHERE aktif=0 gibi.
Sayfada listelenenlerden birisini aktif hale getirmek istersen, üzerine tıkla ve o kaydın Aktif alanını 1 yaptır. Ör: UPDATE yazilar SET aktif=1 WHERE id = ID
Son olarak herkesin gördüğü yazıların yayınlandığı sayfada sadece aktif olanları göster. Ör: SELECT * FROM yazilar WHERE aktif=1
- sherlockholmes
- Kıdemli Üye
- Mesajlar: 930
- Kayıt: 19 Tem 2004 09:13
istediğin işlemi burası gerçekleştiriyor ...salvation yazdı: Sayfada listelenenlerden birisini aktif hale getirmek istersen, üzerine tıkla ve o kaydın Aktif alanını 1 yaptır. Ör: UPDATE yazilar SET aktif=1 WHERE id = ID
[/i]
y = e^x fonksiyonu hangimizi etkilememiştir ki? Küllerinden hayat bulan Zümrüd-ü Anka kuşu gibi, türevi yine kendisidir.
tekrar kodlarımı yazayım belki yardım açısından daha faydalı olur
onaylamak istediğim mesajın onay linki şu :
defter_onay.asp?id=<%=rsbbs("id")%>
defter_onay.asp de şu kodlardan oluşuyor :
<%
Set id = Request.QueryString("id")
Set Surbbs = Server.CreateObject("ADODB.Connection")
Surbbs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/veritabanım.mdb")
Set rsbbs = Server.CreateObject("ADODB.Recordset")
sorbbs = "UPDATE ziyaretcidefteri SET aktif=1 WHERE id = id "
Response.Redirect("defter_admin.asp")
%>
bu şekilde yaptığımda bir mesaja onay vermek istediğimde tüm onaysız mesajlar onay alıyor.
onaylamak istediğim mesajın onay linki şu :
defter_onay.asp?id=<%=rsbbs("id")%>
defter_onay.asp de şu kodlardan oluşuyor :
<%
Set id = Request.QueryString("id")
Set Surbbs = Server.CreateObject("ADODB.Connection")
Surbbs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/veritabanım.mdb")
Set rsbbs = Server.CreateObject("ADODB.Recordset")
sorbbs = "UPDATE ziyaretcidefteri SET aktif=1 WHERE id = id "
Response.Redirect("defter_admin.asp")
%>
bu şekilde yaptığımda bir mesaja onay vermek istediğimde tüm onaysız mesajlar onay alıyor.
! SİGARA ÖLDÜRÜR! ÖLDÜRENE KADAR DA SÜRÜNDÜRÜR
- sherlockholmes
- Kıdemli Üye
- Mesajlar: 930
- Kayıt: 19 Tem 2004 09:13
aşağıdaki şekilde kullanınca sadece seçilen mesajı onaylıyor iki id de parantez içinde yazılmış ondanmış , ilk anda fark edememişim , dalgınlık işte ...
aslında işin büyük kısmını @salvation yapmış ...
aslında işin büyük kısmını @salvation yapmış ...
Kod: Tümünü seç
sorbbs = "UPDATE ziyaretcidefteri SET aktif=1 WHERE id =" + id
y = e^x fonksiyonu hangimizi etkilememiştir ki? Küllerinden hayat bulan Zümrüd-ü Anka kuşu gibi, türevi yine kendisidir.