Forgot Password ??

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

	Registered : 109,028

HOME > ASP > ASP Forum > Login มันเป็นไรของมันเนี๋ย ทำมาเกือบสัปดาห์หล่ะ ไม่ผ่านสักที Help me Plz...

Login มันเป็นไรของมันเนี๋ย ทำมาเกือบสัปดาห์หล่ะ ไม่ผ่านสักที Help me Plz...

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

Guest

พี่ๆครับช่วยดูหน่อยสิครับ แก้ตรงไหนผมทำไม่ได้สักทีเลยครับ Login มันชอบขึ้น Error แบบเนี๋ย
Error Type:
Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
/Projectmanagement/logcheck.asp, line 22

------------------โค๊ดครับ-------------------------------

<meta http-equiv="Content-Language" content="en-us">
<%
user = Request.Form("username")
pass = Request.Form("password")
%>
<%If user = "" And pass = "" Then%>
<table border="0" cellspacing="1" width="100%">
<tr>
<td width="100%">
<p align="center"><b><span lang="th"><font size="2">กรุณาใส่ </font></span>
<font size="2"><span lang="en-us">Id </span><span lang="th">และ </span>
<span lang="en-us">Password </span></font><span lang="th"><font size="2">
ด้วยครับ</font></span></b></td>
</tr>
</table>

<%Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("Register/Datast.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * From Filest Where (Idst = '"& user &"') And (Password = '"& pass &"')"
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.redirect("nostatus.asp")
else
session("access") = "yes"
response.redirect("User/index.asp")
End if
rs.Close
conn.Close
End If
%>

Tag : - - - -

Date : 10 พ.ย. 2547 19:55:52

By : NimKab

View : 2696

Reply : 7

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

ผมเองก็ไม่ค่อยจะถนัด ซินแทก ASP ซะเท่าไหร่ครับแต่จากที่ถู error น่าจะเป็นในส่วนของ
รูปแบบชนิดของข้อมูลกับ sql statement ผิดพลาดครับ

ถ้าเป้นชนิด number จะไม่ไม่มีเครื่องหมาย ' ' ครับ

sql = "Select * From Filest Where Idst = "& user &" And Password = '"& pass &"'"

Date : 11 พ.ย. 2547 15:20:13

By : @W_IN

No. 2

Guest

ใครมี code login เปรียบเทียบจากฐานข้อมูลผมขอเถอะครับ ช่วยโพสต์หน่อยเถอะ

Date : 11 พ.ย. 2547 23:20:46

By : NimKab

No. 3

Guest

มีครับ แต่เป็น ASP + MySQL นะครับ เป็นส่วนที่ใช้ดึงข้อมูลจากฐานข้อมูลมาเปรียบเทียบครับ

Dim user,pass,bnAccess,IsAdmin

user = Request("user")
pass = Request("pass")

If user <> "" And pass <> "" Then Call LogResult(pass,user,IsAdmin,strGID,bnAccess)

'//-------------------- โปรแกรมส่วนอื่น ๆ -------------------
'//ตัวที่ใช้เช็ค user,password

Private Sub LogResult(ByVal strPass,ByVal strUser,ByRef bnAdmin,ByRef gid,ByRef bAccess)
Dim Rs,Conn
bAccess = False
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection"):Conn.Open Application("strConn")
If Err.Number <> 0 Then Exit Sub
Set Rs = Conn.Execute("SELECT NAME,GID,IS_ADMIN FROM AUDITORS WHERE PASSWORD = '" & strPass & "'")
If Err.Number <> 0 Then Exit Sub
If Not(Rs.BOF AND Rs.EOF) Then
If Ucase(Rs("NAME")) = Ucase(strUser) Then
bAccess = True
bnAdmin = Rs("IS_ADMIN")
gid = Rs("GID")
Else
bAccess = False
End If
else
bAccess = False
bnAdmin = "N"
gid = "not found"
End If

Rs.Close
Conn.Close
If Not Rs Is Nothing Then Set Rs= Nothing
If Not Conn Is Nothing Then Set Conn = Nothing

End Sub

Date : 12 พ.ย. 2547 06:27:04

By : exsior6

No. 4

Guest

โอ้ว !!! สุดยอดนะครับ

แต่ผมเพิ่งหัดเขียนอ่ะครับ โดยใช้ฐานข้อมูล Access อ่ะครับ ใครมีการ Login โดยใช้ฐานข้อมูล Access กรุณาช่วยผมหน่อยเถอะครับ เอาแบบไม่ยากมากหน่ะครับ

Date : 12 พ.ย. 2547 16:08:41

By : NimKab

No. 5

Guest

ก็ของคุณก็ใช้ได้แล้วอ่ะครับ เพียงแต่น่าจะเปลี่ยนจาก...
pass = Request.Form("password")
เป็น...
pass = Int(Request.Form("password")) <== ถ้าใน Access เป็นข้อมูลชนิด Number อ่ะครับ

แล้วก็เปลี่ยนจาก...
sql = "Select * From Filest Where (Idst = '"& user &"') And (Password = '"& pass &"')"
เป็น...
sql = "Select * From Filest Where (Idst='"& user &"') And (Password="& pass &")" <== ถ้าใน Access เป็นข้อมูลชนิด Number อ่ะครับ

บางที่ตรวจสอบเงื่อนไขแค่นี้ก็พอครับ

If rs.EOF Then

---------

Else

---------

End If

พยายามทำนะครับ....สนุกดี ... กับ ASP เนี่ยะ

Date : 18 พ.ย. 2547 15:13:46

By : onairteam...คนรู้น้อย

No. 6

Guest

<html>
<body>
<form method="post" action="index1.asp">
Login
<tr><tr>
<td><p>Username </td><td>:</td>
<td><input type="text" name="user" value=""></td>
<br></tr>
<tr>
<td>Password  </td><td>:</td>
<td><input type="password" name="password" ></td></tr>
<br>
<br><tr>
<td><input type="submit" value="Submit" ></td>
<td><input type="reset" value="Reset"></tr></td>

</tr>

</p>
</form>
</body>

</BODY>
</HTML>

Date : 25 ม.ค. 2548 15:41:21

By : m

No. 7

Guest

<%
dim user,password
admin = "user"
pass= "password"
user = request.form("user")
password= request.form("password")
%>
<% if admin = user and pass = password then %>
<HTML>
<HEAD>
<TITLE> data </TITLE>
</HEAD>

<BODY><form action="001.asp" method="post" >

<p>Topic    :
<input type="text" name="text" size="40">

<br>
Content :
<textarea name="answer" rows="4" cols="40"></textarea>
<br>

<input type="submit" value="Submit" >

</form>
<%else%>

<html>
<head>
<title>Error!!</title>
</head>
<body>
Invalid Username or Password<br>
<a href="index.html">Insert Again</a>
<%end if%>
</BODY>
</HTML>
ตรวจสอบ Password

Date : 25 ม.ค. 2548 15:43:00

By : m

ค้นหาข้อมูล

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

Re : Login มันเป็นไรของมันเนี๋ย ทำมาเกือบสัปดาห์หล่ะ ไม่ผ่านสักที Help me Plz...

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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