La copie de code est la suivante:
REM == Article précédent ==
Rem====================================================================================
REM = Paramètre Description:
REM = PID Current ID, Prame: la colonne est actuellement supprimée (comme la table General Web_news, le champ est généralement wn _ **, et la règle représente wn)
REM = PTABLE (TABLE AVANT LA TABLE. Par exemple, le nom de la table générale est: Nom_Table Nom (Shenzhe_news) PTABLE: signifie Shenzhe)
REM = Description: L'utilisation de la nomenclature ci-dessus peut rendre ce processus commun
Rem=================================================================================
FunctionGetPre (PID, Prame, Ptable)
id = prrame & "_ id"
Title = Prame & "_ Title"
table = "City _" & PTable
url = "show _" & ptable
sql = "selecttop1" & id & "," & title & "from" & table & "where" & id & "<" & pid & "orderby" & id & "desc"
setrs = conn.excute (sql)
Ifrs.eoforrs.bofthen
pre = "Article précédent: plus de nouvelles"
Autre
pre = "<ahref =" & url & ". asp?" & id & "=" & rs (0) & ">" & rs (1) & "</a>" "
Endire
GetPre = pré
Finition de fin
REM = article suivant
Rem =================
Rem = la signification du paramètre est la même qu'avant
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.excute (sql)
Ifrs.eoforrs.bofthen
nnext = "Suivant: pas de nouvelles"
Autre
nnext = "<ahref =" & url & ". asp?" & id & "=" & rs (0) & "> Article suivant:" & rs (1) & "</a>"
Endire
GetNext = nnext
Finition de fin
Code d'implémentation:
Même la base de données a des tables:
city_activecity_datecity_note
City_active Les champs principaux sont: CA_ID, CD_TITLE
City_Date Les champs principaux sont: CD_ID, CD_TITLE
City_Note Les champs principaux sont: CN_ID, CN_TITLE
De cette façon, vous pouvez citer:
Citer l'article précédent de l'article suivant dans show_note.asp? Cn_id = 4
<% = Getpre (cn_id, "cn", "note")%> 'Article précédent
<% = Getnext (cn_id, "cn", "note")%> 'Article suivant