RIFAT YAKAR - Yeni sayfanın başlığı

<% sayfa.MoveNext next sayfa.close Set sayfa= Nothing %> <% menu.MoveNext next menu.close Set menu= Nothing %>

YÖNETİM PANELİ OKUMA VE SİLME BÖLÜMÜ

hoşgeldin admin.

SOYAD

OKU

SİL

">oku

">sil

Giriş yapmanız gerekmektedir.

<% id = sayfa("id") if id=1 then response.write "" else %> " OnMouseOver="javascript:window.status='-<%=sayfa("baslik")%>- başlıklı sayfayı sil...'; return true" OnMouseOut="javascript:window.status=''; return true">

<%End if%>

<% id = sayfa("id") if id=1 then response.write "" else onay = sayfa("onay") if onay = True then response.write "" else response.write "" end if end if %>

Sayfaların Menü Kategorilerini Değiştirmek için Sayfa Güncelleme Alanından Yararlanınız.

Gösterilmeyen (Onaysız) Menüler <% ' Menüleri görelim Set menu = Server.CreateObject("ADODB.Recordset") sor = "Select * from menuler where monay=no ORDER BY sira_no" menu.Open sor,Sur,1,3 for i=1 to menu.recordcount If menu.eof Then exit for %> <% ' sayfaları görelim kid=menu("sira_no") Set sayfa = Server.CreateObject("ADODB.Recordset") sor = "Select * from sayfa WHERE menu_sira_no=" & kid & " order by sira" sayfa.Open sor,Sur,1,3 for t=1 to sayfa.recordcount If sayfa.eof Then exit for 'if sayfa("onay")=True then %>

Sayfa adı

Hit

Sırala

Sil

Menü

<%=menu("menu")%>

<% onay = sayfa("onay") if onay = True then response.write "" else response.write "X" end if %> " target="_blank" OnMouseOver="javascript:window.status='Sayfayı incelemek İçin Tıklayınız...'; return true" OnMouseOut="javascript:window.status=''; return true"><%=sayfa("baslik")%>

<%=sayfa("hit")%>

<%End if%>

<% id = sayfa("id") if id=1 then response.write "" else onay = sayfa("onay") if onay = True then response.write "

Bugün 1 ziyaretçi (7 klik) kişi burdaydı!

Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?

Ücretsiz kaydol