โปรแกรมเพจคลาสสิคที่สมบูรณ์โปรแกรม + ความคิดเห็น

เราได้พูดคุยเกี่ยวกับโปรแกรมการปนเปื้อนกับคุณก่อนหน้านี้ ที่นี่เราให้บริการคุณและวิเคราะห์มันและคุณอาจได้รับผลกำไรใหม่

การคัดลอกรหัสมีดังนี้:

-

'โปรแกรมต่อไปนี้เป็นส่วนหนึ่งของรหัสของระบบบทความเทคโนโลยีการเขียนโปรแกรมในเว็บไซต์ของฉันโดยมุ่งเน้นไปที่การเน้นการแบ่งหน้าดังนั้นรหัสที่ไร้ประโยชน์อื่น ๆ จะถูกล้างคุณสามารถแก้ไขและนำไปใช้ได้

onerrorresumenext 'ป้องกันผู้ใช้จากการแก้ไข URL ที่จะทำให้เกิดข้อผิดพลาด

ifrequest.QueryString ("หน้า") = "" thenPage = 1: อื่น ๆ : หน้า = cint (request.querystring ("หน้า")) '' จำนวนหน้าไปยังหน้า URL =?

setLink1 = server.createObject ("adodb.connection") 'ฐานข้อมูลการเชื่อมต่อ

link1.open "ผู้ให้บริการ = microsoft.jet.oledb.4.0; dataSource =" & server.mappath ("ฐานข้อมูล 1.MDB"))

setRs = server.createObject ("adodb.recordset"))

Rs.Open "Select*จากตารางที่ 1", Link1,1,1 'ประโยคเหล่านี้กำหนดเคอร์เซอร์ของชุดระเบียนจำนวนระเบียนที่เก็บไว้ต่อหน้าและการตั้งค่าหน้าปัจจุบันซึ่งสำคัญมาก

Rs.Pagesize = 13

rs.absolutePage = หน้า

iferr.number <> 0 แล้ว 'ป้องกันผู้ใช้จากการปรับเปลี่ยน URL และฐานข้อมูลโดยไม่มีข้อผิดพลาดในการบันทึก

"ข้อผิดพลาดข้อผิดพลาดเกิดขึ้น" Response.write

Response.end

endif

-

<basetarget = '_ blank'> <!-ทำให้เนื้อหาปรากฏขึ้นในหน้าต่างใหม่->

<TableBorder = 1>

-

fori = 0tors.pagesize-1 'แสดงเนื้อหาข้อมูลเฉพาะ i+(หน้า*13-13) +1 โซลูชันนี้แสดงหมายเลขเฉพาะหลังจากการเพจ

ifrs.eofthenexitfor

Response.write "<tr> <td>" & i+(หน้า*13-13) +1 & ": <ahref = '" & rs ("เชื่อมต่อ") & "'> & rs (" ผู้แต่ง ") &" </a> </td> </tr> "

Rs.Movenext

ต่อไป

-

<tr> <tdalign = ขวา>

<basetarget = '_ top'> <!-ทำให้การเชื่อมต่อเพจไม่ปรากฏขึ้นในหน้าต่างใหม่ ต่อไปนี้เป็นโปรแกรมที่สมบูรณ์ของโปรแกรมการเพจที่สมบูรณ์แบบที่ฉันต้องการมุ่งเน้น คุณสามารถแก้ไขได้ตามต้องการ->

-

pagelen = split (request.serverVariables ("query_string"), "&") 'รับ URL พารามิเตอร์หลังจาก URL หรือไม่? ตัวเลข

ifubound (pagelen) <1then'if url เป็นประเภท xxx.asp? page = 1 หรือ xxx.asp ใช้วิธีการปนเปื้อนมาตรฐาน

ifpage> 1thenResponse.write "<ahref = 'a.asp? page = 1'> home </a> <ahref = 'a.asp? page =" & page-1 & "'> หน้าก่อนหน้า </a>": ELSE: Response.Write "HomePage"

ifpage <rs.pageCountThenResponse.write "<ahref = 'a.asp? page =" & หน้า+1 & "'> หน้าถัดไป </a> <ahref = 'a.asp? page =" & rs.pagecount & "'> หน้าสุดท้าย </a>"

fori = 1tors.pagecount

ifi = pagethenResponse.writei & "": else: response.write "<ahref = 'a.asp? page =" & i & "'>" & i & "</a>"