การเชื่อมต่อฐานข้อมูล:
ต่อไปนี้เป็นเนื้อหาอ้างอิง:
-
SET Conn = Server.CreateObject (ADODB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
-
เปิดฐานข้อมูล:
ต่อไปนี้เป็นเนื้อหาอ้างอิง:
exec = select * จากตารางฐานข้อมูล
ตั้งค่า rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,1
พารามิเตอร์ 1, 1 เพื่ออ่าน
อ่านรูปแบบเนื้อหา: <%= rs (ฟิลด์)%>
เพิ่มโปรแกรมการประมวลผลบันทึก:
ต่อไปนี้เป็นเนื้อหาอ้างอิง:
-
SET Conn = Server.CreateObject (ADODB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
name = request.form (ฟิลด์) ชื่อโทร, ข้อความเพื่อส่งค่าฟิลด์
tel = request.form (ฟิลด์)
message = request.form (ฟิลด์)
exec = แทรกลงในชื่อตาราง (ฟิลด์) ค่า ('+ฟิลด์+') ถูกคั่นด้วยเครื่องหมายจุลภาคด้วยเครื่องหมายจุลภาค
conn.execute exec ใช้การส่ง execute
conn.close
ตั้งค่า conn = ไม่มีอะไร
-
โปรแกรมการประมวลผลการค้นหา:
ต่อไปนี้เป็นเนื้อหาอ้างอิง:
-
name = request.form (ฟิลด์) ชื่อโทรคือค่าฟิลด์ที่ตั้งค่าโดยการตั้งค่าแบบฟอร์มของแบบฟอร์ม
tel = request.form (ฟิลด์)
SET Conn = Server.CreateObject (ADODB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
exec = select * จากตารางที่ name = '+field+' และ tel =+ฟิลด์
ตั้งค่า rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,1
-
'เนื้อหาของหน้าค้นหา
-
ทำในขณะที่ไม่ใช่ RS.EOF
%> <tr>
<td> <%= rs (ชื่อ)%> </td>
<td> <%= rs (โทร)%> </td>
<td> <%= rs (เวลา)%> </td>
</tr>
-
Rs.Movenext
วง
-
ลบโปรแกรมการประมวลผลบันทึก:
ต่อไปนี้เป็นเนื้อหาอ้างอิง:
-
SET Conn = Server.CreateObject (ADODB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
exec = delete * จากชื่อตารางที่ number = & request.form (id)
conn.execute exec
-
แก้ไขโปรแกรมการประมวลผลบันทึก:
ต่อไปนี้เป็นเนื้อหาอ้างอิง:
-
SET Conn = Server.CreateObject (ADODB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
exec = select * จากชื่อตารางที่ number = & request.form (id)
ตั้งค่า rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,3 '1,3 เป็นความหมายที่ได้รับการแก้ไข
rs (ชื่อ) = request.form (ฟิลด์) 'ชื่อโทร, ข้อความคือค่าฟิลด์ที่กำหนดโดยการส่งแบบฟอร์ม
RS (tel) = request.form (ฟิลด์)
rs (ข้อความ) = request.form (ฟิลด์)
Rs.update
Rs.close
ตั้งค่า rs = ไม่มีอะไร
conn.close
ตั้งค่า conn = ไม่มีอะไร
-
แก้ไขโปรแกรมการดำเนินการบันทึก: ป้อนหน้าหมายเลขรหัส >>> ส่งออกข้อมูล ID ที่เกี่ยวข้อง >>>>>> โปรแกรมการประมวลผลที่แก้ไขโดยตรง
ตัวอย่างของขั้นตอนการประมวลผลเข้าสู่ระบบ:
ต่อไปนี้เป็นเนื้อหาอ้างอิง:
-
ชื่อสลัวรหัสผ่าน
name = request.form (ชื่อ)
รหัสผ่าน = request.form (รหัสผ่าน)
Dim Exec, Conn, RS
exec = select *จากชื่อตารางที่ (name = '& field &' และ password = '& field &')
SET Conn = Server.CreateObject (ADODB.Connection)
conn.open driver = {Microsoft Access Driver (*.mdb)};
ตั้งค่า rs = server.createObject (adoDb.oldset)
Rs.oopen Exec, Conn
ถ้าไม่ใช่ rs.eof แล้ว
Rs.close
conn.close
เซสชัน (ตรวจสอบ) = ใช่
เซสชัน (ตรวจสอบ) = ขวา
Response.redirect index.asp
อื่น
เซสชัน (ตรวจสอบ) = ไม่
เซสชัน (ตรวจสอบ) = W
Response.redirect Login.asp
สิ้นสุดถ้า
-
แต่ละหน้าพื้นหลังบวก:
<%ถ้าไม่ใช่เซสชัน (ตรวจสอบ) = ใช่แล้ว 'เซสชันกำหนดตัวแปรสตริงที่ตรวจสอบแล้ว
Response.redirect Login.asp
อื่น
-