implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP Uygulamaları
 ASPTurkiye.com Forum : ASP Uygulamaları
Konu Konu: menüde yan ayar yönetimi Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
şilan0101
Yeni Üye
Yeni Üye


Kayıt Tarihi: 06-Haziran-2012
Ülke: Turkiye
Gönderilenler: 12
Gönderen: 08-Haziran-2012 Saat 08:48 | Kayıtlı IP Alıntı şilan0101

menüde ayar nasıl yapıldığını gösteren kodları kısaca bilen varmı
Yukarı Dön Göster şilan0101's Özellikler Diğer Mesajlarını Ara: şilan0101
 
ismail0202
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20-Mayıs-2012
Ülke: Turkiye
Gönderilenler: 37
Gönderen: 08-Haziran-2012 Saat 09:39 | Kayıtlı IP Alıntı ismail0202

!-- Menü Yönetimi v2.1: BurakSimsek.com.tr & UzmanWeb.Net & Burak ŞİMŞEK -->
<%
'<><><><><><><>< ;><><><><><><><> ;<><><><><><><>< ;>
'<> Menü Yönetimi v2.1
'<> Burak ŞİMŞEK (Burajan)
'<> http://www.buraksimsek.com.tr
'<> UzmanWeb.Net | Bilgisayar - İnternet - Web
'<> http://www.uzmanweb.net
'<><><><><><><>< ;><><><><><><><> ;<><><><><><><>< ;>
%>
<%
Session.CODEPAGE= 1254

strDBPath = Server.MapPath("db/menu.mdb")
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath)

Function Temizle(strVeri)
     If strVeri = "" Then Exit Function
     strVeri = Replace(strVeri, "&", "&amp;")
     strVeri = Replace(strVeri, "'", "&#039;")
     strVeri = Replace(strVeri, "<", "&lt;")
     strVeri = Replace(strVeri, ">", "&gt;")
     strVeri = Replace(strVeri, """", "&quot;")
     strVeri = Replace(strVeri, "=", "")
     strVeri = Replace(strVeri, "'", "''")
     strVeri = Replace(strVeri, "\", "")
     strVeri = Replace(strVeri, "|", "")
     strVeri = Replace(strVeri, "select", "sel&#101;ct")
     strVeri = Replace(strVeri, "join", "jo&#105;n")
     strVeri = Replace(strVeri, "union", "un&#105;on")
     strVeri = Replace(strVeri, "where", "wh&#101;re")
     strVeri = Replace(strVeri, "exec", "ex&#101;c")
     strVeri = Replace(strVeri, "insert", "ins&#101;rt")
     strVeri = Replace(strVeri, "delete", "del&#101;te")
     strVeri = Replace(strVeri, "update", "up&#100;ate")
     strVeri = Replace(strVeri, "like", "lik&#101;")
     strVeri = Replace(strVeri, "drop", "dro&#112;")
     strVeri = Replace(strVeri, "create", "cr&#101;ate")
     strVeri = Replace(strVeri, "modify", "mod&#105;fy")
     strVeri = Replace(strVeri, "rename", "ren&#097;me")
     strVeri = Replace(strVeri, "alter", "alt&#101;r")
     strVeri = Replace(strVeri, "cast", "ca&#115;t")
     strVeri = Replace(strVeri, "char", "ch&#97;r")
     Temizle = strVeri
End Function

set menuayar = Server.CreateObject("adodb.recordset")
Sorgu= "SELECT * FROM AYAR WHERE ID=1"
menuayar.open Sorgu, Baglanti, 1, 3
If menuayar.Recordcount = 0 Then
STIL="1"
YANSTIL="1"
else
STIL=menuayar("STIL")
YANSTIL=menuayar("YANSTIL")
end if
menuayar.Close
Set menuayar=Nothing
%>
 bunları bi dene



__________________
123
Yukarı Dön Göster ismail0202's Özellikler Diğer Mesajlarını Ara: ismail0202
 
alenn34
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 26-Nisan-2013
Gönderilenler: 90
Gönderen: 28-Temmuz-2013 Saat 02:38 | Kayıtlı IP Alıntı alenn34

teşekkürler bilgi için....


Düzenleyen alenn34 17-Ekim-2013 Saat 18:00


__________________
koltuk tamirkoltuklar,koltuk
Yukarı Dön Göster alenn34's Özellikler Diğer Mesajlarını Ara: alenn34
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Kapalı Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0938 Saniyede Yüklendi.