La copia del código es la siguiente:
Rem == Artículo anterior ==
Rem =========================================================================================================================================
REM = Descripción del parámetro:
REM = ID actual PID, Prame: la columna se elimina actualmente (como la tabla General Web_News, el campo generalmente es WN _ **, y la regla representa WN)
Rem = ptable (tabla ante la tabla. Por ejemplo, el nombre general de la tabla es: nombre de sitio_table name (shenzhe_news) ptable: significa shenzhe)
REM = Descripción: el uso de la nomenclatura anterior puede hacer que este proceso sea común
Rem ==================================================================================
FunctetPre (PID, Prame, Ptable)
id = Prame & "_ id"
Title = Prame & "_ Título"
table = "Ciudad _" y Ptable
url = "show _" & ptable
sql = "selectTop1" & id & "," & title & "from" & table & "where" & id & "<" & pid & "orderby" & id & "DESC"
setrs = conn.execute (SQL)
Ifrs.eoforrs.bofthen
pre = "Artículo anterior: ya no hay noticias"
Demás
pre = "<ahref =" & url & ". asp?" & id & "=" & rs (0) & ">" & rs (1) y "</a>" ""
Endif
Getpre = pre
Función final
REM = Artículo siguiente
Rem ===============
Rem = El significado del parámetro es el mismo que antes
Rem ===========
FunctetNext (nid, nrame, ntable)
id = nrame y "_ id"
title = nrame & "_ title"
tabla = "Ciudad _" y Nable
url = "show _" & ntable
sql = "selectTop1" & id & "," & title & "from" & table & "where" & id & ">" & nid & "orderby" & id & "" & id & "" ""
setrs = conn.execute (SQL)
Ifrs.eoforrs.bofthen
nNext = "Siguiente: no hay noticias"
Demás
nnext = "<ahref =" & url & ". asp?" & id & "=" & rs (0) & "> Artículo siguiente:" & rs (1) y "</a>"
Endif
GetNext = NNEXT
Función final
Código de implementación:
Incluso la base de datos tiene tablas:
City_Activecity_DateCity_Note
Los campos principales de City_Active son: CA_ID, CD_TITLE
Los campos principales de City_Date son: CD_ID, CD_TITLE
Los campos principales de City_Note son: CN_ID, CN_TITLE
De esta manera puedes citar:
Cita el artículo anterior del artículo anterior en show_note.asp? Cn_id = 4
<%= GetPre (CN_ID, "CN", "Nota")%> 'Artículo anterior
<%= GetNext (cn_id, "cn", "nota")%> 'siguiente artículo