โดยทั่วไปแล้ว ปัญหาหลักที่ต้องแก้ไขเมื่อเขียนโปรแกรมฐานข้อมูลนั้นไม่มีอะไรมากไปกว่าการเพิ่ม ลบ การแก้ไข และการสืบค้น การเขียนโปรแกรมประเภทนี้ง่ายมาก ต่อไป ผมจะใช้เวลาว่างเพื่อสร้างฟังก์ชันที่มีฟังก์ชันการเพิ่มและการลบ สถาปัตยกรรมทดลองสามารถใช้ฐานข้อมูล ACCESS เซิร์ฟเวอร์ IIS.5WEB จริงๆ แล้วฉันไม่จำเป็นต้องลงรายละเอียดเกี่ยวกับเรื่องนี้ เพราะทุกคนควรรู้เรื่องนี้ ฉันจะโพสต์ฟังก์ชั่นโดยตรง ทุกคนสามารถใช้งานได้โดยมีการเปลี่ยนแปลงเพียงเล็กน้อยเท่านั้น
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ผู้ดูแลระบบย่อยแก้ไข()
การดำเนินการสลัว, rsCheckAdd, rs, sql
การกระทำ=request.QueryString(การกระทำ)
ถ้า Action=SaveEdit ให้ 'บันทึกข้อมูลผู้ดูแลระบบที่แก้ไขแล้ว'
ชุด rs = server.createobject (adodb.recordset)
ถ้าผลลัพธ์ = เพิ่ม ให้ 'สร้างผู้ดูแลเว็บไซต์'
set rsCheckAdd = conn.execute (เลือก AdminName จาก Ameav_Admin โดยที่ AdminName=' & trim(Request.Form(AdminName)) & ')
ถ้าไม่ใช่ (rsCheckAdd.bof และ rsCheckAdd.eof) ให้ 'ตรวจสอบว่ามีชื่อผู้ดูแลระบบนี้อยู่หรือไม่
response.write <script language=javascript><!--
alert(' & trim(Request.Form(AdminName)) & มีผู้ดูแลระบบอยู่แล้ว โปรดลองอีกครั้งด้วยชื่อล็อกอินอื่น!');history.back(-1);
// --></สคริปต์>
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
sql=select * จาก Ameav_Admin
rs.open sql,conn,1,3
rs.เพิ่มใหม่
ถ้า len(trim(Request.Form(AdminName)))<3 หรือ len(trim(Request.Form(Password)))>10 แล้ว
response.write <script language=javascript><!--
alert('จำเป็นต้องระบุชื่อล็อกอินของผู้ดูแลระบบและจำนวนตัวอักษรต้องมี 3-10 ตัวอักษร!');history.back(-1);
// --></สคริปต์>
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
ถ้า len(trim(Request.Form(Password)))<6 หรือ len(trim(Request.Form(Password)))>16 แล้ว
response.write <script language=javascript><!--
alert('จำเป็นต้องมีรหัสผ่านผู้ดูแลระบบและจำนวนตัวอักษรต้องมี 6-16 ตัวอักษร!');history.back(-1);
// --></สคริปต์>
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
ถ้า Request.Form(Password)<>Request.Form(vPassword) แล้ว
response.write <script language=javascript><!--
alert('รหัสผ่านที่ใส่สองครั้งต่างกัน!');history.back(-1);
// --></สคริปต์>
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
rs(AdminName)=trim(Request.Form(AdminName))
ถ้า Request.Form(Working)=1 แล้ว
rs(ทำงาน)=Request.Form(ทำงาน)
อื่น
฿(ทำงาน)=0
สิ้นสุดถ้า
rs(รหัสผ่าน)=Md5(ขอแบบฟอร์ม(รหัสผ่าน))
rs(ชื่อผู้ใช้)=trim(Request.Form(ชื่อผู้ใช้))
rs (AdminPurview) = คำขอแบบฟอร์ม (Purview111) & คำขอแบบฟอร์ม (Purview112) & คำขอแบบฟอร์ม (Purview113) &_
แบบฟอร์มคำขอ (Purview114) & แบบฟอร์มคำขอ (Purview115) & แบบฟอร์มคำขอ (Purview116) &_
แบบฟอร์มคำขอ (Purview117) & แบบฟอร์มคำขอ (Purview118) & แบบฟอร์มคำขอ (Purview119) &_
แบบฟอร์มคำขอ (Purview120) & แบบฟอร์มคำขอ (Purview121) & แบบฟอร์มคำขอ (Purview122) &_
แบบฟอร์มคำขอ (Purview123) & แบบฟอร์มคำขอ (Purview124) & แบบฟอร์มคำขอ (Purview125) &_
แบบฟอร์มคำขอ (Purview126) & แบบฟอร์มคำขอ (Purview127) & แบบฟอร์มคำขอ (Purview128) &_
แบบฟอร์มคำขอ (Purview129) & แบบฟอร์มคำขอ (Purview130) & แบบฟอร์มคำขอ (Purview131) &_
แบบฟอร์มคำขอ (Purview132) & แบบฟอร์มคำขอ (Purview133) & แบบฟอร์มคำขอ (Purview134) &_
แบบฟอร์มคำขอ (Purview135) & แบบฟอร์มคำขอ (Purview136) & แบบฟอร์มคำขอ (Purview137) &_
แบบฟอร์มคำขอ (Purview138) & แบบฟอร์มคำขอ (Purview139) & แบบฟอร์มคำขอ (Purview140) &_
แบบฟอร์มคำขอ (Purview141) & แบบฟอร์มคำขอ (Purview142) & แบบฟอร์มคำขอ (Purview143) &_
แบบฟอร์มคำขอ (Purview144) & แบบฟอร์มคำขอ (Purview145) & แบบฟอร์มคำขอ (Purview146) &_
แบบฟอร์มคำขอ (Purview147) & แบบฟอร์มคำขอ (Purview148) & แบบฟอร์มคำขอ (Purview149) &_
แบบฟอร์มคำขอ (Purview150) & แบบฟอร์มคำขอ (Purview151) & แบบฟอร์มคำขอ (Purview152) &_
คำขอแบบฟอร์ม(Purview153)
rs(อธิบาย)=trim(คำขอแบบฟอร์ม(อธิบาย))
อาร์เอส(AddTime)=ตอนนี้()
สิ้นสุดถ้า
ถ้า Result=Modify ให้ 'แก้ไขผู้ดูแลเว็บไซต์'
sql=select * จาก Ameav_Admin โดยที่ ID=&ID
rs.open sql,conn,1,3
rs(AdminName)=trim(Request.Form(AdminName))
ถ้า Request.Form(Working)=1 แล้ว
rs(ทำงาน)=Request.Form(ทำงาน)
อื่น
฿(ทำงาน)=0
สิ้นสุดถ้า
ถ้า trim(Request.Form(Password))<> แล้ว
ถ้า len(trim(Request.Form(Password)))<6 หรือ len(trim(Request.Form(Password)))>20 แล้ว
response.write <script language=javascript><!--
alert('จำเป็นต้องมีรหัสผ่านผู้ดูแลระบบและต้องมีอักขระ 6-20 ตัว!'); history.back(-1);
// --></สคริปต์>
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
ถ้า Request.Form(Password)<>Request.Form(vPassword) แล้ว
response.write <script language=javascript><!--
alert('รหัสผ่านที่ใส่สองครั้งต่างกัน!');history.back(-1);
// --></สคริปต์>
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
rs(รหัสผ่าน)=Md5(ขอแบบฟอร์ม(รหัสผ่าน))
สิ้นสุดถ้า
rs(ชื่อผู้ใช้)=trim(Request.Form(ชื่อผู้ใช้))
rs (AdminPurview) = คำขอแบบฟอร์ม (Purview111) & คำขอแบบฟอร์ม (Purview112) & คำขอแบบฟอร์ม (Purview113) &_
แบบฟอร์มคำขอ (Purview114) & แบบฟอร์มคำขอ (Purview115) & แบบฟอร์มคำขอ (Purview116) &_
แบบฟอร์มคำขอ (Purview117) & แบบฟอร์มคำขอ (Purview118) & แบบฟอร์มคำขอ (Purview119) &_
แบบฟอร์มคำขอ (Purview120) & แบบฟอร์มคำขอ (Purview121) & แบบฟอร์มคำขอ (Purview122) &_
แบบฟอร์มคำขอ (Purview123) & แบบฟอร์มคำขอ (Purview124) & แบบฟอร์มคำขอ (Purview125) &_
แบบฟอร์มคำขอ (Purview126) & แบบฟอร์มคำขอ (Purview127) & แบบฟอร์มคำขอ (Purview128) &_
แบบฟอร์มคำขอ (Purview129) & แบบฟอร์มคำขอ (Purview130) & แบบฟอร์มคำขอ (Purview131) &_
แบบฟอร์มคำขอ (Purview132) & แบบฟอร์มคำขอ (Purview133) & แบบฟอร์มคำขอ (Purview134) &_
แบบฟอร์มคำขอ (Purview135) & แบบฟอร์มคำขอ (Purview136) & แบบฟอร์มคำขอ (Purview137) &_
แบบฟอร์มคำขอ (Purview138) & แบบฟอร์มคำขอ (Purview139) & แบบฟอร์มคำขอ (Purview140) &_
แบบฟอร์มคำขอ (Purview141) & แบบฟอร์มคำขอ (Purview142) & แบบฟอร์มคำขอ (Purview143) &_
แบบฟอร์มคำขอ (Purview144) & แบบฟอร์มคำขอ (Purview145) & แบบฟอร์มคำขอ (Purview146) &_
แบบฟอร์มคำขอ (Purview147) & แบบฟอร์มคำขอ (Purview148) & แบบฟอร์มคำขอ (Purview149) &_
แบบฟอร์มคำขอ (Purview150) & แบบฟอร์มคำขอ (Purview151) & แบบฟอร์มคำขอ (Purview152) &_
คำขอแบบฟอร์ม(Purview153)
rs(อธิบาย)=trim(คำขอแบบฟอร์ม(อธิบาย))
สิ้นสุดถ้า
อาร์เอสอัปเดต
RS.ปิด
ตั้งค่า rs=nothing
response.write <script language=javascript><!--
alert('แก้ไขผู้ดูแลเว็บไซต์สำเร็จ!'); changeAdminFlag('ผู้ดูแลเว็บไซต์'); location.replace('AdminList.asp');
// --></สคริปต์>
มิฉะนั้น 'ดึงข้อมูลผู้ดูแลระบบ
ถ้าผลลัพธ์ = แก้ไขแล้ว
ชุด rs = server.createobject (adodb.recordset)
sql=select * จาก Ameav_Admin โดยที่ ID=& ID
rs.open sql,conn,1,1
ชื่อผู้ดูแลระบบ=rs(ชื่อผู้ดูแลระบบ)
ทำงาน=rs(ทำงาน)
ชื่อผู้ใช้=rs(ชื่อผู้ใช้)
Purview=rs(AdminPurview)
อธิบาย=rs(อธิบาย)
RS.ปิด
ตั้งค่า rs=nothing
สิ้นสุดถ้า
สิ้นสุดถ้า
จบย่อย
-