<% If session("adminmi") = "" Then
response.redirect "sifre.asp"
response.redirect "../ayarlar.asp"
End If
%>
<% db_veriyolu ="../" & vtyolu & "/"& vtadi &""
Set rs=Server.CreateObject("Adodb.Recordset")
set veri = server.createobject("adodb.connection")
veri.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.mappath(db_veriyolu & ".mdb")
'Set veri = Server.CreateObject("ADODB.Connection")
'veri.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../65465879a23423455ads_ads/siv54854reh313.mdb")
%><%
select case request("sayfa")
case "yorum_sil"
veri.execute("delete from yorum where id="&request.querystring("id"))
response.redirect "kose.asp"
case "yorum_onayla"
veri.execute("update yorum set onay=1 where id="&request.querystring("id"))
response.redirect "kose.asp"
case "yorum"
kid = request.querystring("kid")
%>
.. Onaysiz Yorumlar
<%
Set rs=Server.CreateObject("Adodb.Recordset")
rs.cachesize = 10
rs.pagesize = 10
rs.open "select * from yorum where onay = 0 order by id desc",veri,1,3
if not rs.eof then
%>
<%sayfa = Request.QueryString("sayfalar")
If sayfa ="" Then sayfa="1"
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
If rs.eof Then exit for
if renk="" then
renk=renk1
elseif renk=renk1 then
renk=renk2
elseif renk=renk2 then
renk=renk1
end if
id = rs("id")
%>
Yazi
:
<%set haber =veri.execute("select top 1 baslik from yazi where id="&rs("hid"))
if not haber.eof then
response.write haber("baslik")
end if
haber.close : set haber = nothing%>
<%=sayfa_sayisi%> Sayfada, Toplam <%=rs.recordcount%>
Onaysiz Yorum
<%
else
response.write " Onay Bekleyen Yorum Yok"
end if
rs.close : set rs = nothing
case "sil"
id = request.querystring("id")
veri.execute("delete from yazarmesaj where id="&id)
response.redirect geri
case "mesaj"
yid = request.querystring("yid")
Set rs=Server.CreateObject("Adodb.Recordset")
rs.cachesize = 10
rs.pagesize = 10
rs.open "select * from yazarmeSaj where yid="&yid&" order by id desc",veri,1,3
if not rs.eof then
sayfa = Request.QueryString("sayfalar")
If sayfa ="" Then sayfa="1"
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
If rs.eof Then exit for
id = rs("id")
%>
<%=sayfa_sayisi%> Sayfada, Toplam <%=rs.recordcount%>
Mesaj
<%
else
response.write "Henüz Bu Yazara Gelen Msj Yok"
end if
case "g1d"
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveToMemory
Set File = Upload.Files(1)
randomize
sayi = int((9999*rnd)+1)
dosya_adi = session.sessionid &sayi&"."&file.imagetype
id = upload.form("id")
set yazar = veri.execute("select top 1 * from yazar where id="&id)
resim_adi=yazar("grafik1")
yazar.close
veri.execute("update yazar set grafik1='"&dosya_adi&"' where id="&id)
Path = server.mappath("..\kose_resim") &"\"& dosya_adi
File.SaveAs Path
Upload.DeleteFile server.mappath("..\kose_resim") &"/" &resim_adi
response.redirect "kose.asp?sayfa=yazar_duzenle&id="&id
case "grafik1"
id = request.querystring("id")
%>
<%
case "g2d"
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveToMemory
Set File = Upload.Files(1)
randomize
sayi = int((9999*rnd)+1)
dosya_adi = session.sessionid &sayi&"."&file.imagetype
id = upload.form("id")
set yazar = veri.execute("select top 1 * from yazar where id="&id)
resim_adi=yazar("grafik2")
yazar.close
veri.execute("update yazar set grafik2='"&dosya_adi&"' where id="&id)
Path = server.mappath("..\kose_resim") &"\"& dosya_adi
File.SaveAs Path
Upload.DeleteFile server.mappath("..\kose_resim") &"/" &resim_adi
response.redirect "kose.asp?sayfa=yazar_duzenle&id="&id
case "grafik2"
id = request.querystring("id")
%>
<%
case "yazar_guncelle"
id = request.form("id")
rs.open "select * from yazar where id="&id,veri,1,3
rs("ad_soyad")=request.form("ad_soyad")
rs("mail")=request.form("mail")
rs("kulladi")=request.form("kulladi")
rs("sifre")=request.form("sifre")
rs("sira")=request.form("sira")
if Request.form("resim")<>"" then
rs("grafik1") = Request.form("resim")
end if
rs.update
response.redirect "kose.asp"
%>
<%
case "yazar_duzenle"
id = request.querystring("id")
set yazar = veri.execute("select * from yazar where id="&id)
%>
<%
case "sg"
for i=1 to Request.form("id").count
id=request.form("id")(i)
id=replace(id,"F","")
sira=request.form("sira")(i)
veri.execute("update yazar set sira="&sira&" where id="&id&"")
next
response.redirect "kose.asp"
case "guncelle"
id = request.form("id")
rs.open "select * from yazi where id="&id,veri,1,3
rs("baslik")=request.form("baslik")
rs("yazi")=request.form("FCKeditor1")
rs.update
%>
<%
case "duzenle"
id = request.querystring("id")
set yazi = veri.executE("select top 1 * from yazi where id="&id)
if not yazi.eof then
%>
<%
Dim sBasePath
sBasePath = Request.ServerVariables("PATH_INFO")
sBasePath = Left( sBasePath, InStrRev( sBasePath, "/" ) )
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = sBasePath
oFCKeditor.Value = yazi("yazi")
oFCKeditor.Create "FCKeditor1"
%>
Yorum Yazilmasina Izin Ver
>
<%
end if
case "yazi_sil"
id = request.querystring("id")
veri.execute("delete from yazi where id="&id)
veri.executE("delete from yorum where hid="&id)
%>
<%
case "yazar_isle"
i=1
rs.open "select * from yazar",veri,1,3
rs.addnew
rs("ad_soyad")=Request.form("ad_soyad")
rs("mail")=Request.form("mail")
rs("sifre")=Request.form("sifre")
rs("sira")=Request.form("sira")
rs("kulladi")=Request.form("kulladi")
if Request.form("resim")<>"" then
rs("grafik1") = Request.form("resim")
else
rs("grafik1") = "resimyok.gif"
end if
rs.update
response.redirect "kose.asp"
case "yazar_ekle"%>
<%
case "yazar"
yid = request.querystring("id")
set yazar = veri.execute("select * from yazar where id="&yid)
%>
Yazar : <%=yazar("ad_soyad")%>
<%yazar.close : set yazar = nothing%>
<%
rs.cachesize = 25
rs.pagesize = 25
rs.open "select baslik,id,tarih from yazi where yid = "&yid&" order by id desc",veri,1,3
if not rs.eof then
%>
Baslik
Tarih
<%sayfa = Request.QueryString("sayfalar")
If sayfa ="" Then sayfa="1"
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
If rs.eof Then exit for
if renk="" then
renk=renk1
elseif renk=renk1 then
renk=renk2
elseif renk=renk2 then
renk=renk1
end if
id = rs("id")
%>
<%=rs("baslik")%>
<%=rs("tarih")%>
<%
rs.movenext
Next
%>
<%=sayfa_sayisi%> Sayfada, Toplam <%=rs.recordcount%>
Yazi
<%
else
response.write "
Henüz Bu Yazar Yazı Eklemedi."
end if
rs.close : set rs = nothing
case "yazar_sil"
id = request.querystring("id")
veri.execute("delete from yazar where id="&id)
veri.execute("delete from yazi where yid="&id)
response.redirect "kose.asp"
case "durum"
veri.execute("update yazar set durum="&request.querystring("durum")&" where id="&request.querystring("id"))
response.redirect "kose.asp"
case else
set yazar = veri.execute("select * from yazar order by sira asc")
if not yazar.eof then
%>
<%
else
%>
Henüz Yazar Eklemediniz.
<%
end if
end select
veri.close : set veri = nothing
%>
