เราได้พูดคุยเกี่ยวกับโปรแกรมการปนเปื้อนกับคุณก่อนหน้านี้ ที่นี่เราให้บริการคุณและวิเคราะห์มันและคุณอาจได้รับผลกำไรใหม่
การคัดลอกรหัสมีดังนี้:
-
'โปรแกรมต่อไปนี้เป็นส่วนหนึ่งของรหัสของระบบบทความเทคโนโลยีการเขียนโปรแกรมในเว็บไซต์ของฉันโดยมุ่งเน้นไปที่การเน้นการแบ่งหน้าดังนั้นรหัสที่ไร้ประโยชน์อื่น ๆ จะถูกล้างคุณสามารถแก้ไขและนำไปใช้ได้
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>"