 |
|
Login มันเป็นไรของมันเนี๋ย ทำมาเกือบสัปดาห์หล่ะ ไม่ผ่านสักที Help me Plz... |
|
 |
|
|
 |
 |
|
ผมเองก็ไม่ค่อยจะถนัด ซินแทก ASP ซะเท่าไหร่ครับแต่จากที่ถู error น่าจะเป็นในส่วนของ
รูปแบบชนิดของข้อมูลกับ sql statement ผิดพลาดครับ
ถ้าเป้นชนิด number จะไม่ไม่มีเครื่องหมาย ' ' ครับ
sql = "Select * From Filest Where Idst = "& user &" And Password = '"& pass &"'"
|
 |
 |
 |
 |
Date :
11 พ.ย. 2547 15:20:13 |
By :
@W_IN |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ใครมี code login เปรียบเทียบจากฐานข้อมูลผมขอเถอะครับ ช่วยโพสต์หน่อยเถอะ
|
 |
 |
 |
 |
Date :
11 พ.ย. 2547 23:20:46 |
By :
NimKab |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
มีครับ แต่เป็น 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 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
โอ้ว !!! สุดยอดนะครับ
แต่ผมเพิ่งหัดเขียนอ่ะครับ โดยใช้ฐานข้อมูล Access อ่ะครับ ใครมีการ Login โดยใช้ฐานข้อมูล Access กรุณาช่วยผมหน่อยเถอะครับ เอาแบบไม่ยากมากหน่ะครับ 
|
 |
 |
 |
 |
Date :
12 พ.ย. 2547 16:08:41 |
By :
NimKab |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ก็ของคุณก็ใช้ได้แล้วอ่ะครับ เพียงแต่น่าจะเปลี่ยนจาก...
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...คนรู้น้อย |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
<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 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
<%
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 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|