การคัดลอกรหัสมีดังนี้:
rem == บทความก่อนหน้า ==
rem ============================================================================================
rem = พารามิเตอร์คำอธิบาย:
REM = ID ปัจจุบัน PID, PRAME: คอลัมน์ลดลง (เช่นตาราง Web_News ทั่วไป, ฟิลด์มักจะ wn _ ** และกฎแสดงถึง WN)
rem = ptable (ตารางก่อนตารางตัวอย่างเช่นชื่อตารางทั่วไปคือ: ชื่อไซต์ name_table (Shenzhe_News) ptable: หมายถึงเซินเจเฮ)
rem = คำอธิบาย: การใช้ระบบการตั้งชื่อด้านบนสามารถทำให้กระบวนการนี้เป็นเรื่องธรรมดา
rem ============================================================================================================
FunctionGetPre (PID, Prame, Ptable)
id = prame & "_ id"
title = prame & "_ title"
table = "City _" & ptable
url = "show _" & ptable
sql = "selecttop1" & id & "," & title & "จาก" & table & "where" & id & "<" & pid & "orderby" & id & "desc"
setRs = conn.execute (SQL)
ifrs.eoforrs.bofthen
pre = "บทความก่อนหน้า: ไม่มีข่าวอีกต่อไป"
อื่น
pre = "<ahref =" & url & ". asp?" & id & "=" & rs (0) & ">" & rs (1) & "</a>" "
endif
getPre = ก่อน
endfunction
REM = บทความถัดไป
rem ================
rem = ความหมายของพารามิเตอร์เหมือนเดิม
rem ===========
FunctionGetNext (NID, NRAME, NTABLE)
id = nrame & "_ id"
title = nrame & "_ title"
table = "City _" & nable
url = "show _" & ntable
sql = "selecttop1" & id & "," & title & "จาก" & table & "where" & id & ">" & nid & "orderby" & id & "" & id & "" "
setRs = conn.execute (SQL)
ifrs.eoforrs.bofthen
nnext = "ถัดไป: ไม่มีข่าว"
อื่น
nnext = "<ahref =" & url & ". asp?" & id & "=" & rs (0) & "> บทความถัดไป:" & rs (1) & "</a>"
endif
getNext = nnext
endfunction
รหัสการใช้งาน:
แม้แต่ฐานข้อมูลก็มีตาราง:
city_activecity_datecity_note
City_Active Main Fields คือ: CA_ID, CD_TITLE
ฟิลด์หลักของ City_date คือ: CD_ID, CD_TITLE
City_Note Main Fields คือ: CN_ID, CN_TITLE
วิธีนี้คุณสามารถอ้างได้:
อ้างบทความก่อนหน้าบทความถัดไปใน show_note.asp? cn_id = 4
<%= getPre (cn_id, "cn", "note")%> 'บทความก่อนหน้า
<%= getNext (cn_id, "cn", "note")%> 'บทความถัดไป