Salinan kode adalah sebagai berikut:
Rem == Artikel sebelumnya ==
Rem ========================================================================================================
Rem = Parameter Deskripsi:
REM = PID saat ini ID, Prame: kolom saat ini dijatuhkan (seperti tabel Web_News umum, bidang biasanya wn _ **, dan aturannya mewakili WN)
Rem = ptable (tabel sebelum tabel. Misalnya, nama tabel umum adalah: nama situs_table nama (shenzhe_news) ptable: berarti shenzhe)
Rem = Deskripsi: Menggunakan nomenklatur di atas dapat membuat proses ini umum
Rem ============================================================================================================
FunctionGetPre (PID, Prame, Ptable)
id = prame & "_ id"
title = prame & "_ title"
Table = "City _" & Ptable
url = "show _" & ptable
SQL = "SELECTTOP1" & ID & "," & Title & "From" & Table & "Where" & Id & "<" & Pid & "Orderby" & ID & "Desc"
setrs = conn.execute (sql)
Ifrs.eoforrs.bofthen
pre = "artikel sebelumnya: tidak ada berita lagi"
Kalau tidak
pre = "<ahref =" & url & ". asp?" & id & "=" & rs (0) & ">" & rs (1) & "</a>" "
Endif
Getpre = pra
Fungsi endfungsi
Rem = artikel berikutnya
Rem ================
Rem = arti parameter sama seperti sebelumnya
Rem ===========
FunctionGetNext (nid, nrame, ntable)
id = nRame & "_ id"
title = nRame & "_ title"
Table = "City _" & Nable
url = "show _" & ntable
SQL = "SELECTTOP1" & ID & "," & Title & "From" & Table & "Where" & Id & ">" & Nid & "Orderby" & Id & "" "& Id &" "" "
setrs = conn.execute (sql)
Ifrs.eoforrs.bofthen
nnext = "Next: No News"
Kalau tidak
nnext = "<ahref =" & url & ". asp?" & id & "=" & rs (0) & "> Artikel berikutnya:" & rs (1) & "</a>"
Endif
GetNext = nnext
Fungsi endfungsi
Kode Implementasi:
Bahkan database memiliki tabel:
city_activecity_datecity_note
Bidang utama City_active adalah: CA_ID, CD_TITLE
Bidang utama City_Date adalah: CD_ID, CD_TITLE
Bidang utama City_note adalah: CN_ID, CN_TITLE
Dengan cara ini Anda dapat mengutip:
Kutip artikel sebelumnya artikel berikutnya di show_note.asp? Cn_id = 4
<%= Getpre (cn_id, "cn", "note")%> 'artikel sebelumnya
<%= GetNext (cn_id, "cn", "note")%> 'artikel berikutnya