<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 'işlem başlangıç SID=request.QueryString("SID") if SID<>session.SessionID then session("uyari")="Oturum disi islem yapmaya çalistiniz." response.Redirect("web_sayfa_ekle.asp") end if ResimYolu = "../uploads/resimler" Server.ScriptTimeout = 1000 Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Count = Upload.SaveToMemory Set fldResim = Upload.Files("resim1") Set fldResim2 = Upload.Files("resim2") Set Jpeg = Server.CreateObject("Persits.Jpeg") If Not fldResim Is NoThing Then Randomize rndNo = INT (RND*9999999)+1 Resim = "antet" & "-" & rndNo &""& LCase(Right(fldResim.FileName,4)) Path = Server.MapPath(ResimYolu & "/" & Resim) fldResim.SaveAs Path ust_foto="uploads/resimler/"&Resim else ust_foto="" end if If Not fldResim2 Is NoThing Then Randomize rndNo = INT (RND*9999999)+1 Resim = "antet" & "-" & rndNo &""& LCase(Right(fldResim2.FileName,4)) Path = Server.MapPath(ResimYolu & "/" & Resim) fldResim2.SaveAs Path alt_foto="uploads/resimler/"&Resim else alt_foto="" end if sql1="select max(sira) from sayfalar;" set veriler1=mysql_baglanti.execute(sql1) if not veriler1.eof then sira=veriler1(0) end if sira=sira+1 baslik=trkar(upload.form("sayfa_baslik")) baslik_visible=cint(upload.form("baslik_visible")) kod_obekleri=cint(upload.form("kod_obekleri")) icerik=upload.form("sayfa_icerik") silinebilir=1 yayinda=cint(upload.form("yayinda")) css=upload.form("tema") keywords=trkar(upload.form("kelimeler")) descriptions=trkar(upload.form("aciklama")) genel_menu=cint(upload.form("genel_menu")) alt_menu=cint(upload.form("alt_menu")) sol_menu=cint(upload.form("sol_menu")) genel_menu_visible=cint(upload.form("genel_menu_visible")) alt_menu_visible=cint(upload.form("alt_menu_visible")) sol_menu_visible=cint(upload.form("sol_menu_visible")) sayfa_tipi=upload.form("sayfa_tipi") ic_arkaplan_rengi=upload.form("ic_renk") arkaplan_rengi=upload.form("renk") sayac=cint(upload.form("sayac")) haber=cint(upload.form("haber")) hava_durumu=cint(upload.form("hava")) devlet=cint(upload.form("devlet")) tarih_saat=0 doviz=cint(upload.form("doviz")) sayac_degeri=0 reklam_menu_alti=0 reklam_sol_alt=0 reklam_ana_ust=0 reklam_ana_alt=0 muzik=upload.form("muzik") muzik_dosyasi="" if baslik<>"" then sql="insert into sayfalar (sira, baslik,baslik_visible,kod_obekleri, icerik, silinebilir, yayinda, css, keywords, descriptions, genel_menu, alt_menu, sol_menu, genel_menu_visible, alt_menu_visible, sol_menu_visible, sayfa_tipi, ic_arkaplan_rengi, arkaplan_rengi, reklam_menu_alti, reklam_sol_alt, reklam_ana_ust, reklam_ana_alt, muzik, muzik_dosyasi, alt_foto, ust_foto, sayac, sayac_degeri, doviz, tarih_saat, devlet, hava_durumu, haber) values ("&sira&", '"&baslik&"',"&baslik_visible&","&kod_obekleri&", '"&icerik&"', "&silinebilir&", "&yayinda&", '"&css&"', '"&keywords&"', '"&descriptions&"', "&genel_menu&", "&alt_menu&", "&sol_menu&","&genel_menu_visible&", "&alt_menu_visible&", "&sol_menu_visible&", '"&sayfa_tipi&"', '"&ic_arkaplan_rengi&"', '"&arkaplan_rengi&"', "&reklam_menu_alti&", "&reklam_sol_alt&", "&reklam_ana_ust&", "&reklam_ana_alt&", "&muzik&", '"&muzik_dosyasi&"', '"&alt_foto&"', '"&ust_foto&"', "&sayac&", "&sayac_degeri&", "&doviz&", "&tarih_saat&", "&devlet&", "&cint(upload.form("hava"))&", "&cint(upload.form("haber"))&");" set veriler=mysql_baglanti.execute(sql) response.Redirect("sayfalar.asp") Set Jpeg = Nothing Set Upload = NoThing else Set Jpeg = Nothing Set Upload = NoThing session("uyari")="Site basligi bos birakilamaz." response.redirect "web_sayfa_ekle.asp" end if 'işlem bitiş %>