Yeni Yetkili Ekle

Yetkililer Listesi Yeni Yetkili Oluştur

<% islem=request.QueryString("islem") select case islem case "Kaydet" seviye=temizle(request.Form("seviye")) admin=temizle(request.Form("admin")) ad_soyad=temizle(request.Form("ad_soyad")) email=temizle(request.Form("email")) sifre=temizle(request.Form("sifre")) sifre_tekrar=temizle(request.Form("sifre_tekrar")) 'Response.Write(sifre_tekrar) 'Response.End() 'şifre sayısı zorunluluğu başlangıç set varmi=conn.execute("select admin from Table_yonetim_kadrosu where admin Like '"& admin &"'") if not varmi.eof then response.Write(""& admin &" adında bir kullanıcı zaten mevcut.") response.Write("[ Geri ]") elseif ad_soyad="" then response.Write("Lütfen yönetici adınızı yazınız.") response.Write("[ Geri ]") elseif admin="" then response.Write("Lütfen yönetici kullanıcı adını yazınız.") response.Write("[ Geri ]") elseif email="" then response.Write("Lütfen email adresinizi yazınız.") response.Write("[ Geri ]") elseif seviye="" then response.Write("Lütfen seviyeyi seçiniz.") response.Write("[ Geri ]") elseif sifre="" then response.Write("Lütfen şifrenizi yazınız.") response.Write("[ Geri ]") elseif sifre<>sifre_tekrar then response.write("Şifre ile şifre tekrarınız birbirini tutmamaktadır.") response.Write("[ Geri ]") else 'aktivasyon kodu üretme baş harfsayi=array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","R","S","T","U","V","Y","Z","0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","r","s","t","u","v","y","z") randomize rastgele1=int(rnd*33) rastgele2=int(rnd*33) rastgele3=int(rnd*33) rastgele4=int(rnd*33) rastgele5=int(rnd*33) rastgele=harfsayi(rastgele1) & harfsayi(rastgele2) & harfsayi(rastgele3) & harfsayi(rastgele4) & harfsayi(rastgele5) 'aktivasyon kodu üretme son Set yetkili_ekle = Server.CreateObject("Adodb.Recordset") SQL = "Select * from Table_yonetim_kadrosu" yetkili_ekle.Open SQL, conn, 1, 3 yetkili_ekle.addnew yetkili_ekle("seviye")=seviye yetkili_ekle("admin")=admin yetkili_ekle("ad_soyad")=ad_soyad yetkili_ekle("email")=email yetkili_ekle("sifre")=md(sifre) yetkili_ekle("aktivasyon_kodu")=md(rastgele) yetkili_ekle("onay")="1" yetkili_ekle.update end if Response.redirect("yetkililer.asp?LanguageID=1") %> <%end select%>