Daha kolayı var mı?

Kodla Büyü

aresbel3

Seçkin Üye
Seçkin Üye
Mesajlar
364
<script runat="server">
sub girisyap(obj as object,e as eventargs)
dim baglantim as oledbconnection
baglantim = new oledbconnection("provider=Microsoft.jet.oledb.4.0; data source=" & server.MapPath("datas/vtem.mdb"))
baglantim.open()
dim komut as oledbcommand
komut = new oledbcommand( "Select * from uyeler", baglantim )
dim veri_al as oledbdatareader
veri_al = komut.ExecuteReader()
while veri_al.read()
if (veri_al.item("kadi"))= textbox1.text and (veri_al.item("sifre"))=textbox2.text then
session("girisyapanuye")=(veri_al.item("kadi"))
session("girisyapanuyeninyasi")=(veri_al.item("yas"))
response.Redirect("index.aspx")
else
bildirim2.text="Kullanıcı adınız veya şifreniz hatalı. Lütfen tekrar deneyiniz veya üye olunuz."
end if
end while
veri_al.close()
baglantim.close()
end sub
</script>

arkadaşlar üye girişi için yukarıdaki kodları kullanıyorum. diyorum ki üyeler tablosundaki her kayda bak, formdaki bilgiler le ordaki alanlar aynı anda birbirini tutuyorsa giriş yap yok değilse döngüyü bitir ve uyarı mesajını ver. Bunu yapmanın daha kolayı var olsa gerek diye düşündüm. Var mı?
 
komut = new oledbcommand( "Select * from uyeler", baglantim )
ifadesini
komut = new oledbcommand( "Select * from uyeler WHERE kadi='" + textbox1.text + "'", baglantim )
olarak değiştirirseniz textbox1'e girilmiş alan adına göre ilgili üyeyi getirir. Böylece döngünüz bir kere dönmüş olur.
 
Faydası olur belki katkı olsun diye yazıyorum.............

<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("kullaniciadi"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="yonetim_index.asp"
MM_redirectLoginFailed="default.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_kaynaklar_STRING
MM_rsUser.Source = "SELECT kullaniciadi, sifre"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM uyeler WHERE kullaniciadi='" & Replace(MM_valUsername,"'","''") &"' AND sifre='" & Replace(Request.Form("sifre"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
 
BBNET
Geri
Üst