Gönderen: 09-Aralık-2007 Saat 21:49 | Kayıtlı IP

mocos yazmıycaktım ama ben de yazmazsam kim cevap verir dedim,

ama haklıyım, cevap yazıyorum teşekkürden geçtim acaba verdiğim cevap işini gördümü görmedimi tereddütte kalıyorum.eğer işini gördüyse buraya yazda tereddüt etmiyeyim.

alsana haber portalı için haber yazma ve birden fazla haber güncelleme kodları, sorun olursa yaz..

<%

'kodlayan grayder admin@mutluyuzbiz.com
'Veritabanı yolu değiştirdiğiniz veritabanı yolunu buradanda değiştirin
dbyol = "../dosya/db_adı.mdb"  'DB Yolunu yazıyoruz..Mutluka db yolunuzu değiştirmeyi unutmayın..

Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&dbyol&"")

%>
<%

'burası admin griş kontrol
if session("admin") <> "true" then
response.Redirect("security/kontrol.asp")
else
%>
<center>
  <% islem = Request.Querystring("islem")
  if islem = "ekle" then %>
  <form method="POST" action="?islem=ekle2">
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="87%" id="AutoNumber1">
  <tr>
    <td width="100%" colspan="2">
    <p align="center"><b>Haber Ekleme</b></td>
  </tr>
  <tr>
    <td width="36%" bgcolor="#EBEBEB">
      <b>*Haber Başlığı:</b></td>
    <td width="64%" bgcolor="#EBEBEB">
    <input type="text" name="baslik" size="44"></td>
  </tr>
  <tr>
    <td width="36%" bgcolor="#EBEBEB">
      <b>*Haber Metni:</b></td>
    <td width="64%" bgcolor="#EBEBEB">
    <textarea rows="13" name="haber" cols="61"></textarea></td>
  </tr>
  <script language="JavaScript1.2" defer>
editor_generate('haber');
    </script>
  <tr>
    <td width="36%" bgcolor="#EBEBEB">
      <b>Haber Resim Adresi:</b></td>
    <td width="64%" bgcolor="#EBEBEB"><input type="text" name="resim" size="26"></td>
  </tr>
  <tr>
    <td width="36%" bgcolor="#EBEBEB">
      <b>*Haberi Ekleyen:</b></td>
    <td width="64%" bgcolor="#EBEBEB">
    <input type="text" name="ekleyen" size="26" value="grayder"></td>
  </tr>
  <tr>
    <td width="36%" bgcolor="#EBEBEB">
      <b>*Haber Kategorisi:</b></td>
    <td width="64%" bgcolor="#EBEBEB"><select size="1" name="katid">
    <option selected>Seçiniz..</option>
    <%
    set kat = Server.CreateObject("ADODB.Recordset")
    sql = "Select * From kategori order by id desc"
    kat.Open sql,bag,1,3
   
    Do While not kat.eof %>
    <option value="<%=kat("id")%>"><%=kat("isim")%></o ption>
    <%
    kat.Movenext
    Loop
    kat.close
    set kat = Nothing
    %>
    </select></td>
  </tr>
  <tr>
    <td width="100%" colspan="2">
      <p align="center"><input type="submit" value="Haber Ekle"></p>
    </td>
  </tr>
</table>
 </form>
 <% elseif islem = "ekle2" then %><p align="center">
<%
baslik = Request.Form("baslik")
haber = Request.Form("haber")
resim = Request.Form("resim")
ekleyen = Request.Form("ekleyen")
katid = Request.Form("katid")
if baslik = "" then
Response.Write("Haber Başlığı Giriniz..")
elseif haber = "" then
Response.Write("Haber Metni Giriniz..")
elseif ekleyen = "" then
Response.Write("Haberi Ekleyeni Giriniz..")
elseif katid = "" then
Response.Write("Haber Kategorisi Seçiniz..")
else
set ekle = Server.CreateObject("ADODB.Recordset")
sql = "Select * From tablo_adınız"
ekle.Open sql,bag,1,3
ekle.Addnew
ekle("baslik") = baslik
ekle("haber") = haber
ekle("resim") = resim
ekle("ekleyen") = ekleyen
ekle("tarih") = Date
ekle("katid") = katid
ekle.Update
Response.Write("Haber Eklenmiştir.")
end if
%></p>
<% elseif islem = "gor" then %>
<%
set gor = Server.CreateObject("ADODB.Recordset")
sql = "Select * From tablo_adınız order by id desc"
gor.Open sql,bag,1,3
%>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="50%" id="AutoNumber2">
  <tr>
    <td width="100%" colspan="2">
    <p align="center"><b>İşlem Yapmak İstediğiniz Haberin Solundaki
    Linklerden Birini Seçin..</b></td>
  </tr>
  <% Do While not gor.eof %>
  <tr>
    <td width="19%" bgcolor="#EBEBEB">
    <p align="center"><a href="?islem=duzenle&id=<%=gor("id")%>">Düzenle </a>&nbsp;
    <a href="?islem=sil&id=<%=gor("id")%>">Sil</a&g t;</td>
    <td width="81%" bgcolor="#EBEBEB">
    <p align="center"><%=gor("baslik")%></td>
  </tr>
  <%
  gor.Movenext
  Loop
  gor.close
  set gor = Nothing
  %>
  <tr>
    <td width="100%" colspan="2">&nbsp;</td>
  </tr>
</table>
<% elseif islem = "duzenle" then %>
<%
id = Request.Querystring("id")
if id = "" then
Response.Write("Düzenlemek İçin Haber Seçmediniz..")
else
set duz = Server.CreateObject("ADODB.Recordset")
sql = "Select * From tablo_adınız where id = "&id&""
duz.Open sql,bag,1,3
%>
  <form method="POST" action="?islem=duzenle2&id==<%=duz("id")%>">
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="87%" id="AutoNumber1" height="359">
  <tr>
    <td width="100%" colspan="2" height="19">
    <p align="center"><b>Haber Düzenleme</b></td>
  </tr>
  <tr>
    <td width="36%" bgcolor="#EBEBEB" height="21">
      <b>*Haber Başlığı:</b></td>
    <td width="66%" bgcolor="#EBEBEB" height="21">
    <input type="text" name="baslik" size="44" value="<%=duz("baslik")%>"></td>
  </tr>
  <tr>
    <td width="36%" bgcolor="#EBEBEB" height="212">
      <b>*Haber Metni:</b></td>
    <td width="66%" bgcolor="#EBEBEB" height="212">
    <textarea rows="13" name="haber" cols="61"><%=duz("haber")%></textarea></td >
  </tr>
  <script language="JavaScript1.2" defer>
editor_generate('haber');
    </script>
  <tr>
    <td width="36%" bgcolor="#EBEBEB" height="20">
      <b>Haberin Resim Adresi:</b></td>
    <td width="66%" bgcolor="#EBEBEB" height="20">
    <input type="text" name="resim" size="26" value="<%=duz("resim")%>"></td>
  </tr>
  <tr>
    <td width="36%" bgcolor="#EBEBEB" height="21">
      <b>*Haberi Ekleyen:</b></td>
    <td width="66%" bgcolor="#EBEBEB" height="21">
    <input type="text" name="ekleyen" size="26" value="<%=duz("ekleyen")%>"></td>
  </tr>
  <tr>
    <td width="36%" bgcolor="#EBEBEB" height="21">
      <b>*Haber Kategorisi:</b></td>
    <td width="66%" bgcolor="#EBEBEB" height="21"><select size="1" name="katid">
    <option selected value="<%=duz("katid")%>">Varsayılan</option>
    <%
    set kat = Server.CreateObject("ADODB.Recordset")
    sql = "Select * From kategori order by id desc"
    kat.Open sql,bag,1,3
   
    Do While not kat.eof %>
    <option value="<%=kat("id")%>"><%=kat("isim")%></o ption>
    <%
    kat.Movenext
    Loop
    kat.close
    set kat = Nothing
    %>
    </select></td>
  </tr>
  <tr>
    <td width="100%" colspan="2" height="25"">
      <p align="center"><input type="submit" value="Haber Düzenleme"></p>
    </td>
  </tr>
</table>
 </form>
 <%
 end if
 duz.close
 set duz = Nothing
 %>
 <% elseif islem = "duzenle2" then %><p align="center">
 <%
id = Request.Querystring("id")
baslik = Request.Form("baslik")
haber = Request.Form("haber")
resim = Request.Form("resim")
ekleyen = Request.Form("ekleyen")
katid = Request.Form("katid")
if id = "" then
Response.Write("Bir Hata Oluştu..Bu Hata Sürekli Devam Edebilir..Tekrar Deneyin Eğer Tekrar Bu Hatayı Görürseniz Sayfadaki Kodalarınıza Göz Atınız..")
elseif baslik = "" then
Response.Write("Haber Başlığı Giriniz..")
elseif haber = "" then
Response.Write("Haber Metni Giriniz..")
elseif ekleyen = "" then
Response.Write("Haberi Ekleyeni Giriniz..")
elseif katid = "" then
Response.Write("Haber Kategorisi Seçiniz..")
else
set duz = Server.CreateObject("ADODB.Recordset")
sql = "Select * From tablo_adınız where id = "&id&""
duz.Open sql,bag,1,3
 
duz("baslik") = baslik
duz("haber") = haber
duz("resim") = resim
duz("ekleyen") = ekleyen
duz("katid") = katid
duz.Update
Response.Write("Haber Düzenlenmiştir.")
end if
%>
<%
duz.close
set duz = Nothing
%></p>
<% elseif islem = "sil" then %><p align="center">
 <%
 id = Request.Querystring("id")
 if id = "" then
 Response.Write("Silmek İçin Haber Seçmediniz..")
 else
 set rs = Server.CreateObject("ADODB.Recordset")
 sql = "DELETE * From tablo_adınız where id = "&id&""
 rs.Open sql,bag,1,3
 Response.Write("Haber Silinmiştir..")
 end if
 %></p>
</center>
<% end if %>
<%end if%>

Gönderen: 11-Aralık-2007 Saat 13:47 | Kayıtlı IP

mocos yazmıycaktım ama ben de yazmazsam kim cevap verir dedim,

ama haklıyım, cevap yazıyorum teşekkürden geçtim acaba verdiğim cevap işini gördümü görmedimi tereddütte kalıyorum.eğer işini gördüyse buraya yazda tereddüt etmiyeyim.

alsana haber portalı için haber yazma ve birden fazla haber güncelleme kodları, sorun olursa yaz..

Dostum ( greyder )
müteşekkir olurum demiştim yani baştan teşekkür ettim! cevap yazılmamasına şaşırmadım çünkü forumda pek üye yok ayrıca olanlarda demekki bilmiyorlar yoksa neden yazmasınlar şuraya cevabı değilmi?

yalnız gönderdiğin "haber ekleme" işleminden bahsetmiyorum.
alt alta 20 satırı bir anda güncellemek istiyorum!