แนะนำ: การอภิปรายสั้น ๆ เกี่ยวกับหลักการของโปรแกรมการได้มาของ ASP ขั้นตอนหลักของโปรแกรมการรวบรวมมีดังนี้: 1. รับเนื้อหาของหน้ารวบรวม 2 แยกข้อมูลทั้งหมดจากรหัสการได้มา 1 รับเนื้อหาของหน้ารวบรวมที่ฉันรู้เกี่ยวกับวิธีการที่ใช้กันทั่วไปของ ASP เพื่อรับหน้ารวบรวม: 1
สคริปต์การตรวจสอบการเข้าสู่ระบบของผู้ใช้, chkpwd.asp
ต่อไปนี้เป็นเนื้อหาที่ยกมา:
-
'========= สคริปต์การตรวจสอบการเข้าสู่ระบบของผู้ใช้ =========
'หากวัตถุที่ผ่านไม่ได้ถูกกำหนดไว้จะถูกกำหนดให้เป็นเท็จแสดงว่าไม่ได้ผ่านการตรวจสอบ
ถ้า isempty (เซสชัน (ผ่าน)) จากนั้น
เซสชัน (ผ่าน) = เท็จ
สิ้นสุดถ้า
'เซสชัน (ผ่าน) = เท็จซึ่งหมายความว่าข้อมูลการตรวจสอบที่ส่งผ่านจากแบบฟอร์มยังไม่ผ่าน
ถ้าเซสชัน (ผ่าน) = เท็จแล้ว
username = request.form (ชื่อผู้ใช้)
userpwd = request.form (userpwd)
ถ้าชื่อผู้ใช้ = จากนั้น
errmsg = เคล็ดลับ: โปรดป้อนชื่อผู้ใช้และรหัสผ่านของคุณ
อื่น
-
SET Conn = Server.CreateObject (ADODB.Connection)
conn.ConnectionString = driver = {SQL Server}; Server = 192.168.1.3; uid = Sa; pwd =; database = zcmrs
conn.open
'============================== อ่านข้อมูลผู้ใช้จากบันทึกตาราง ============================
'กำหนดวัตถุบันทึกชุด
ตั้งค่า rs = server.createObject (adodb.recordset)
'ตั้งค่าการเชื่อมต่อของวัตถุการเชื่อมต่อ
ตั้งค่า rs.activeConnection = conn
'ชุดเคอร์เซอร์
Rs.Cursortype = 3
'ชุดบันทึกเปิด
Rs.Open เลือกชื่อผู้ใช้รหัสผ่านจาก ERPUSER ที่ชื่อผู้ใช้ = '& ชื่อผู้ใช้ &'
-
ถ้า RS.EOF แล้ว
errmsg = เคล็ดลับ: ผู้ใช้ไม่มีอยู่หรือรหัสผ่านไม่ถูกต้อง
อื่น
ถ้า userpwd <> rs.fields (รหัสผ่าน) แล้ว
errmsg = เคล็ดลับ: เข้าสู่ระบบล้มเหลว! ข้อผิดพลาดรหัสผ่าน?
เข้าสู่ระบบได้สำเร็จ
errmsg =
เซสชัน (ผ่าน) = จริง
เซสชัน (ชื่อผู้ใช้) = Rs.Fields (ชื่อผู้ใช้)
'ระบุเซสชันการอนุญาตผู้ใช้ (USERID) = RS.Fields (USERID)
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
'หลังจากเข้าสู่ระบบล้มเหลวแบบฟอร์มการเข้าสู่ระบบจะถูกวาด
ถ้าไม่ใช่เซสชัน (ผ่าน) = จริงแล้ว
-
<html>
<head> <title> เอกสารชื่อ UNT </title>
<style type = text/css>
-
.STYLE1 {FONT-SIZE: 12PX; FONT-WEIGH
-
</style>
<style type = text/css>
-
.STYLE2 {FONT-SIZE: 12PX; FONT-WEIGH
-
</style>
</head>
<body leftmargin = 0 topMargin = 0 marginHeight = 0 marginWidth = 0 bgColor =#000000>
<div id = สไตล์แม่ = ความสูง: 300; ความกว้าง: 450; สไตล์เส้นขอบ: ของแข็ง; สีชายแดน: #FFFFF; ระยะขอบด้านบน: 80px; ระยะขอบซ้าย: 25%;
<div id = denglu style = font-size: 12px; font-weight: bold; พื้นหลัง-สี:#0099ff; text-allign: center; ความสูง: 40px;> <br> ระบบ ERP เข้าสู่ระบบ </div>
<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 = ชื่อกลาง = ส่งค่า = เข้าสู่ระบบไปยังระบบ>
<ชื่ออินพุต = rege type = button allign = middle onclick = location = 'register.asp' id = rege value = register user> register>
</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
สิ้นสุดถ้า
-
หน้าเพื่อเยี่ยมชม erp.asp
<ต่อไปนี้เป็นเนื้อหาที่ยกมา:
<!-#รวมไฟล์ = chkpwd.asp->
<body>
<div style = 'font-size: 12px; font-weight: bold; border: 1px solid #001; padding: 4px; ความเป็นมา: #FFCCFF; margin-top: 0;'> ยินดีต้อนรับสู่การใช้ระบบการสืบค้น ERP ผู้ใช้ที่เข้าสู่ระบบปัจจุบันคือ:
-
ถ้าเซสชัน (ผ่าน) = จริงแล้ว
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>
แบ่งปัน: ลิงค์ ASP และ Access บทความนี้แสดงให้เห็นถึงสองวิธีในการเชื่อมโยง ASP และการเข้าถึงตัวอย่าง ASP ต่อไปนี้เป็นเนื้อหาอ้างอิง: %Dim Dd, connStrdd = data.mdbconnstr = & q