En primer lugar, me gustaría agradecer a V37 Banzhu por ayudarme. Esta solución resuelve el problema de mostrar el "artículo anterior del artículo anterior" y artículos relacionados, y publicarla para que todos compartan.
Vi una publicación que usé ID+1 e ID-1 para juzgar el "artículo anterior y el próximo artículo". Durante el uso, encontré un problema: al eliminar un artículo en la base de datos, la ID será discontinua. Si ID+1 e ID-1 se usan para juzgar, el registro no se encontrará. En este programa, la ID del siguiente artículo se encuentra consultando el primer registro más grande que el ID actual, y el primer registro más pequeño que la ID actual para encontrar la ID del artículo anterior. De esta manera, incluso si la ID no es continua, se puede mostrar normalmente.
En cuanto a la visualización de artículos relacionados, agregue un campo BoardId en la tabla de datos para distinguir diferentes columnas de artículos. Agregue un número de Boardid cada vez que agregue un nuevo artículo. Al mostrar un artículo, consulte la base de datos de acuerdo con el BoardId para mostrar los artículos relevantes.
Los campos en los artículos de la tabla de datos incluyen ID, BoardId, Título, Contenido, Autor, Addtime
La copia del código es la siguiente:
<!-Inicio del programa->
'Defina una función de texto para encontrar la ID del siguiente artículo. Si el registro actual ya es el último registro, el texto de salida "no" es
<%
functionthEnext
newrs = server.createObject ("ADODB.Recordset")
SQL = "SELECTTOP1*FromARTiclesWhereID>" & A1 & "OrderByid"
setNewrs = conn.execute (SQL)
ifnews.eofthen
Response.write ("no")
demás
a2 = newrs ("id")
Response.write ("<ahref = 'ver.asp? id =" & a2 & "'> Artículo siguiente </a>")
endif
Función final
%>
'Defina una función de la cabeza para encontrar la identificación del siguiente artículo. Si el registro actual ya es el primer registro, el texto de salida "no" es
<%
functhehead
Headrs = Server.CreateObject ("ADODB.Recordset")
sql = "selectTop1*fromarticles en lugar de las zanjas <" & a1 y "ordenbyiddesc"
setheadrs = Conn.execute (SQL)
ifheadrs.eofthen
Response.write ("no")
demás
A0 = Headrs ("ID")
Response.write ("<ahref = 'ver.asp? id =" & a0 & "'> Artículo anterior </a>")
endif
Función final
%>
'Archivo de conexión de base de datos
<!-#includeFile = "conn.asp"->
'Obtenga la identificación aprobada para mostrar el autor del título y el contenido del artículo
<%
id = request ("ID")
sql = "select*fromarticles whereID =" & id
setrs = conn.execute (SQL)
%>
<%BoardId = RS ("BoardId")%>
<title> Sistema de artículo-<%= RS ("Title")%> </title> <BodyleftMargin = "0" topmargin = "0">
<!-#includeFile = "top.asp"->
<%
Dowhilenotrs.eof
%>
<tableWidth = "773" border = "0" cellPacing = "0" cellPadding = "0" align = "Center">
<tr>
<tdwidth = "576" align = "izquierda">
<tableWidth = "557" border = "0" cellPacing = "5" cellPadding = "4" align = "izquierda">