v1 ลบบันทึก
opendataconn 'เปิดการเชื่อมต่อฐานข้อมูล'
xxlb=RtnReplaceInt(Trim(request(xxlb)),0) 'จากภายในสู่ภายนอก ได้รับตัวแปร xxlb และช่องว่างที่ปลายทั้งสองของตัวแปรจะถูกลบออก เลเยอร์ด้านนอกสุดคือฟังก์ชันแบบกำหนดเอง ซึ่งก็คือ อาจเกี่ยวข้องกับการทดแทน
id=changechr(request(id)) 'รับ id และแปลงเป็นสตริง
ids=split(id,,) 'แยก id ด้วย และบันทึกลงใน array ids
for i=0 to ubound(ids) 'ใช้ for loop เพื่อสำรวจอาร์เรย์
tt=trim(ids(i)) 'ลบช่องว่างที่ปลายทั้งสองด้านขององค์ประกอบอาร์เรย์และกำหนดให้กับ tt
conn.executedelete จากบ้านโดยที่ id=&tt& 'ลบบันทึกของตัวแปร id=tt ในตารางข้อมูล
ถัดไป 'จุดสิ้นสุดของวง
response.redirect house.asp?xxlb=&xxlb& 'ข้ามไปที่หน้าหลักแล้วใช้เมธอด get เพื่อส่งพารามิเตอร์ xxlb ค่านี้คือค่าของตัวแปร xxlb
closedataconn ปิดการเชื่อมต่อฐานข้อมูล
2. เชื่อมต่อกับฐานข้อมูล
dim conn 'กำหนดตัวแปร'
dim char_str(20) 'กำหนดอาร์เรย์
ย่อย OpenDataConn() 'กระบวนการที่กำหนดเอง ตำแหน่งฐานข้อมูลลิงก์ผู้ใช้
dim connstr กำหนดตัวแปร
connstr = ผู้ให้บริการ=Microsoft.Jet.OLEDB.4.0;แหล่งข้อมูล=
connstr = connstr & Server.MapPath(../../data/fyhouse_free.mdb) 'สตริงไดรเวอร์ฐานข้อมูล
'response.write connstr ส่งออกค่าของตัวแปร connstr
set conn=Server.CreateObject(AdoDb.Connection) 'สร้างวัตถุการเชื่อมต่อ
conn.Open connstr 'ลิงก์ฐานข้อมูล
end sub ประโยคนี้ถือเป็นจุดสิ้นสุดของกระบวนการ แต่เมื่อพิจารณาจากโค้ดที่คุณโพสต์แล้ว ไม่มีจุดเริ่มต้น