<%
db_veriyolu ="" & vtyolu & "/"& vtadi &""
Set data=Server.CreateObject("ADODB.Connection")
data.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath(db_veriyolu & ".mdb")
%>
<%
if not isnumeric(Strislemzaman) then Strislemzaman="30"
islem=Request("islem")
if islem="yorumekle" then
id=Request.QueryString("id")
s=Request.QueryString("s")
sid=session.sessionID
if not s = (sid) then
response.redirect("index.asp")
end if
ETarih = Session("SonGon" )
If DateDiff("S" ,ETarih,Now()) > Int(Strislemzaman) Then
Session("SonGon" ) = Now()
Ekleyen=filtre(request.form("Ekleyen"))
Yorum=filtre(request.form("Yorum"))
if len(ekleyen) < 3 or len(Yorum) < 3 then
response.redirect "index.asp"
end if
Set blgekle = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from yorum"
blgekle.Open SQL,data,1,3
if Stryorumonay="1" then
tasvip="1"
cikti="Yorumunuz Admin Tarafından Onaylandıktan Sonra Sitede Yerini Alacaktır."
if session("admin") then tasvip="0"
else
tasvip="0"
cikti="Yorumunuz Başarıyla Kaydedildi"
end if
blgekle.Addnew
blgekle("Yorum")=Yorum
blgekle("Ekleyen")=Ekleyen
blgekle("Blog_id")=id
blgekle("onay")=tasvip
blgekle("Tarih")=now()
blgekle.update
if session("admin") then
response.redirect Request.ServerVariables("HTTP_REFERER")
end if
Response.Cookies("isim")=Ekleyen
Response.Cookies("isim").Expires = Now() + 7
response.write ""
response.write ""
response.write "
"
end if
End if
if islem="oner" then
id=request.querystring("id")
s=request.querystring("s")
sid=session.sessionID
if not s = (sid) then
response.redirect("index.asp")
end if
if Request.Form("isim_git")="" or Request.Form("isim")="" or Request.Form("git")="" then
response.redirect "index.asp"
end if
ETarih = Session("SonGon" )
If DateDiff("S" ,ETarih,Now()) > Int(Strislemzaman) Then
Session("SonGon" ) = Now()
if StrMail="1" then
Set Mail=Server.CreateObject("CDONTS.NewMail")
Mail.To=filtre(Request.Form("git"))
Mail.MailFormat = 1
else
Set Mail=Server.CreateObject("Jmail.Message")
Mail.Charset = "ISO-8859-9"
Mail.AddRecipient filtre(Request.Form("git"))
Mail.contenttype="text/html"
end if
Mail.From=Strtavsiyemail
Mail.Subject="Arkaşınızdan Tavsiye - "&Filtre(Request.Form("isim"))
eb=eb &" Selam "& filtre(Request.Form("isim_git")) &","& chr(10)
eb=eb &" "& chr(10)
eb=eb &" Arkadaşınız "&Filtre(Request.Form("isim"))&" Size Web Sitemizden Tavsiyede Bulundu"& chr(10)
eb=eb &" Adres: http://"&strsite&"/"&SEOLink(id)&"" & Chr(10)
eb=eb & chr(10)
eb=eb &" Arkadaşınızın Kısa Notu: " & chr(10)
eb=eb & filtre(request.form("not")) & chr(10)
eb=Replace(eb,chr(10)," ")
if strmail<>1 then
Mail.htmlbody=eb
else
Mail.Body=eb
end if
Mail.Send(strmailserver)
response.write("")
response.write "
"
else
response.write("")
end if
end if
if islem="oyver" then
Response.Charset = "iso-8859-9"
Response.Expires=-1
oy = request.querystring("oy")
dokuman = request.querystring("dokuman")
s=Request.QueryString("s")
sid=session.sessionID
if not s = (sid) or isnumeric(oy)=false or isnumeric(dokuman)=false then
response.redirect("index.asp")
end if
if oy >5 then oy=5
if oy <1 then oy=1
set dokumanid = Server.CreateObject("ADODB.Recordset")
sqL = "Select id,deger,degers from blog where id = "&dokuman&""
dokumanid.open sql,data,1,3
if dokumanid.eof or Request.Cookies("Puan")(dokuman) <> "" then
response.write "bu içeriğe "&Request.Cookies("Puan")(dokuman)&" verilmiş"
else
dokumanid("deger") = dokumanid("deger") + oy
dokumanid("degers") = dokumanid("degers") + 1
dokumanid.update
Session("puan") = "1"
Response.Cookies("Puan")(dokuman) = oy
Response.Cookies("Puan").Expires = now()+1
response.write ""&oy&" verildi"
end if
end if
%>
<%
if islem="yazdir" then
id=request.querystring("id")
if id="" then
response.redirect "index.asp"
end if
s=Request.QueryString("s")
sid=session.sessionID
if not s = (sid) then
response.redirect("index.asp")
end if
set yaz = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from blog where id like '"&id&"'"
yaz.open SQL,data,1,3
if yaz.eof or yaz.bof then
response.redirect "index.asp"
end if
isim = yaz("konu")
icerik = yaz("mesaj")
tarih = yaz("tarih")
%>
<%
Response.ContentType = "application/msword"
Response.AddHeader "Content-Disposition", "attachment;filename="&isim&".doc"
%>
Blog
<%=yaz("konu")%>
<%=Replace(yaz("mesaj"),"{KES}","")%>
Eklenme: <%=yaz("tarih")%>
<%
yaz.Close
Set yaz = Nothing
End if
if islem="anket" then
s=Request.QueryString("s")
sid=session.sessionID
if not s = (sid) then
response.redirect("giris.html")
end if
pid = Request.QueryString("id")
cevap = Request.Form("cevap")
gelen = Request.ServerVariables("HTTP_REFERER")
if cevap="" then
response.write ""
response.write ""
response.write "
"
else
SQL ="SELECT * FROM anket WHERE id=" & cevap
set anket = Server.CreateObject("ADODB.RecordSet")
anket.Open SQL, data, 1, 3
if anket.eof or anket.bof then
response.redirect "giris.html"
end if
anket("deger")=int(anket("deger")) + 1
anket.update
Response.Cookies("anket")(pid) = "kapat" 'Bu kısım güvenlik önlemi. Adamın bilgisayarına cookie atıyoruz
Response.Cookies("anket").Expires = Now() + 365 '365 gün boyunca aynı ankete oy kullanmaması için :)
response.write ""
response.write ""
response.write "
"
end if
end if
%>
<%
if islem="tavsiyeet" then
id=Request.QueryString("id")
if isnumeric(id) then
Set rs = Server.CreateObject("Adodb.Recordset")
SQL="Select id from blog where id="&id&""
rs.open SQL,data,1,3
if not rs.eof then
%>
<%
end if
rs.close : set rs=nothing
end if
end if
if islem="ilet" then
if not isnumeric(Strislemzaman) then Strislemzaman="30"
s=Request.QueryString("s")
sid=session.sessionID
if not s = (sid) then
response.redirect("index.asp")
end if
ETarih = Session("SonGon" )
If DateDiff("S" ,ETarih,Now()) > Int(Strislemzaman) Then
Session("SonGon" ) = Now()
Konu=filtre(request.form("Konu"))
Mesaj=filtre(request.form("Mesaj"))
isim=filtre(request.form("isim"))
yer=filtre(request.form("yer"))
mail=filtre(request.form("mail"))
url=filtre(request.form("url"))
if len(konu) < 3 or Len(Mesaj) < 3 or Len(isim) < 3 or Len(yer) < 3 or Len(mail) < 7 then
response.redirect "index.asp"
end if
Set blgekle = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from iletisim"
blgekle.Open SQL,data,1,3
blgekle.Addnew
blgekle("Mesaj")=Mesaj
blgekle("Konu")=Konu
blgekle("isim")=isim
blgekle("yer")=yer
blgekle("mail")=mail
blgekle("url")=url
blgekle("Tarih")=now()
blgekle.update
Response.Cookies("isim")=isim
Response.Cookies("isim").Expires = Now() + 7
Response.Cookies("yer")=yer
Response.Cookies("yer").Expires = Now() + 7
Response.Cookies("mail")=mail
Response.Cookies("mail").Expires = Now() + 7
response.write("")
response.write("")
else
response.write("")
response.write("")
end if
end if
if islem="yaz" then
if not isnumeric(Strislemzaman) then Strislemzaman="30"
s=Request.QueryString("s")
sid=session.sessionID
if not s = (sid) then
response.redirect("index.asp")
end if
ETarih = Session("SonGon" )
If DateDiff("S" ,ETarih,Now()) > Int(Strislemzaman) Then
Session("SonGon" ) = Now()
mail=filtre(request.form("mail"))
Mesaj=filtre(request.form("Mesaj"))
yazan=filtre(request.form("yazan"))
yer=filtre(request.form("yer"))
aid=Filtre(Request.QueryString("aid"))
if not aid="" then
if isnumeric(aid)=false then
response.redirect"index.asp"
else
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from zd where id="&Cint(Filtre(aid))&""
rs.open SQL,data,1,3
if not rs.eof then
mesaj="
"&vBCrlf&mesaj
end if
rs.close : set rs=nothing
end if
end if
if len(mail) < 3 or Len(Mesaj) < 3 or Len(yazan) < 3 or Len(yer) < 3 then
response.redirect "index.asp"
end if
if Strzdonay="1" then
tasvip="1"
cikti="Mesajınız Admin Tarafından Onaylandıktan Sonra Sitede Yerini Alacaktır."
if session("admin") then tasvip="0"
else
tasvip="0"
cikti="Mesajınız Başarıyla Kaydedildi"
end if
Set blgekle = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from zd"
blgekle.Open SQL,data,1,3
blgekle.Addnew
blgekle("Mesaj")=Mesaj
blgekle("mail")=mail
blgekle("yazan")=yazan
blgekle("yer")=yer
blgekle("onay")=tasvip
blgekle("Tarih")=now()
blgekle.update
blgekle.close
set blgekle = nothing
Response.Cookies("isim")=yazan
Response.Cookies("isim").Expires = Now() + 7
Response.Cookies("yer")=yer
Response.Cookies("yer").Expires = Now() + 7
Response.Cookies("mail")=mail
Response.Cookies("mail").Expires = Now() + 7
if session("admin") then
response.redirect("zd.asp")
end if
response.write("")
response.write("")
else
response.write("")
response.write("")
end if
end if
%>