Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp"De Otomatik Seasion İptali Asp"De Otomatik Seasion İptali
-
Esconda bunu yazdı:
-----------------------------
Birsey daha sormak istiyorum affiniza siginarak.Ben asp formunu olusturdum acces veri tabaninida herseyi ayarladim kodlari yazdim ama bilgileri girdikten sonra gondere basiyorum acces veri tabanina kaydetmiyor error veriyor nasi halledebilirim.
-----------------------------Doktor bey, ben rahatsızım bana çare bulun :D.
Oradaki hatayı yaz ona göre Lokman Hekim'in oluruz.
-
<% @LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Kayit_Onay</title>
</head>
<body>
<%
kad=request.form("kad")
sifre=request.form("sifre")
sifret=request.form("sifret")
unvan=request.form("unvan")
mail=request.form("mail")
ad=request.form("ad")
sad=request.form("sad")
cins=request.form("cins")
gun=request.form("gun")
ay=request.form("ay")
yil=request.form("yil")
tel=request.form("tel")
ctel=request.form("ctel")
adres=request.form("adres")
if kad="" or sifre="" or sifret="" or mail="" or ad="" or sad="" or cins="" or yil="" or tel="" or adres="" then
response.write "Lütfen alanlari bos birakmayiniz.."
response.End()
end if
if sifre<>sifret then
response.write "sifre tekrari yanlis girdiniz"
response.End()
end if
u=len(mail)
us=len(sifre)
if us<6 then
response.write "sifre en az 6 karakter olmalidir"
response.End()
end if
if us>20 then
response.write "sifre en fazla 20 karakter olmalidir"
response.End()
end if
if u<7 then
response.write "e-mail en az 7 karakter olmalidir"
response.End()
end if
for i= 1 to u
if mid(mail,i,1)="@" then
a=1
end if
next
if a<>1 then
response.write "Lütfen gecerli e-mail giriniz"
response.End()
end if
ua=len(ad)
for i= 1 to ua
if mid(ad,i,1)="1" or mid(ad,i,1)="2" or mid(ad,i,1)="3" or mid(ad,i,1)="4" or mid(ad,i,1)="5" or mid(ad,i,1)="6" or mid(ad,i,1)="7" or mid(ad,i,1)="8" or mid(ad,i,1)="9" or mid(ad,i,1)="0" then
response.write "lütfen adi düzgün giriniz"
response.End()
end if
next
usad=len(sad)
for i= 1 to usad
if mid(sad,i,1)="1" or mid(sad,i,1)="2" or mid(sad,i,1)="3" or mid(sad,i,1)="4" or mid(sad,i,1)="5" or mid(sad,i,1)="6" or mid(sad,i,1)="7" or mid(sad,i,1)="8" or mid(sad,i,1)="9" or mid(sad,i,1)="0" then
response.write "lütfen soyadi düzgün giriniz"
response.End()
end if
next
for i=1 to 4
if mid(yil,i,1)<>"1" and mid(yil,i,1)<>"2" and mid(yil,i,1)<>"3" and mid(yil,i,1)<>"4" and mid(yil,i,1)<>"5" and mid(yil,i,1)<>"6" and mid(yil,i,1)<>"7" and mid(yil,i,1)<>"8" and mid(yil,i,1)<>"9" and mid(yil,i,1)<>"0" then
response.write "lütfen dogun yilini düzgün giriniz"
response.End()
end if
next
utel=len(tel)
ucep=len(ctel)
if utel<11 then
response.write "lütfen telefon numarasini tam olarak giriniz"
response.End()
end if
if ctel<11 then
response.write "lütfen cep telefon numarasini tam olarak giriniz"
response.End()
end if
for i= 1 to 11
if mid(tel,i,1)<>"1" and mid(tel,i,1)<>"2" and mid(tel,i,1)<>"3" and mid(tel,i,1)<>"4" and mid(tel,i,1)<>"5" and mid(tel,i,1)<>"6" and mid(tel,i,1)<>"7" and mid(tel,i,1)<>"8" and mid(tel,i,1)<>"9" and mid(tel,i,1)<>"0" then
response.write "lütfen telefon numarasini düzgün giriniz"
response.End()
end if
next
for i= 1 to 11
if mid(ctel,i,1)<>"1" and mid(ctel,i,1)<>"2" and mid(ctel,i,1)<>"3" and mid(ctel,i,1)<>"4" and mid(ctel,i,1)<>"5" and mid(ctel,i,1)<>"6" and mid(ctel,i,1)<>"7" and mid(ctel,i,1)<>"8" and mid(ctel,i,1)<>"9" and mid(ctel,i,1)<>"0" then
response.write "lütfen cep telefonu numarasini düzgün giriniz"
response.End()
end if
next
Set bag=Server.CreateObject("ADODB.Connection")
bag.Open "DBQ="&server.mappath("kullaniciler.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM users WHERE kad='" &kad& "' ",bag,1,3
if rs.eof then
dtarih=gun + "." + ay + "." + yil
rs.addnew
rs("kad")=kad
rs("sifre")=sifre
rs("unvan")=unvan
rs("email")=mail
rs("adi")=ad
rs("soyadi")=sad
rs("cinsiyet")=cins
rs("d_tarih")=dtarih
rs("tel")=tel
rs("ctel")=ctel
rs("adres")=adres
rs.update
response.write "kayit gerceklesmistir"
else
response.write "böyle bir kullanici zaten bulunmaktadir"
response.End()
end if
%>
<%
rs.close
bag.close
%>
</body>
</html>kodlar boyle sonuc alttaki gibi
-
veritabanına yazma izni vermemişsin
-
vari tabanına yazma yetkisi vermemişsin
-
nasil yapacagim onu hangi kod araligi goremedim.
-
Öncelikle
BİLGİSAYARIM >>>>>>>> KLASÖR SEÇENEKLERİ >>>>> GÖRÜNÜM >>>>>> BASİT DOSYA PAYLAŞIMI KULLAN (ÖNERİLEN) işaretini kaldır. >>>>>> UYGULA >>>>>> TAMAM
Şimdi ise vereceğimiz klasöre yazma izninin verilmesine geldi.
wwwroot klasörüne sağ tıkla >>>>> ÖZELLİKLER >>>>>>> GÜVENLİK >>>>>> EKLE >>>> GELİŞMİŞ >>>>
ŞİMDİ BUL >>>> Asıl yer burası, alt tarafta isimler çıkacak. Orada şöyle bir şeyi seçeceksin IUSR_Makine Adı. ( Mesela benim bilgisayarın adı Devrim, bende şöyle çıkıyor IUSR_Devrim) . >>>>> TAMAM >>> TAMAM >> ŞİMDİ İSE KARŞINDA SEÇME KUTULARI ÇIKACAK, ORADA İZİN VER TARAFINDAKİ DEĞİŞTİR ADLI SEÇENEĞİ TIKLA ( O GEREKEN YERLERİ DE İŞARETLER ). >>>> TAMAM
BU kadar
Not: Büyük yazmamdaki amaç, diğer yazılardan daha vurgulu olsun diye.
-
Cok tesekkur ederim hepinize.Cok saolun.Yarin projeyi teslim ediyorum tesekkurler cok tesekkurler.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla