Arama butonu
Bu konudaki kullanıcılar: 1 misafir
8
Cevap
448
Tıklama
0
Öne Çıkarma
Asp Soru
M
20 yıl
Binbaşı
Konu Sahibi

Arkadaşlar soru biraz karışık vede soru içinde soru var bunları açık açık yazmaya çalıştım şimdiden saolun.Asp ogrenenler içinde baya iyi bir yer olucak sanırım

Arkadaşlar admin.asp ye girerken denetleme koymak istedim.

admin.asp içeriği şu şekilde ;

<br>
<br>

<form action=paroladenetleme.asp method=post>
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="3" width="300">
<tr>
<td><font face="Verdana" size="2">Yonetici İsmi</font></td>
<td> <font face="Verdana" size="2">
<input type=text name="username" size="20" ></font></td>
</tr>
<tr>
<td><font face="Verdana" size="2">Şifre</font></td>
<td> <font face="Verdana" size="2">
<input type=password name="password" size="20" >
</font>
</td>
</tr>
<tr>
<td></td>
<td><font face="Verdana" size="2"><input type=submit value="Giriş Yap" >
</td>
</tr>
</table>

</center>
</div>
</form>

------------------------------
Ustteki kodlardanda anlaşılabbileceği gibi action olarak paroladenetleme.asp yi gosterdik.
Paroladenetleme.asp içeriği ise şu şekilde ;


<!--#include file="kulladivesifre.inc"-->
<%
name = trim(Request.form("username"))
pass= trim(Request.form("password"))


if Username = name and password = pass then
session("login") = "yes"
Response.Redirect ("girişyapildi.asp")


else
Response.Write "Yanlış Şifre Girdiniz"
end if
%>

-------------------------------------
Gordugumuz gibi buradada kulladivesifre.inc i include ettik

kulladivssifre.inc dosya içeriği şu şekilde ;



<%

password = "Şifre"
Username = "kullanıcı adı"
'set username and password for admin'

%>


---------------------------------------------
yukarıdada yazdıgım gibi paroladenetleme.asp de 2. kırmızı alanda olan girisyapildi.asp ye istediğimiz ozellikleri koyuyoruz.


BURAYA KADAR bilgilendirme amaçlıydı.

Sorum ise : paroladenetleme.asp ye 1den falza kullanıcıyı webtabanlı olarak eklememizin imkanı varmıdır.Amacım FSO kullanmak veritabanı kullanmak istemediğim için bu soruyu soruyorum şimdiden saolun.


Bir diğer sorum ;

'set username and password for admin'

Sistemini kullanıcı olarakda web den yonetmek istiyorum yani. 'set username and password for user' sisteminide webtabanlı olarak eklenmesini istiyorum bununda yapilisini anlatırsaniz sevinirim.


Çok çok saolun.

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil



M
20 yıl
Binbaşı
Konu Sahibi

T
20 yıl
Yarbay

Biraz Karışık mı Geldi Sanki Hayır Hayır Çok Karışık Geldi


Bu mesaja 1 cevap geldi.
M
20 yıl
Binbaşı
Konu Sahibi

Yaw nasıl karışık madde madde anlttım :D Asıl sorum .inc dosyasına hangi kodla form aracılıgıyla nesne ekleriz.



M
20 yıl
Binbaşı
Konu Sahibi

D
20 yıl
Yüzbaşı

Selamlar,
Birden fazla hesap kullanmak için veritabanı kullanman gerekir.Bunun için kontrol yaparken .inc dosyasını include yerine

<%
'conn adında veritabanı bağlantısı

Set objRS = Conn.Execute("Select * from tblKisiler Where k_adi = '" & name & "' and sifre = '" & pass & "'")
If objRS.Eof Then
Response.Write "Kullanıcı adı veya şifreniz yanlış"
Else
Response.Write "Giriş yapıldı"
Session("login")="yes"
End If
%>

Böyle bir şekilde tıpkı üye seçtirir gibi yapabilirsin.


Bu mesaja 1 cevap geldi.
M
20 yıl
Binbaşı
Konu Sahibi

anlıyorum tabi bunun için Kisiler adlı bir tablo oluşturmam gerkıyor


Bu mesaja 1 cevap geldi.
D
20 yıl
Yüzbaşı

Aslında veritabanı oluşturmadan "Array" fonksiyonu ile bunu yapabilirsin.Aşağıda kullanabilmen için örnek bir kod yazdım, Array dizisi içine kullanıcı adı ve şifreyi sıra ile yazman gerekiyor.
1.Kullanıcı adı ve 1. Şifre, 2.Kullanıcı adı ve 2.Şifre şeklinde yanyana gidiyor, biraz incelersen anlayacağından eminim, kod umarım yararlı olur.

<%
name = trim(Request.form("username"))
pass= trim(Request.form("password"))

arrKisiler = Array("Admin","123456","Admin2","123456")

For i=0 to Ubound(arrKisiler) Step 2
If arrKisiler(i)=name And arrKisiler(i+1)=pass Then
Session("login")="yes"
Response.Redirect "AdminSayfasi.asp"
Exit For
End If
Next

%>


Bu mesaja 1 cevap geldi.
L
20 yıl
Onbaşı

konuyu tam olarak anlamadım fakat kullanıcı adı ve şifresi databaseden alacaksan eğer ve bu bilgilerin doğruluğunu sorgulayacaksan aşağıdaki kodları kullanarak sonuca ulaşabilirsin.
bir mdb dosyası oluştur ve burada kullanıci ve sifre kısmı ekle. eğer bu kısımlara kullanici = admin
sifre = admin yazarsan default sayfasında giriş yaptıktan sonra ana.asp sayfasına gidersin. eğer hatalı bir giriş yaparsan bu sefer de hata.asp sayfasına gidersin.

hata.asp ve ana.asp sayfasını sen oluşturabilirsin.



default.asp
******************************************************
<html>


<head>
<title>GİRİŞ SAYFASI</title>
</head>
<SCRIPT LANGUAGE="JAVASCRIPT">
function FrontPage_Form1_Validator(FrontPage_Form1)
{
var validated = true;
if(FrontPage_Form1.kullanici.value == "")
{
validated = false;
alert("Lütfen Kullanıcı Adınızı Giriniz!.");
FrontPage_Form1.kullanici.focus();
}
else if(FrontPage_Form1.sifre.value == "")
{
validated = false;
alert("Lütfen Kullanıcı Şifrenizi Giriniz.");
FrontPage_Form1.sifre.focus();
}
else validated=true;

return validated;
}
</SCRIPT>

<body>

<blockquote>
<blockquote>
<blockquote>

<p></p>
<form method="POST" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" action="kontrol.asp" name="FrontPage_Form1">
<div style="position: absolute; top: 91px; left: 324px; width: 317px; height: 168px">
<div align="center">
<center>
<table border="3" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#A0C5FC" width="98%" height="126">
<tr>
<td width="42%" style="border-left: 3px solid #808000; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: none; border-bottom-width: medium" align="right" height="42" valign="bottom">
<font color="#800080" face="Verdana" size="2">Kullanıcı Adı :</font></td>
<td width="3%" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: none; border-bottom-width: medium" height="42" valign="bottom"> </td>
<td width="57%" style="border-left-style: none; border-left-width: medium; border-right: 3px solid #808000; border-top-style: solid; border-top-width: 1; border-bottom-style: none; border-bottom-width: medium" height="42" valign="bottom">
<input type="text" name="kullanici" size="20"></td>
</tr>
<tr>
<td width="42%" style="border-left: 3px solid #808000; border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" align="right" height="28">
<font color="#800080" face="Verdana" size="2">Kullanıcı Şifresi :</font></td>
<td width="3%" style="border-style: none; border-width: medium" height="28"> </td>
<td width="57%" style="border-left-style: none; border-left-width: medium; border-right: 3px solid #808000; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="28">
<input type="password" name="sifre" size="20"></td>
</tr>
<tr>
<td width="80%" colspan="3" align="center" style="border-left: 3px solid #808000; border-right: 3px solid #808000; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="25">
<font color="#800080" face="Verdana" size="2"><u><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=3545652&url=hatirlat.asp" data-href="hatirlat.asp">Şifremi Unuttum!</a></u></font></td>
</tr>
<tr>
<td width="80%" colspan="3" align="center" style="border-left: 1px solid #111111; border-right: 1px solid #111111; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="21">
 </td>
</tr>
<tr>
<td width="80%" colspan="3" align="center" style="border-left: 3px solid #808000; border-right: 3px solid #808000; border-top-style: none; border-top-width: medium; border-bottom-style: solid; border-bottom-width: 1" height="46">
<input type="submit" value="Giriş" name="B1" style="color: #0000FF; font-weight: bold; border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></td>
</tr>
</table>

</center>
</div>
</div>
</form>

</blockquote>
</blockquote>
</blockquote>

<p align="center" style="margin-top: 0; margin-bottom: 0"> </p>
<p align="center" style="margin-top: 0; margin-bottom: 0"> </p>
<div style="position: absolute; width: 212px; height: 48px; z-index: 1; left: 385px; top: 308px" id="katman1">
<p align="center" style="margin-top: 0; margin-bottom: 0">
<font color="#800080" face="Verdana">Kullanıcı adı: admin</font></p>
<p align="center" style="margin-top: 0; margin-bottom: 0">
<font face="Verdana" color="#800080">Kullanıcı şifresi : admin</font></p>
 <p style="margin-top: 0; margin-bottom: 0"> </p>
<p> </div>
<p align="center" style="margin-top: 0; margin-bottom: 0"> </p>
</body>
</html>

********************************************************************
********************************************************************
kontrol.asp
*******************************************************************
*******************************************************************
<% @Language=VBScript CodePage=1254 %>
<!--#INCLUDE file="vt.asp"-->
<%
Response.Buffer=TRUE
OturumID=trim(request("OturumID"))
%>
<%
if trim(request.form("kullanici"))="" and trim(request.form("sifre"))="" then
response.redirect("hata.asp?hata=3")
end if

if trim(request.form("kullanici"))="" then
response.redirect("hata.asp?hata=1")
end if

if trim(request.form("sifre"))="" then
response.redirect("hata.asp?hata=2")
end if
%>
<%
Login=FALSE
SQL="SELECT * FROM kimlikler;"
SET rs=bag.Execute(SQL)
%>
<% DO WHILE Not rs.EOF %>
<%
IF (trim(request.form("kullanici"))=rs("kullanici") and trim(request.form("sifre"))=rs("sifre")) THEN
%>
<%
Login=TRUE
session("kullanici")=trim(request.form("kullanici"))
EXIT DO
%>
<% END IF %>
<% rs.MoveNext %>
<%
LOOP
%>
<%
if Login=TRUE then
response.redirect("ana.asp")
else
response.redirect("hata.asp?hata=4")
end if
%>
**************************************************
***************************************************
vt.asp
********************************************
<%
cString = "Provider=ODBC;DSN=Pubs"
Set bag = Server.CreateObject("ADODB.Connection")
vt_yol = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("db/data.mdb")
cString = "Pubs"
bag.Open vt_yol, cString,""
%>
************************************************





< Bu mesaj bu kişi tarafından değiştirildi lebrekon -- 26 Temmuz 2005, 19:24:57 >

DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.