Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,027

HOME > ASP > ASP Forum > ข้อCode การทำน่าLogin แล้วก็เช็คความถูกต้องของ Username กับ Password ด้วยคราบ ASPน่ะคราบ...

ข้อCode การทำน่าLogin แล้วก็เช็คความถูกต้องของ Username กับ Password ด้วยคราบ ASPน่ะคราบ...

เริ่มหัวข้อใหม่

XuoE_MsU

โพสกระทู้ ( 111 )
บทความ ( 0 )

ขอบคุนๆๆๆๆๆๆๆๆๆๆๆๆน่ะคราบ.......

Tag : ASP, MySQL

Date : 2010-09-09 10:53:13

By : noi014

View : 1654

Reply : 7

No. 1

Guest

สร้างหน้าloginขึ้นมานะค่ะ
แล้วก้อนำโค้ดนี้ไปใส่หน้าเช็คpassword user
<%
'*** By Weerachai Nukitram ***'
'*** http://www.ThaiCreate.Com ***'

Option Explicit

Dim strusername,strpassword

strUsername = Trim(Request.Form("username"))
strPassword = Trim(Request.Form("password"))

Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""

'*** Check Username & Password ***'

strSQL = "SELECT * FROM admin WHERE username = '"&strusername&"' and password = '"&strpassword&"' "
Set objRec = Conn.Execute(strSQL)
If Not objRec.EOF Then
response.redirect("http://localhost/myweb/user.asp") 'จะให้ไปหน้าไหนก้อใส่ลงไป'
'*** Session ***'
Session("username") = strusername
Else
Response.Write("** username & password ???")
End IF

objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>

Date : 2010-09-09 11:15:38

By : gusjang

No. 2

Guest

ลองแก้ดูนะค่ะ

Date : 2010-09-09 11:16:28

By : gusjang

No. 3

XuoE_MsU

โพสกระทู้ ( 111 )
บทความ ( 0 )

ยังไม่ได้คราบ มันขึ้น ** username & password ???

นี้Code ของผม
<%

Dim strusername,strpassword

strUsername = Request.Form("username")
strPassword = Request.Form("Password")

Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;port=3307;UID=root;pwd=usbw;database=shop;option=16384;"

'*** Check Username & Password ***'

strSQL = "SELECT * FROM admin WHERE UserName = '"&strusername&"' and Password = '"&strpassword&"' "
Set objRec = Conn.Execute(strSQL)
If Not objRec.EOF Then
response.redirect("หมวดหมู่สินค้า.asp") 'จะให้ไปหน้าไหนก้อใส่ลงไป'
'*** Session ***'
Session("username") = strusername
Else
Response.Write("** username & password ???")
End IF

objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing

%>

Date : 2010-09-09 12:49:11

By : noi014

No. 4

Guest

ตรงส่วนนี้Response.Write("** username & password ???")
คือให้มานขึ้นเตือนว่าuserหรือpasswordผิด

Date : 2010-09-09 13:08:46

By : gusjang

No. 5

XuoE_MsU

โพสกระทู้ ( 111 )
บทความ ( 0 )

ผมกะใส่ถูกอยุ่น่ะคราบทำไหมยังขึ้นอยุ่ หรือมัน ติดต่อดาต้าเบสไม่ได้คราบ

Date : 2010-09-09 13:15:23

By : noi014

No. 6

Guest

ได้ทำการแก้ตรงนี้หรือเปล่าค่ะ
strSQL = "SELECT * FROM admin WHERE UserName = '"&strusername&"' and Password = '"&strpassword&"' "

Date : 2010-09-09 13:27:13

By : ป

No. 7

XuoE_MsU

โพสกระทู้ ( 111 )
บทความ ( 0 )

ผมแก้แล้วคราบ ผมSetให้มันตรงล่ะน่ะ.....แต่ยังเป็นเหมื่อนเดิมเลยคราบ
<%

Dim strusername,strpassword

strUsername = Request.Form("UserName")
strPassword = Request.Form("Password")

Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;port=3307;UID=root;pwd=usbw;database=shop;option=16384;"

'*** Check Username & Password ***'

strSQL = "SELECT * FROM admin WHERE UserName = '"&Request.Form("strUsername")&"' and Password = '"&Request.Form("strPassword")&"' "
Set objRec = Conn.Execute(strSQL)
If Not objRec.EOF Then
response.redirect("หมวดหมู่สินค้า.asp") 'จะให้ไปหน้าไหนก้อใส่ลงไป'
'*** Session ***'
Session("username") = strusername
Else
Response.Write("** username & password ???")
End IF

objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing

%>

Date : 2010-09-09 13:49:03

By : noi014

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ข้อCode การทำน่าLogin แล้วก็เช็คความถูกต้องของ Username กับ Password ด้วยคราบ ASPน่ะคราบ...

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก