<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("yonetici/ibrahimce")
set vt = Server.CreateObject("ADODB.RecordSet")
%>
<%set menu = server.createobject("adodb.recordset")
SQL="Select * from menu"
menu.open SQL,baglanti,1,3
Do While not menu.eof
%>
ANASAYFA
PERSONEL
BÖLÜMLER
ETKİNLİKLER
İLETİŞİM
AKDAĞMADENİ
OBİSİS
AKADEMİK TAKVİM
DUYURULAR
<%set duyuru = server.createobject("adodb.recordset")
SQL="Select * from duyurular order by id desc"
duyuru.open SQL,baglanti,1,3
kayitsay=duyuru.RecordCount
%>
<%
i=1
do while i<4 and not duyuru.eof
if i mod 2 = 0 Then
bg = "#FFFFFF"
else
bg = "#FOFOFO"
end if
%>
Panomuzda toplam <%=kayitsay%> haber bulunmaktadır.
<%
set ataturk_sozu=Server.CreateObject("ADODB.RecordSet")
ataturk_sozu.open "ataturk_sozu" , baglanti,1,3
kayit_sayisi=ataturk_sozu.RecordCount
Randomize
id = Int((kayit_sayisi * Rnd)+ 0)
ataturk_sozu.Move(id)%>
<%ataturk_sozu.close
set ataturk_sozu=nothing
%>
<%
function temizle(data)
data = Trim(data)
data = Replace(data , "<", "<")
data = Replace(data , ">", ">")
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"=","",1,-1,1)
data = Replace (data ,"&","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"!","",1,-1,1)
data = Replace (data ,"#","",1,-1,1)
data = Replace (data ,"<","",1,-1,1)
data = Replace (data ,">","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"\","",1,-1,1)
data = Replace (data ,"And","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"Chr(34)","",1,-1,1)
data = Replace (data ,"Chr(39)","",1,-1,1)
temizle=data
end function
function buyukharf(bharf)
bharf = Trim(bharf)
bharf = Replace(bharf , "ı", "I")
bharf = Replace(bharf , "i", "İ")
bharf = Ucase(bharf)
buyukharf=bharf
end function
function kucukharf(kharf)
kharf = Trim(kharf)
kharf = Replace(kharf , "I", "ı")
kharf = Replace(kharf , "İ", "i")
kharf = Lcase(kharf)
kucukharf=kharf
end function
%>
<%
'TARİH VE İD NOSU HİT VE ONAY STANDART DEĞİŞKENE İSİM GİRME
'aaaa bbbb cccc dolu olması istenecek şekilde
mdbyolu="yonetici/ibrahimce"
tabloadi="defter"
aaaa="adi" '1 TABLO daki ad
aaa1="Ekleyen: " 'ÖN ADI
bbbb="email" '2
bbb1=" Email Adresi :"
cccc="url" '2
ccc1="Web siteniz:"
dddd="baslik" '2
ddd1=" Başlık :"
eeee="mesaj"
eee1=" Mesaj :"
%>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("yonetici/ibrahimce")
Set efkan = Server.CreateObject("ADODB.Recordset")
islem = Request.QueryString("islem")
if islem = "sil" then
call sil
elseif islem="ekle" then
call ekle
elseif islem="arabul" then
call arabul
else 'işlem yukarıdakilerin hiç biri değilse kayitları çağır
call kayitlar
end if
%>
<%
sub kayitlar
sor = "Select * from "&tabloadi&" where ONAY like '%N%' order by id desc"
efkan.Open sor,Sur,1,3
onaysiz=efkan.recordcount
efkan.close
sor = "Select * from "&tabloadi&" where ONAY like '%y%' order by id desc" 'KULLANICI İÇİN
efkan.Open sor,Sur,1,3
adet=efkan.recordcount
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
if efkan.eof or efkan.bof then
Response.Write "
Kayıt Bulunamadı...."
Response.End
end if
%>
Onay Bekleyen Mesaj :(<%=onaysiz%>)
<%
efkan.pagesize =2 'bir sayfada gösterilecek adet
efkan.absolutepage = shf
sayfa = efkan.pagecount
for i=1 to efkan.pagesize
if efkan.eof then exit for
%>
<%
efkan.movenext
Next
efkan.close
%>
<%=adet%> adet kayıt bulundu. Sayfalar :
<%
for y=1 to sayfa
' if shf=y then
if y=cint(shf ) then 'bulunduğun sayfaya link yok
response.write y
else
response.write ""&y&""
end if
next
end sub
%>
Mesaj Ekle
Tüm Mesajlar
<%sub ekle%>
Mesaj Ekle
<%
sor = "Select * from "&tabloadi&""
efkan.Open sor,sur,1,3
if request.form(""&aaaa&"")="" or request.form(""&bbbb&"")="" or request.form(""&cccc&"")="" or request.form(""&dddd&"")="" or request.form(""&eeee&"")="" then
'Response.Write "
Tüm alanları doldurunuz...
"
Response.Write ""
Response.End
end if
kontrol1= InStr(request.form(""&bbbb&""),"@")
kontrol2= InStr(request.form(""&bbbb&""),".")
if kontrol1="0" or kontrol2="0" then
Response.Write ""
Response.Write ""
Response.End
end if
efkan.AddNew
efkan("onay") = "N"
efkan("tarih") = Trim(Request.Form ("tarih"))
efkan(""&aaaa&"") =temizle(Request.Form (""&aaaa&""))
efkan(""&bbbb&"") =temizle(Request.Form (""&bbbb&""))
efkan(""&cccc&"") =temizle(Request.Form (""&cccc&""))
efkan(""&dddd&"") =temizle(Request.Form (""&dddd&""))
efkan(""&eeee&"") =temizle(Request.Form (""&eeee&""))
efkan.Update
Response.Write ""
Response.Write ""
'Response.Redirect "defter.asp"
efkan.close
end sub
%>
<%
sub arabul
Response.Buffer = True
if request("ara")="" then
Response.Write "
LÜTFEN ARANACAK KELİMEYİ BELİRTİN..."
Response.End
end if
ara=trim(request("ara"))
sor = "select * from "&tabloadi&" WHERE onay ='Y' AND "&aaaa&" like '%"&ara&"%' OR onay ='Y' AND "&eeee&" like '%"&ara&"%' "
efkan.Open sor,Sur,1,3
if efkan.eof or efkan.bof then
Response.Write "
KAYIT BULUNAMADI"
Response.End
'Response.Redirect "defter.asp"
end if
adet=efkan.recordcount
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
%>
<%=adet%> adet "<%=ara%>" bulundu..Sayfalar :
<%
for y=1 to sayfa
' if shf=y then
if y=cint(shf ) then 'bulunduğun sayfaya link yok
response.write y
else
response.write " "&y&" "
end if
next
set efkan =nothing
end sub
%>
<%
Dim il
il = request.form("il")
if il = "" then
il = "AYDIN"
end if
if il = "YOK" then
il = "AYDIN"
end if
Dim URL
URL = "http://www.meteor.gov.tr/sunum/imgdurumgor-a3-g.aspx?merkez="&il&"&renkC=7b92bd&renkT=30415c"
Dim URL2
URL2 = "http://www.meteor.gov.tr/sunum/imgtahmingor-a3-g.aspx?merkez="&il&"&gun=T&renkC=7b92bd&renkT=30415c"
%>
MEB HABER
<%Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("yonetici/ibrahimce")%>
<% bugun="BUGUN"
Set RS=server.createObject("ADODB.Recordset")
sor = "select*from sayac "
RS.open sor,Bag,1,3
rs.movefirst
if rs("tarih") = date then
RS.fields("ziyaret") = rs.fields("ziyaret") + 1
saybugun=rs("ziyaret")
else
rs("tarih")=date
rs("ziyaret") = 1
saybugun=1
end if
rs.getrows(1)
rs("tarih") = date
rs("ziyaret") = rs("ziyaret") + 1
saytoplam=rs("ziyaret")
RS.update%>
<%
sure=1
ip=Request.ServerVariables("REMOTE_ADDR")
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online where ip='"& ip &"'"
kset.open sql, bag, 1, 3
ip=Request.ServerVariables("REMOTE_ADDR")
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online where ip='"& ip &"'"
kset.open sql, bag, 1, 3
If kset.eof Then
kset.addnew
kset("ip")=ip
kset("tarih")=now
else
kset("tarih")=now
end if
kset.update
kset.Close
Set kset = Nothing
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online"
kset.open sql, bag, 1, 3
Do While Not kset.eof
zaman=datediff("n",kset("tarih"),now)
if zaman > sure then
sql = "DELETE FROM online WHERE ip = '"&kset("ip")&"'"
Set sil = bag.execute(sql)
Set sil = Nothing
end if
kset.movenext
Loop
online = kset.RecordCount
kset.Close
Set kset = Nothing
bag.Close
Set bag = Nothing%>
<%dim num%>
Ziyareçi Sayısı
Online
:
<%Response.Write "" & online & ""%>
IP'niz
:
<%Dim temp, ip
temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If temp<>"" Then
ip = temp
Else
ip = Request.ServerVariables("REMOTE_ADDR")
End If
Response.Write ip%>
<%
tekilmi = Request.Cookies("veritabanimsay")("Login") ' Sonuç evet veya hayir olarak dönecek.Eğer daha önce girdi ise evet, girmedi ise hayir.
Set ssay = Server.CreateObject("Adodb.Connection")
ssay.Open "DBQ="& Server.Mappath("yonetici/ibrahimce") &";Driver={Microsoft Access Driver (*.mdb)}"
Set top_q = Server.CreateObject("ADODB.Recordset")
top_sql = "select sum(top) as qtop from say"
top_q.open top_sql, ssay, 1, 3
toplam = top_q("qtop")
Set say = Server.CreateObject("Adodb.Recordset")
SQL = "Select * from say where tarih = DateAdd('d',0,'"& date &"')"
say.Open SQL, ssay, 1, 3
if say.Eof then ' Yeni bir gün...
say.AddNew
say("tarih") = date
say("tek") = 1
say("cog") =0
say("top") = 1
say.Update
else
say("top") = say("top") + 1
if tekilmi = "evet" then
say("cog") = say("cog") + 1
else
say("tek") = say("tek") + 1
Response.Cookies("veritabanimsay")("Login") = "evet"
Response.Cookies("veritabanimsay").Expires=Now()+1
end if
say.Update
end if
response.write "
<%
function temizle(data)
data = Trim(data)
data = Replace(data , "<", "<")
data = Replace(data , ">", ">")
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"=","",1,-1,1)
data = Replace (data ,"&","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"!","",1,-1,1)
data = Replace (data ,"#","",1,-1,1)
data = Replace (data ,"<","",1,-1,1)
data = Replace (data ,">","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"\","",1,-1,1)
data = Replace (data ,"And","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"Chr(34)","",1,-1,1)
data = Replace (data ,"Chr(39)","",1,-1,1)
temizle=data
end function
function buyukharf(bharf)
bharf = Trim(bharf)
bharf = Replace(bharf , "ı", "I")
bharf = Replace(bharf , "i", "İ")
bharf = Ucase(bharf)
buyukharf=bharf
end function
function kucukharf(kharf)
kharf = Trim(kharf)
kharf = Replace(kharf , "I", "ı")
kharf = Replace(kharf , "İ", "i")
kharf = Lcase(kharf)
kucukharf=kharf
end function
%>
<%
'TARİH VE İD NOSU HİT VE ONAY STANDART DEĞİŞKENE İSİM GİRME
'aaaa bbbb cccc dolu olması istenecek şekilde
mdbyolu="yonetici/ibrahimce"
tabloadi="defter"
aaaa="adi" '1 TABLO daki ad
aaa1="Ekleyen: " 'ÖN ADI
bbbb="email" '2
bbb1=" Email Adresi :"
cccc="url" '2
ccc1="Web siteniz:"
dddd="baslik" '2
ddd1=" Başlık :"
eeee="mesaj"
eee1=" Mesaj :"
%>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("yonetici/ibrahimce")
Set efkan = Server.CreateObject("ADODB.Recordset")
islem = Request.QueryString("islem")
if islem = "sil" then
call sil
elseif islem="ekle" then
call ekle
elseif islem="arabul" then
call arabul
else 'işlem yukarıdakilerin hiç biri değilse kayitları çağır
call kayitlar
end if
%>
<%
sub kayitlar
sor = "Select * from "&tabloadi&" where ONAY like '%N%' order by id desc"
efkan.Open sor,Sur,1,3
onaysiz=efkan.recordcount
efkan.close
sor = "Select * from "&tabloadi&" where ONAY like '%y%' order by id desc" 'KULLANICI İÇİN
efkan.Open sor,Sur,1,3
adet=efkan.recordcount
shf = Request.QueryString("shf")
if shf="" then
shf=1
end if
if efkan.eof or efkan.bof then
Response.Write " 