 |
| |
ขอความช่วยเหลือค่ะ ระบบ Login โดยกำหนด level 3 Status |
| |
 |
|
|
 |
 |
|
ไม่ได้มาตอบหรอก แต่เข้ามาบอกว่ารักคนถามเช่นกัน 
|
 |
 |
 |
 |
| Date :
2010-06-14 13:46:55 |
By :
tungman |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
จะมีใครช่วยได้บ้างนะ
|
| |
|
|
| |
| Date :
2010-06-16 16:37:31 |
By :
keawsamut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เก็บ user class ไว้ใน session ดิครับ แล้วตรวจสอบ session เอาโดยใช้
select case ให้ redirect ไปที่ page ที่กำหนด
|
| |
|
|
| |
| Date :
2010-06-16 20:21:02 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
if session("level")=1 then
response.redirect "user1.asp"
elseif session("level")=2 then
response.redirect "administrator1.asp"
elseif session("level")=3 then
response.redirect "webmaster1.asp"
end if
ประมาณนี้อ่ะครับ
|
| |
|
|
| |
| Date :
2010-06-17 02:31:43 |
By :
blacklion |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
หนูสนใจ คำสั่ง if หง่ะค่ะ
แต่ว่า จะเก็บไว้ใน Page.asp ไหน และส่วนไหนแค่นั้นเอง
ช่วยแนะนำอีกทีนะคะ ขอบคุณค่ะ
ยังไม่ได้เลยค่ะ
ต้องการทำแบบนี้ค่ะ คือ
LoginFrm.asp --> เป็น Form ที่กรอบข้อมูล User,Pass และ Level จะส่งค่าที่ป้อนข้อมูลไปที่หน้า LoginChk.asp เพื่อตรวจเช็ค
LoginChk.asp --> เป็นหน้าที่รับค่ามาจาก LoginFrm.asp และทำการตรวจเช็ค User,Pass,Level ส่วน Level นี้จะมี 3 Level ให้
ตรวจเช็คโดยใช้ IF คือ Level 1 ไปหน้า User.asp
Level 2 ไปหน้า Member.asp
Level 3 ไปหน้า Administrator.asp
จะเริ่มสร้าง แต่ละ Page ยังงัยดีค่ะ ช่วยผู้รู้ ผู้ชำนาญการ หรือขั้นเทพ ช่วยด้วยนะคะ
ขอบคุณมากๆ ค่ะ
|
| |
|
|
| |
| Date :
2010-06-26 08:37:45 |
By :
keawsamut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่ใช่ผู้ชำนาญ หรือขั้นเทพ แต่อยากตอบ เอิ๊กๆ
จริงๆ แล้วมันทำในหน้าเดียวกันก็ได้นะคับดังนี้
LoginFrm.asp
USERNAME<br>
<input type="text" name="us"><br>
PASSWORD<br>
<input type="password" name="pw"> <br>
<input type="hidden" name="menu" value="1">
<input type="submit" value="Login">
'=============================================================
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=;Database=;UID=;PWD=;"
'=============================================================
select case request("menu")
case 1 login
end select
sub login()
sql = "select * from usern where username = '"&request("us")&"' and password = '"&request("pw")&"' "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open sql, Conn
if not objRec.eof then
session("username")=objRec("username")
session("name")=objRec("name")
session("level")=objRec("user_status")
if session("level")=1 then
response.redirect "User.asp"
elseif session("level")=2 then
response.redirect "Member.asp"
elseif session("level")=3 then
response.redirect "Administrator.asp"
end if
else
response.write "ชื่อหรือรหัสผ่านไม่ถูกต้อง"
end if
end sub
ปล. ทุกคนเก่งได้ ชำนาญได้ เป็นขั้นเทพได้ ถ้าหมั่นฝึกฝน มีอะไรทำไม่ได้ก็ถามพี่ๆ ในครอบครัว thaicreate นี่แหละครับ ทุกคนใจดี ครอบครัวนี้อบอุ่น
ผมก็พึ่งเริ่มเรียน asp เมื่อเทอมที่แล้วนี่เอง ก็ได้พี่ๆ ในนี้แหละครับช่วยแนะนำ ทริคหรือเทคนิคต่างๆให้ ไม่นานเราก็จะเก่งเหมือนพี่ๆเขา (แอบหวังไว้อย่างนั้น)
|
| |
|
|
| |
| Date :
2010-06-26 14:45:45 |
By :
blacklion |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณ Dogtor Sahachai ด้วยนะคะ
ใจดีอย่างนี้บุญคุณต้องทดแทนค่ะ
|
| |
|
|
| |
| Date :
2010-07-07 08:24:29 |
By :
keawsamut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แต่ผลลัพท์ มันยังไม่ได้เลยค่ะ
ช่วยแก้ไข code ให้หน่อยนะคะ
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Option Explicit
Dim Conn,SQL,objRec,intRows
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../DBACC/DB_SUTT.mdb"),"" , ""
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>TEST LOGIN</title>
<style type="text/css">
<!--
.style1 { font-size: 20px;
font-weight: bold;
color: #FFFFFF;
}
.style3 {color: #FFFFFF}
-->
</style>
</head>
<body>
<form action="" method="post" name="menu" id="menu">
USERNAME<br>
<input type="text" name="us"><br>
PASSWORD<br>
<input type="password" name="pw"> <br>
<select name="level" id="level">
<option value="1">Level 1</option>
<option value="2">Level 2</option>
<option value="3">Level 3</option>
<option value="4">Manage control</option>
</select>
<%
select case request("menu")
case 1 login
end select
sub login()
sql = "select * from user where username = '"&request("us")&"' and password = '"&request("pw")&"' "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open sql, Conn
if not objRec.eof then
session("username")=objRec("username")
session("name")=objRec("name")
session("status")=objRec("user_status")
if session("status")=1 then
response.redirect "TEST_InsertBudgets.asp"
elseif session("status")=2 then
response.redirect "TEST_ShowDep_Admin.asp"
elseif session("status")=3 then
response.redirect "TEST_ShowDep_Administrator.asp"
elseif session("status")=4 then
response.redirect "Webmaster_ShowAll_Actual.asp"
end if
else
response.write "ชื่อหรือรหัสผ่านไม่ถูกต้อง"
end if
end sub
%>
<br>
<input type="submit" value="Login">
</form>
</body>
</html>
|
| |
|
|
| |
| Date :
2010-07-07 10:09:02 |
By :
keawsamut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
<%
Dim rsu
Dim rsu_numRows
Set rsu = Server.CreateObject("ADODB.Recordset")
rsu.ActiveConnection = MM_DB_SUTT_STRING
rsu.Source = "SELECT InchargeID, UserName, Password, Status, Emp_ID, DepartmentID, DepartmentName FROM User WHERE InchargeID = '" + Replace(rsu__MMColParam, "'", "''") + "' ORDER BY InchargeID ASC"
rsu.CursorType = 0
rsu.CursorLocation = 2
rsu.LockType = 1
rsu.Open()
rsu_numRows = 0
%>
นี่คือ Database ของตาราง User ค่ะ
ให้คะแนนเต็ม 10 เลยค่ะ Doctor
|
| |
|
|
| |
| Date :
2010-07-08 16:32:59 |
By :
keawsamut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Database ที่ผมหมายถึงไม่ใช่แบบนี้!!!
หมายถึงเป็น ตารางอ่ะครับ แต่แบบนี้ก็พอจะเข้าใจอยู่
คุณต้องดูดีๆ ครับ คำสั่ง sql ของผมมันเป็น String ของ sql server 2005 แต่ของคุณรู้สึกจะใช้ Access
แล้วอีกอย่างตั้งชื่อ table ว่า user เนี่ย มันจะเป็นคำสงวนรึเปล่า แนะนำว่าให้เปลี่ยนชื่อ เป็น member ก็ได้
Code (ASP)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Option Explicit
Dim Conn,SQL,objRec,intRows
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../DBACC/DB_SUTT.mdb"),"" , ""
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>TEST LOGIN</title>
<style type="text/css">
<!--
.style1 { font-size: 20px;
font-weight: bold;
color: #FFFFFF;
}
.style3 {color: #FFFFFF}
-->
</style>
</head>
<body>
<%
select case request("menu")
case 1 login
end select
%>
<form>
USERNAME<br>
<input type="text" name="us"><br>
PASSWORD<br>
<input type="password" name="pw"> <br>
<br>
<input type="submit" value="Login">
<input type="hidden" name"menu" value="1">
</select>
<%
</form>
<%
sub login()
sql = "select * from user where username = '"&request("us")&"' and password = '"&request("pw")&"' "
set rs=Conn.execute(sql)
if not rs.eof then
session("status")=rs("status")
if session("status")=1 then
response.redirect "TEST_InsertBudgets.asp"
elseif session("status")=2 then
response.redirect "TEST_ShowDep_Admin.asp"
elseif session("status")=3 then
response.redirect "TEST_ShowDep_Administrator.asp"
elseif session("status")=4 then
response.redirect "Webmaster_ShowAll_Actual.asp"
end if
else
response.write "ชื่อหรือรหัสผ่านไม่ถูกต้อง"
end if
end sub
%>
</body>
</html>
|
| |
|
|
| |
| Date :
2010-07-08 18:07:24 |
By :
blacklion |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
นู๋จะลองทำใหม่ดูอีกทีนะคะ ท่าน Doctor อิอิ
|
| |
|
|
| |
| Date :
2010-07-13 12:01:22 |
By :
keawsamut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ทำไม่ได้ค่ะ
ใส่ Username และ Password แล้วยังไม่ได้เลย
มันไม่ยอมไปตาม หน้าที่เราเลือกค่ะ
แล้วเปลี่ยน ตาราง จาก User มาเป็น Member ก็ยังไม่ได้
ทำงัยดีท่าน Doctor
|
| |
|
|
| |
| Date :
2010-07-13 12:36:23 |
By :
keawsamut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เอาไงดีล่ะ...ติดต่อมาทางนี้ละกัน blacklion_ok [at] hotmail.com
|
| |
|
|
| |
| Date :
2010-07-13 14:54:34 |
By :
blacklion |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
มีใครช่วยได้บ้างคะ.................
|
| |
|
|
| |
| Date :
2010-07-15 11:49:12 |
By :
keawsamut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
???
|
| |
|
|
| |
| Date :
2010-07-19 15:45:09 |
By :
keawsamut |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ตกลงทำได้หรือยังครับ ดูจาก coding ของ คุณ sahachai ผมว่าน่าจะผ่านได้นะครับ แล้วที่ว่าไม่ได้มี ERROR ฟ้องว่ายังไงหรือเปล่าหรือไม่ไปตามหน้าที่เราต้องการครับ
|
| |
|
|
| |
| Date :
2010-08-02 11:35:01 |
By :
hwang |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณครับ
|
| |
|
|
| |
| Date :
2010-08-03 07:58:00 |
By :
sopothong |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองเอานี้ไปดูเป็นตัวอย่างครับเพื่อจะเข้าใจง่ายขึ้นครับ
ผมทำให้
ไปโหลดได้ที่นี้นะครับ
http://www.kaceecurtain.com/download/login.rar
ถ้าต้องการให้ กรอก level ก้อเพิ่ม ช่อง level เข้าไปครับ ตอนเช็ค ก้อเอาไปเช็ค กับ ฐานข้อมูลเอา
แต่ขอแนะนำครับ ที่จริง level เราน่าจะเป็นคนกำหนด ไม่ควรให้ user กรอก เองครับ
ให้เขากรอกแค่ user and pass ก้อพอ ส่วน level เราค่อยเขียน code เช็คเอาครับ
แต่ถ้าต้องการ ทำอย่างที่ต้องการก้อใช้ code นี้เลยครับ
ไม่เข้าใจสอบถามได้นะครับ
[email protected] (ASP)
view sourceprint?01.usernames = request.Form("username")
02.passwords = request.Form("password")
03.level = request.form("level")
04.strsql = "select * from User_login where username='"& usernames & "' and password= '"& passwords &"'"
05.set rslogin = server.createobject("adodb.recordset")
06.rslogin.open strsql, conn, 1, 2
07.
08.If Not rslogin.eof Then
09.levels = level
10.
11.session("level") = levels 'เก็บค่า level
12.session("username") = rslogin("username") 'เก็บค่า username
13.'ตรวจสอบ level
14.if levels = 1 then
15.response.Redirect("level1.asp")
16.elseif levels = 2 then
17.response.Redirect("level2.asp")
18.else
19.response.Redirect("level3.asp")
20.end if
21.
22.end if
|
ประวัติการแก้ไข
2010-08-03 22:14:40
| |
|
|
| |
| Date :
2010-08-03 22:13:52 |
By :
ntt007 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เห็นด้วยกับ No.17: coding ของ คุณ sahachai ผมว่าน่าจะผ่านได้นะครับ แล้วที่ว่าไม่ได้มี ERROR ฟ้องว่ายังไง
อย่างไรก็ตาม Code
บรรทัด 41: </select>
บรรทัด 42: <%
น่าจะลบทิ้งได้นะ
|
| |
|
|
| |
| Date :
2010-08-04 09:54:00 |
By :
watcharop |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
คุณ Fhaa
ผมทำตัวอย่างให้แล้วนะครับ ลองดาวโหลดไปใช้และดัดแปลงนะครับ
ลิงค์ดาวโหลด http://www.4shared-remove-by-admin.com/file/x5NCstwV/member.html
Password เปิดไฟล์ คือ Kittipong
Login ด้วย Username: users1 password : users1 จะ ไปหน้า user.asp
Login ด้วย Username: admin1 Password: admin1 จะไปหน้า admin.asp
Login ด้วย Username: webmaster password: webmaster จะไปหน้า webmaster.asp
ขอให้สนุกครับ.
|
ประวัติการแก้ไข
2010-08-04 12:43:55
| |
|
|
| |
| Date :
2010-08-04 12:39:56 |
By :
kittipongs |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
<%
Response.Buffer = True
Response.Expires = -1000
%>
<!--#include file="config.inc" -->
<!--#include file="connect.inc" -->
<%
If Request("Action") = LoginButton Then
Set DB = Connect()
SQL = "SELECT * FROM Login WHERE Username = '" + Request("Username") + "'"
Set RS = DB.Execute (SQL)
If (RS.EOF And RS.BOF) Then
Session (SiteID + "Authentication") = False
Response.Redirect ("login.asp?Error=ชื่อไม่ถูกต้องกรุณากรอกชื่อใหม่ใหม่ครับ!!!")
ElseIf RS("Password") <> Request ("Password") Then
Session (SiteID + "Authentication") = False
Response.Redirect ("login.asp?Error=รหัสผ่านไม่ถูกต้องครับ!!!")
Else
Session (SiteID + "Username") = RS("Username")
Session (SiteID + "FirstName") = RS("FirstName")
Session (SiteID + "LastName") = RS("LastName")
Session (SiteID + "Level") = RS("Level")
Session (SiteID + "Authentication") = True
If RS("Level") ="U" Then
Response.Redirect ("../user/default.asp")
End If
If RS("Level") ="A" Then
Response.Redirect ("../admin/default.asp")
End If
If RS("Level") ="M" Then
Response.Redirect ("../manager/default.asp")
)
End If
If RS("Level") ="Q" Then
Response.Redirect ("../qrs/deltopic.asp")
End If
If RS("Level") ="S" Then
Response.Redirect ("../administrator.asp")
))
End If
End If
End If
%>
<HTML>
<HEAD>
<TITLE><%= SiteTitle %></TITLE>
<STYLE>
body, p, td, li {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10pt; }
.style2 {
color: #3399FF;
font-size: 12pt;
}
.style4 {font-family: Tahoma; font-size: 12px; color: #FF0000;}
.style5 {
color: #33CCCC;
font-style: italic;
}
.style11 { color: #0000FF;
font-size: 14px;
font-family: "Microsoft Sans Serif";
}
.style14 {color: #FFFFFF}
.style43 {font-family: "MS Reference Sans Serif"}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.style44 {font-family: "Microsoft Sans Serif"; font-size: 14px;}
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874"></HEAD>
<BODY>
<div align="center">
<p><img src="../../images/logo_budget.gif" width="797" height="109"></p>
<p> </p>
<p><span class="style2">เข้าสู่ระบบจัดการข้อมูล<br>
</span><span class="style4"><%= Request("Error") %></span></p>
</div>
<FORM ACTION="<%= Request.ServerVariables("PATH_INFO") %>" METHOD="POST">
<p align="center"><span class="style5">User Name</span>
<INPUT TYPE="text" NAME="Username" VALUE="" SIZE="20" MAXCHARS="20">
</p>
<p align="center"><em class="style5">Password</em>
<INPUT TYPE="password" NAME="Password" VALUE="" SIZE="20" MAXCHARS="20">
</p>
<p align="center">
<INPUT TYPE="Submit" NAME="Action" VALUE="<%= LoginButton %>" SIZE="20" MAXCHARS="20">
</p>
</FORM>
<p> </p>
<p> </p>
<table width="787" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#B2B2B2">
<tr bgcolor="#339999">
<td height="25" align="center"><div align="left"><span class="style11"><span class="style43"><span class="style14"><img src="../../images/biggen.gif" width="16" height="17"> ้ © 2008 </span></span></span></div></td>
</tr>
</table>
<p> </p>
<p> </p>
เคยไปดาวโหลดมานานแล้วครับ จำไม่ได้แล้วที่ใหน แล้วเอามาดัดแปลงเอา ทำได้หลายระดับ ลองเอาไปใช้ดูนะครับ
|
| |
|
|
| |
| Date :
2010-08-05 01:31:50 |
By :
redsun001 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่รู้ได้หรือยัง ขอเพิ่มเติมให้หน่อยเพื่อติดที่ตรงจุดนี้
ก่อนอื่นขอถามหน่อยว่า Filed ชื่อ "status" Type เป็นอะไร (ตัวอักษร หรือ ตัวเลข)
เพราะตอนเปรียบเทียบต้องเป็น ชนิดเดียวกัน
และน่าจะใช้ชุดคำสั่ง Select มากกว่าใช้ If Then เพราะมีการเปรียบเทียบหลายค่า (ขอเปลี่ยนให้แล้วกันครับ)
......
Code (ASP)
Session("status") = rs("status") ' ต้องรู้ว่าเป็น ตัวอักษรหรือตัวเลข จะได้เปรียบเทียบได้ถูก
Select Case Session("status")
Case 1 ' หรือ "1"
Response.Redirect "TEST_InsertBudgets.asp"
Case 2 ' หรือ "2"
Response.Redirect "TEST_ShowDep_Admin.asp"
Case 3 ' หรือ "3"
Response.Redirect "TEST_ShowDep_Administrator.asp"
Case 4 ' หรือ "4"
Response.Redirect "Webmaster_ShowAll_Actual.asp"
End Select
|
| |
|
|
| |
| Date :
2010-08-05 09:14:14 |
By :
luecha |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
status เป็นตัวอักษรค่ะ................
|
| |
|
|
| |
| Date :
2010-08-05 15:12:14 |
By :
Fhaa |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถ้าอย่างนั้นก็เปลี่ยน code สำหรับใช้เปรียบเทียบ ตรงหลัง คำสั่ง case เป็นตัวอักษร ตามนี้ครับ
Code (ASP)
Select Case Session("status")
Case "1" ' --- เปลี่ยนตรงนี้ และทุก case
Response.Redirect "page_level1.asp"
Case "2"
Response.Redirect "page_level2.asp"
Case "3"
Response.Redirect "page_level3.asp"
Case "4"
Response.Redirect "page_level4.asp"
End Select
ลองดูครับ
|
| |
|
|
| |
| Date :
2010-08-05 16:03:32 |
By :
luecha |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
!!ลืมดูคำถาม ลองแบบนี้ครับ
Code (ASP)
Select Case Session("status")
Case "1"
Response.Redirect "user1.asp"
Case "2"
Response.Redirect "administrator1.asp"
Case "3"
Response.Redirect "webmaster1.asp"
Case else
Response.Redirect "Index.asp"
End Select
|
| |
|
|
| |
| Date :
2010-08-05 16:06:44 |
By :
luecha |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณค่ะ
|
| |
|
|
| |
| Date :
2010-08-05 16:16:03 |
By :
Fhaa |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณค่ะ
|
| |
|
|
| |
| Date :
2010-09-08 19:20:17 |
By :
poundang |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
