แนะนำ: การสอนเริ่มต้น ADO: ADO Display วิธีที่พบบ่อยที่สุดในการแสดงข้อมูลจากชุดบันทึกคือการแสดงข้อมูลในตาราง HTML แสดงชื่อฟิลด์และค่าฟิลด์เรามีฐานข้อมูลชื่อ Northwind และเราต้องการแสดงข้อมูลในตารางลูกค้า (อย่าลืมบันทึกไฟล์นี้ด้วย. asp เป็นส่วนขยาย): htmlbody%set conn = server.createObject (
สคริปต์การตรวจสอบการเข้าสู่ระบบของผู้ใช้, chkpwd.asp
- -
- '========= สคริปต์การตรวจสอบการเข้าสู่ระบบของผู้ใช้ =========
- 'หากวัตถุที่ผ่านไม่ได้ถูกกำหนดไว้จะถูกกำหนดให้เป็นเท็จแสดงว่าไม่ได้ผ่านการตรวจสอบ
- ifisempty (เซสชัน (ผ่าน)) จากนั้น
- เซสชัน (ผ่าน) = เท็จ
- endif
- 'เซสชัน (ผ่าน) = เท็จซึ่งหมายความว่าข้อมูลการตรวจสอบที่ส่งผ่านจากแบบฟอร์มยังไม่ผ่าน
- ifsession (ผ่าน) = falsethen
- username = request.form (ชื่อผู้ใช้)
- userpwd = request.form (userpwd)
- ifusername = ดังนั้น
- errmsg = เคล็ดลับ: โปรดป้อนชื่อผู้ใช้และรหัสผ่านของคุณ
- อื่น
- -
- setConn = server.createObject (adodb.connection)
- conn.connectionString = driver = {sqlServer}; เซิร์ฟเวอร์ = 192.168.1.3; uid = sa; pwd =; ฐานข้อมูล = zcmrs
- conn.open
- '============================== อ่านข้อมูลผู้ใช้จากบันทึกตาราง ============================
- 'กำหนดวัตถุบันทึกชุด
- setRs = server.createObject (adodb.recordset)
- 'ตั้งค่าการเชื่อมต่อของวัตถุการเชื่อมต่อ
- setrs.activeConnection = conn
- 'ชุดเคอร์เซอร์
- Rs.Cursortype = 3
- 'ชุดบันทึกเปิด
- Rs.OpenSelectUserName, PasswordFromerPuserwhereUserName = '& username &'
- -
- ifrs.eoftthen
- errmsg = เคล็ดลับ: ผู้ใช้ไม่มีอยู่หรือรหัสผ่านไม่ถูกต้อง
- อื่น
- ifuserpwd <> rs.fields (รหัสผ่าน) จากนั้น
- errmsg = เคล็ดลับ: เข้าสู่ระบบล้มเหลว! ข้อผิดพลาดรหัสผ่าน?
- else'login ประสบความสำเร็จ
- errmsg =
- เซสชัน (ผ่าน) = จริง
- เซสชัน (ชื่อผู้ใช้) = Rs.Fields (ชื่อผู้ใช้)
- 'ระบุเซสชันการอนุญาตผู้ใช้ (USERID) = RS.Fields (USERID)
- endif
- endif
- endif
- endif
- 'หลังจากเข้าสู่ระบบล้มเหลวแบบฟอร์มการเข้าสู่ระบบจะถูกวาด
- ifnotsession (ผ่าน) = truethen
- -
- <html>
- <head> <title> ออกแบบ home_dwww.cn </title>
- <styleType = text/css>
- -
- .STYLE1 {FONT-SIZE: 12PX; FONT-WEIGH
- -
- </style>
- <styleType = text/css>
- -
- .STYLE2 {FONT-SIZE: 12PX; FONT-WEIGH
- -
- </style>
- </head>
- <bodyleftmargin = 0topmargin = 0MarginHeight = 0MarginWidth = 0BGCOLOR =#000000>
- <divid = parentstyle = ความสูง: 300; ความกว้าง: 450; สไตล์ชายแดน: ของแข็ง; สีชายแดน: #FFFFF; อัตรากำไรขั้นต้น: 80px; ระยะขอบซ้าย: 25%;
- <divid = denglustyle = font-size: 12px; font-weight: bold; พื้นหลัง-สี:#0099ff; text-allign: center; ความสูง: 40px;> <br> ระบบ ERP เข้าสู่ระบบ </div>
- <formaction = <%= request.ServerVariables (path_info)%> method = postname = myFormId = myForm>
- <pclass = style1> ชื่อผู้ใช้: <putName = userNameType = textId = userNamesize = 18MaxLength = 20>
- </p>
- <pclass = style1> รหัสผ่าน: <putname = userpwdType = passwordId = userpwdsize = 18MaxLength = 20>
- </p>
- <palign = centerclass = style2> <%= errmsg%> </p>
- <p>
- <inputType = submitalign = middLename = submentValue = ระบบเข้าสู่ระบบ>
- <inputName = regetype = buttonAlign = MiddleOnClick = location = 'register.asp'id = regeValue = ลงทะเบียนผู้ใช้>
- </p>
- </form>
- </div>
- </body>
- </html>
- -
- '<pclass = style1> รหัสการตรวจสอบ: <อินพุต = checkCodeType = textId = checkCodeSize = 6MaxLength = 4>
- '<imgstyle = margin-right: 40pxalt = src = common/getCode.asp> </p>
- Response.end
- endif
- -
หน้าเพื่อเยี่ยมชม erp.asp
- <!-#includefile = chkpwd.asp->
- <body>
- <divstyle = 'ขนาดตัวอักษร: 12px; font-weight: bold; border: 1pxsolid#001; padding: 4px; ความเป็นมา
- -
- ifsession (ผ่าน) = truethen
- Response.write (เซสชัน (ชื่อผู้ใช้))
- endif
- %> <ahref = logout.asp> ออกจากระบบ </a>
- </div>
- </body>
ทุกครั้งที่คุณเปิด ERP.ASP คุณจะดำเนินการ chkpwd.asp () ก่อนซึ่งสามารถป้องกันไม่ให้ผู้ใช้ที่ไม่ได้รับอนุญาตเข้าถึงเว็บเพจที่ระบุได้อย่างมีประสิทธิภาพ
ออกจากระบบออกจากระบบ
- <body>
- -
- เซสชัน (ผ่าน) = เท็จ
- เซสชัน (ชื่อผู้ใช้) =
- Response.redirect (index.asp)
- -
- </body>
ส่งแบบฟอร์มโดยใช้รูปภาพ
- <formName = form1Method = postAction =>
- <tdalign = ขวา> <putType = imageMethod = submitName = submitSrc = image/loginin.gifwidth = 70Height = 21Alt = ส่ง> </td>
- </form>
แบ่งปัน: การสอนเริ่มต้น ADO: ADO เพิ่มระเบียน เราสามารถใช้การแทรกของ SQL ลงในคำสั่งเพื่อเพิ่มระเบียนลงในตารางในฐานข้อมูล การเพิ่มระเบียนลงในตารางในฐานข้อมูลเราต้องการเพิ่มระเบียนใหม่ในตารางลูกค้าในฐานข้อมูล Northwind ก่อนอื่นเราต้องสร้างแบบฟอร์มที่มีฟิลด์ที่เราต้องการเลือกข้อมูล: htmlbodyform method = post action = dem