Gönderen: 08-Haziran-2012 Saat 09:39 | Kayıtlı IP

!-- 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