สคริปต์การตรวจสอบการเข้าสู่ระบบของผู้ใช้, chkpwd.asp
-
'======== สคริปต์การตรวจสอบการเข้าสู่ระบบของผู้ใช้ ========
'หากวัตถุที่ผ่านไม่ได้ถูกกำหนดมันจะกำหนดเป็นเท็จแสดงว่าไม่ได้ผ่านการตรวจสอบ
ถ้า isempty (เซสชัน (ผ่าน)) จากนั้น
เซสชัน (ผ่าน) = เท็จ
สิ้นสุดถ้า
'เซสชัน (ผ่าน) = เท็จแสดงให้เห็นว่าข้อมูลการตรวจสอบจากแบบฟอร์มยังไม่ผ่านมันไม่ได้ผ่านการตรวจสอบ
ถ้าเซสชัน (ผ่าน) = เท็จแล้ว
username = request.form (ชื่อผู้ใช้)
userpwd = request.form (userpwd)
ถ้าชื่อผู้ใช้ = จากนั้น
errmsg = พรอมต์: โปรดป้อนชื่อผู้ใช้และรหัสผ่าน
อื่น
'==================== เชื่อมต่อฐานข้อมูล ===================
SET Conn = Server.CreateObject (ADODB.Connection)
conn.ConnectionString = driver = {SQL Server};
conn.open
'==================== อ่านข้อมูลผู้ใช้ ======================
'กำหนดวัตถุชุดบันทึก
ตั้งค่า rs = server.createObject (adodb.oldset)
'ตั้งค่าการเชื่อมต่อการเชื่อมต่อวัตถุ
ตั้งค่า rs.activeConnection = conn
'ตั้งค่าประเภทเคอร์เซอร์
Rs.Cursortype = 3
'เปิดชุดระเบียน
Rs.oopen เลือกชื่อผู้ใช้รหัสผ่านจาก Erpuseer ที่ชื่อผู้ใช้ = '& ชื่อผู้ใช้ &'
-
ถ้า RS.EOF แล้ว
errmsg = เคล็ดลับ: ผู้ใช้ไม่มีหรือข้อผิดพลาดรหัสผ่าน
อื่น
ถ้า userpwd <> rs.fields (รหัสผ่าน) แล้ว
ERRMSG = เคล็ดลับ: เข้าสู่ระบบ!
เข้าสู่ระบบอย่างอื่นสำเร็จ
errmsg =
เซสชัน (ผ่าน) = จริง
เซสชัน (ชื่อผู้ใช้) = Rs.Fields (ชื่อผู้ใช้)
'ระบุเซสชันการอนุญาตผู้ใช้ (userId) = rs.fields (userId)
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
'หลังจากการเข้าสู่ระบบไม่ประสบความสำเร็จแบบฟอร์มการเข้าสู่ระบบจะถูกวาด
ถ้าไม่ใช่เซสชัน (ผ่าน) = จริงแล้ว
-
<html>
<head> <title> เอกสารที่ไม่ใช่ title </title>
<style type = text/css>
-
.STYLE1 {ขนาดฟอนต์: 12px;
-
</style>
<style type = text/css>
-
.STYLE2 {ขนาดตัวอักษร: 12px;
-
</style>
</head>
<body leftmargin = 0 topMargin = 0 marginHeight = 0 marginWidth = 0 bgColor =#000000>
<div id = parent ckground- สี: #ffffff>
<div id = denglu style = font-size: 12px;
<form action = <%= request.ServerVariables (path_info)%> method = post name = myform id = myform>
<p class = style1> ชื่อผู้ใช้: <อินพุตชื่อ = ชื่อผู้ใช้ = ข้อความข้อความ = ชื่อผู้ใช้ขนาด = 18 maxLength = 20>
</p>
<p class = style1> รหัสผ่าน: <ชื่ออินพุต = userpwd type = รหัสผ่าน ID = userpwd size = 18 maxLength = 20>
</p>
<p allign = center class = style2> <%= errmsg%> </p>
<p>
<ประเภทอินพุต = ส่ง Align = ชื่อ mide = submit value = ระบบเข้าสู่ระบบ>
<ชื่ออินพุต = rege type = button allign = middle onck = location = 'register.asp' id = rege value = ผู้ใช้ที่ลงทะเบียน>
</p>
</form>
</div>
</body>
</html>
-
'<p class = style1> รหัสการตรวจสอบ: <ชื่ออินพุต = checkCode type = text id = checkCode size = 6 maxLength = 4>
'<img style = margin-right: 40px alt = src = common/getCode.asp> </p>
Response.end
สิ้นสุดถ้า
-
page erp.asp ที่จะเยี่ยมชม
<!-#รวมไฟล์ = chkpwd.asp->
<body>
<div style = 'ขนาดตัวอักษร: 12px;
-
ถ้าเซสชัน (ผ่าน) = จริงแล้ว
Response.write (เซสชัน (ชื่อผู้ใช้))
สิ้นสุดถ้า
%> <a href = logout.asp> ระบบออก </a>
</div>
</body>
ทุกครั้งที่คุณเปิด ERP.ASP คุณจะดำเนินการ chkpwd.asp () ก่อนซึ่งสามารถป้องกันผู้ใช้ที่ไม่ได้รับอนุญาตได้อย่างมีประสิทธิภาพจากการเข้าถึงเว็บเพจที่ระบุ
ออกจากระบบออกจากระบบ
<body>
-
เซสชัน (ผ่าน) = เท็จ
เซสชัน (ชื่อผู้ใช้) =
Response.redirect (index.asp)
-
</body>
ใช้รูปภาพเพื่อส่งแบบฟอร์ม
<form name = form1 method = post action =>
<td align = ขวา> <อินพุต type = method image = subment name = subment src = image/loginin.gif width = 70 ความสูง = 21 alt = ส่ง> </td>
</form>