<%@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("yeni_tema_ekle.asp") end if ResimYolu = "../uploads/arkaplanlar" Server.ScriptTimeout = 1000 Set Upload = Server.CreateObject("Persits.Upload") Upload.OverwriteFiles = False Count = Upload.SaveToMemory Set fldResim = Upload.Files("arkaplan_resmi") Set fldResim2 = Upload.Files("sol_baslik_arkaplan_resim") 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 arkaplan_resmi="uploads/arkaplanlar/"&Resim sql="insert into arkaplan_resimleri (dosya) values ('"&arkaplan_resmi&"');" set veriler=mysql_baglanti.execute(sql) else arkaplan_resmi=upload.form("RadioGroup1") 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 sol_baslik_arkaplan_resim="uploads/arkaplanlar/"&Resim sql="insert into arkaplan_resimleri (dosya) values ('"&sol_baslik_arkaplan_resim&"');" set veriler=mysql_baglanti.execute(sql) else sol_baslik_arkaplan_resim=upload.form("RadioGroup2") end if isim=trkar(upload.form("isim")) duz_yazi_tipi=upload.Form("duz_yazi_tipi") duz_yazi_rengi=upload.Form("duz_yazi_rengi") duz_yazi_boyutu=upload.Form("duz_yazi_boyutu") duz_yazi_kalinlik=upload.Form("duz_yazi_kalinlik") baslik_tipi=upload.Form("baslik_tipi") baslik_rengi=upload.Form("baslik_rengi") baslik_boyutu=upload.Form("baslik_boyutu") baslik_kalinlik=upload.Form("baslik_kalinlik") ana_link_tipi=upload.Form("ana_link_tipi") ana_link_rengi1=upload.Form("ana_link_rengi1") ana_link_rengi2=upload.Form("ana_link_rengi2") ana_link_boyutu1=upload.Form("ana_link_boyutu1") ana_link_boyutu2=upload.Form("ana_link_boyutu2") ana_link_kalinlik1=upload.Form("ana_link_kalinlik1") ana_link_kalinlik2=upload.Form("ana_link_kalinlik2") diger_link_tipi=upload.Form("diger_link_tipi") diger_link_rengi1=upload.Form("diger_link_rengi1") diger_link_rengi2=upload.Form("diger_link_rengi2") diger_link_boyutu1=upload.Form("diger_link_boyutu1") diger_link_boyutu2=upload.Form("diger_link_boyutu2") diger_link_kalinlik1=upload.Form("diger_link_kalinlik1") diger_link_kalinlik2=upload.Form("diger_link_kalinlik2") arkaplan_rengi=upload.Form("arkaplan_rengi") arkaplan_tekrari=upload.Form("arkaplan_tekrari") sol_baslik_arkaplan_tekrar=upload.Form("sol_baslik_arkaplan_tekrar") sol_baslik_arkaplan_renk=upload.Form("sol_baslik_arkaplan_renk") sol_baslik_yazi=upload.Form("sol_baslik_yazi") sol_baslik_boyut=upload.Form("sol_baslik_boyut") sol_baslik_renk=upload.Form("sol_baslik_renk") sol_baslik_kalinlik=upload.Form("sol_baslik_kalinlik") sol_text_yazi=upload.Form("sol_text_yazi") sol_text_boyut=upload.Form("sol_text_boyut") sol_text_renk=upload.Form("sol_text_renk") sol_text_kalinlik=upload.Form("sol_text_kalinlik") sol_kenarlik_renk=upload.Form("sol_kenarlik_renk") sol_modul_arkaplan=upload.Form("sol_modul_arkaplan") if upload.form("isim")<>"" then sql="insert into yazi_tipleri (isim, duz_yazi_tipi, duz_yazi_rengi, duz_yazi_boyutu, duz_yazi_kalinlik, baslik_tipi, baslik_rengi, baslik_boyutu, baslik_kalinlik, ana_link_tipi, ana_link_rengi1, ana_link_rengi2, ana_link_boyutu1, ana_link_boyutu2, ana_link_kalinlik1, ana_link_kalinlik2, diger_link_tipi, diger_link_rengi1, diger_link_rengi2, diger_link_boyutu1, diger_link_boyutu2, diger_link_kalinlik1, diger_link_kalinlik2, arkaplan_resmi, arkaplan_rengi, arkaplan_tekrari, sol_baslik_arkaplan_resim, sol_baslik_arkaplan_tekrar, sol_baslik_arkaplan_renk, sol_baslik_yazi, sol_baslik_boyut, sol_baslik_renk, sol_baslik_kalinlik, sol_text_yazi, sol_text_boyut, sol_text_renk, sol_text_kalinlik, sol_kenarlik_renk, sol_modul_arkaplan) values ('"&link_turkce(isim)&"', '"&duz_yazi_tipi&"', '"&duz_yazi_rengi&"', '"&duz_yazi_boyutu&"', '"&duz_yazi_kalinlik&"', '"&baslik_tipi&"', '"&baslik_rengi&"', '"&baslik_boyutu&"', '"&baslik_kalinlik&"', '"&ana_link_tipi&"', '"&ana_link_rengi1&"', '"&ana_link_rengi2&"', '"&ana_link_boyutu1&"', '"&ana_link_boyutu2&"', '"&ana_link_kalinlik1&"', '"&ana_link_kalinlik2&"', '"&diger_link_tipi&"', '"&diger_link_rengi1&"', '"&diger_link_rengi2&"', '"&diger_link_boyutu1&"', '"&diger_link_boyutu2&"', '"&diger_link_kalinlik1&"', '"&diger_link_kalinlik2&"', '"&arkaplan_resmi&"', '"&arkaplan_rengi&"', '"&arkaplan_tekrari&"', '"&sol_baslik_arkaplan_resim&"', '"&sol_baslik_arkaplan_tekrar&"', '"&sol_baslik_arkaplan_renk&"', '"&sol_baslik_yazi&"', '"&sol_baslik_boyut&"', '"&sol_baslik_renk&"', '"&sol_baslik_kalinlik&"', '"&sol_text_yazi&"', '"&sol_text_boyut&"', '"&sol_text_renk&"', '"&sol_text_kalinlik&"', '"&sol_kenarlik_renk&"', '"&sol_modul_arkaplan&"');" set veriler=mysql_baglanti.execute(sql) response.Redirect("tema_yonetimi.asp") Set Jpeg = Nothing Set Upload = NoThing else Set Jpeg = Nothing Set Upload = NoThing session("uyari")="Tema basligi bos birakilamaz." response.redirect "yeni_tema_ekle.asp" end if 'işlem bitiş %>