ย่อหน้าต่อไปนี้เป็นรหัสเพจพื้นฐาน:
<% SQL = "เลือก……………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………… res = sever.createObject (" adodb.recordset "กำหนดจำนวนการบันทึกทั้งหมด จำนวนหน้าสามารถแบ่งออกเป็นหน้าทั้งหมด = คำขอ QueryString ("หน้า") 'จำนวนหน้าผ่านเบราว์เซอร์' ถ้าคำสั่งเป็นของกระบวนการแก้ไขปัญหาพื้นฐานหาก isempty (หน้า) หรือ cint (หน้า) <1 หน้า = 1 cint (หน้า)> allpages ต้องการเอาท์พุทที่นี่…………… < % หน้า = หน้า - 1 rs.movenext loop represign.write ("ไม่มีเนื้อหาในฐานข้อมูล!") สิ้นสุดถ้า rs.close set rs = nothing %>ระบบได้แสดงข้อมูลแล้ว มาดูคำจำกัดความของฟังก์ชั่นการปนเปื้อนที่กล่าวถึงในครั้งนี้
<% หน้าย่อย (purl) dim eurl txts = request.serverVariables ("url") txts = ซ้าย (txts, instrrev (txts, "/", len (txts))-1) eurl = "http: //"; & request.serverVariables ("server_name") & txts สำหรับ i = 1 ถึง allpages txt = "" txt = "<strong>" txt = txt & "<a href =" & eurl & purl & "page =" & i & ">" ถ้า i = cint (หน้า) cint (หน้า) txt = txt & "</font>" txt = txt & "</a> ∥/strong>" response.write (txt) Next End Sub %>บันทึกรหัสฟังก์ชั่นการจัดระเบียบด้านบนคัดลอกลงในไฟล์ ASP ใช้รวมเพื่อแนะนำในหน้าคุณต้องใช้เรียกมันเมื่อใดก็ตามที่โทร ("/ชื่อไฟล์ที่คุณเรียกว่า") ก็โอเค ตัวอย่างเช่นหากคุณต้องการเรียกมันในหน้าข่าวของฉันมันคือ <%โทร ("/news.asp?")%>
สิ่งที่เราเพิ่งเห็นมี จำกัด ซึ่งหมายความว่าในรหัสชิ้นแรกยกเว้นเนื้อหาการสืบค้น SQL และเนื้อหาเอาต์พุตตัวแปรอื่น ๆ ที่ประกาศชุดบันทึกไม่สามารถเปลี่ยนแปลงได้ไม่เช่นนั้นพวกเขาจะไม่สามารถเรียกใช้งานได้ ในความเป็นจริงโปรแกรมนี้ไม่เกี่ยวข้อง สิ่งที่สำคัญที่สุดคือฟังก์ชั่นการปนเปื้อนนี้สามารถเรียกได้ในใบ ASP ใด ๆ