ایجاد username & password

[bahar_f]

سلام

میخواستم بدونم کسی میدونه چطوری میتونم کدی بنویسم که username و password را از کاربر بگیره و با مقایسه آن با username و password تعریف شده برای کاربر وارد صفحه جدیدی بشود و در صورتی که کاربر username و password را غلط وارد کرد پیغام خطا بدهد.

[aryaei2000]

سلام
کار راحتی است.
در ابتدا باید مقادیر فرم رو بگردونید.


username = request.form("username")
password = request.form("password")


سپس اطلاعات کاربر رو از بانک اطلاعاتی بخونید



Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={SQL Server};" & _
"Server=YOUR_SERVER_NAME;" & _
"Database=your_database_name;" & _
"Uid=your_username;" & _
"Pwd=your_password;"
objConn.Close
Set objConn = Nothing
'select data
objConn.Execute("SELECT * FROM tblUsers WHERE username = '" & username & "';")
Uname = rs("Usermail")
Upass = rs("Userpass")
If Not rs.Eof Then
'User Found
If Username = Uname And password = Upass then.
'Succesful Login
Response.write "<font color=green>ورود موفقیت آمیز</font>"
Else
'Wrong Pass
Response.write "<font color=red>رمز عبور اشتباه است</font>"
End If
Else
User Not Found
Response.write "<font color=red>مشخصات شما در بانک اطلاعاتی موجود نیست</font>"
End If
rs.close


اگر سوالی بود بپرسید.
موفق باشید

[mehdi.mousavi]

سلام
کار راحتی است. در ابتدا باید مقادیر فرم رو بگردونید.



username = request.form("username")
password = request.form("password")
سپس اطلاعات کاربر رو از بانک اطلاعاتی بخونید



Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={SQL Server};" & _
"Server=YOUR_SERVER_NAME;" & _
"Database=your_database_name;" & _
"Uid=your_username;" & _
"Pwd=your_password;"
objConn.Close
Set objConn = Nothing
'select data
objConn.Execute("SELECT * FROM tblUsers WHERE username = '" & username & "';")
Uname = rs("Usermail")
Upass = rs("Userpass")
If Not rs.Eof Then
'User Found
If Username = Uname And password = Upass then.
'Succesful Login
Response.write "<font color=green>ورود موفقیت آمیز</font>"
Else
'Wrong Pass
Response.write "<font color=red>رمز عبور اشتباه است</font>"
End If
Else
User Not Found
Response.write "<font color=red>مشخصات شما در بانک اطلاعاتی موجود نیست</font>"
End If
rs.close

اگر سوالی بود بپرسید.
موفق باشید

سلام.
کدی که نوشتید پر از ایراد هستش:


ورودی کاربر رو چک نکرده مورد استفاده قرار میدید.
کدی که نوشتید Connection Pooling رو نادیده میگیره.
کد شما از autoparameterization در sqlserver بهره نمیبره، و بار زیادی روی بانک میذاره (اگر تعداد کاربرانی که Login میکنن زیاد باشه).
این کد در برابر Sql Injection صدمه پذیر هستش.
Password رو بصورت Clear در بانک نگه داشتید و این هم یک ایراد امنیتی دیگه محسوب میشه.
کد UI و DAL رو با هم ترکیب کردید که این کار هم صحیح نیست.
از اسم گذاری یکسانی برای متغیرها استفاده نکردید.

[aryaei2000]

درسته.
این کد رو من سریع نوشتم.
در هر حال ببخشید.
اما این ساده ترین شکل یک فرم ورود هست.

[bahar_f]

سلام
ولی صفحه من به این صورته که فقط یک نفر مدیر میتونه به این صفحه دسترسی داشته باشه بنابراین فقط کافیه 1 username و password تعیین بشه که فقط مدیر می دونه

ممنون میشم راهنماییم کنید

[nj2288200]

سلام
منم در این مورد یه سوال دارم...
"" اگر بخواهیم در یک فرم کوچک use , pass را وارد کنیم و بعد از تایید فرم اصلی اجرا بشود کد نویسی فرم ها (برای اجرای فرم ها) چطوریه ؟""
با تشکر

[aryaei2000]

سلام
منم در این مورد یه سوال دارم...
"" اگر بخواهیم در یک فرم کوچک use , pass را وارد کنیم و بعد از تایید فرم اصلی اجرا بشود کد نویسی فرم ها (برای اجرای فرم ها) چطوریه ؟""
با تشکر
لطفا منظورتون رو واضح تر بیان کنید.