<%
dim a
dim b
a="annai"
b="kung"
if(session("login")=a) then
%>
ให้สามารถเข้าใช้งานหน้าจอนี้ได้
ส่วนนี้จะเป้นึคำสั่งของหน้าจอนั้นๆ
<%else %>
<center>ถ้า user เป็น kung จะไม่สามารถเข้านห้านี้ได้ แต่ annai จะเข้าได้
<%response.write("คุณไม่สามารถเใช้หน้าจอนี้ได้"&"<br>")%>
<a href="../marketing/sell_card.asp">คลิกที่นี่เพื่อกลับไปหน้าเดิม</a></center>
<%response.End()%>
<%end if%>
อยากทราบว่าถ้าจะเขียนแบบว่าให้เอาฟิลดิ์ตำแหน่งในฐานข้อมุลมากำหนดว่า สมมติ ตำแหน่งธุรการ เข้าได้
ตำแหน่งพนักงานขายเข้าไม่ได้
โดยกำหนดจากฟิลในฐานข้อมูลไม่ใช่ ชื่อ user น่ะค่ะ
เราเขียนโค้ดยังไงน่ะคะ
Tag : - - - -
Date :
14 ส.ค. 2549 09:34:41
By :
เพรียว
View :
2065
Reply :
2
No. 1
Guest
ลองใส่เป็นระดับโดยใช้ตัวเลขช่วยซิครับ เช่น ธุรการ ให้มี status = 1 ผู้บริหาร ให้มี status = 9 พนักงานขาย ให้มี status = 5 แล้วใส่เงื่อนไขว่า ถ้า user <= 5 ไม่สามารถเข้าหน้านี้ได้ ประมาณนี้ ลองดูนะครับ ถ้าไม่ได้ก็post มาถามใหม่ได้ครับ
Date :
14 ส.ค. 2549 10:14:58
By :
ปานกลาง
No. 2
Guest
###### ส่วน login
-----------------------------------------------------
set con =server.CreateObject ("ADODB.connection")
sConnection ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("DB.mdb")&";Persist Security Info=False"
con.Open(sConnection)
user = Request.Form ("txteuser")
password = Request.Form ("txtpassword")
set rs = server.CreateObject ("ADODB.RecordSet")
sql="SELECT * FROM Customer where Custuser = '"& trim(suer) &"' and CustPass = '"& password &"' Rs.Open sql,con,1,3,1
if rs.RecordCount > 0 then
session("user") = rs.Fields ("custuser")
session("status") = rs.Fields ("status")
response.Redirect("หน้าที่ต้องการ")
else
response.Write("ข้อมูลไม่ถูกต้อง")
end if
Load balance : Server 00
