Primeiro de tudo, gostaria de agradecer ao V37 Banzhu por me ajudar. Esta solução resolve o problema de exibir "Artigo anterior no próximo artigo" e artigos relacionados e publicá -la para que todos compartilhem.
Vi um post que usei o ID+1 e o ID-1 para julgar o "artigo anterior e o próximo artigo". Durante o uso, encontrei um problema: ao excluir um artigo no banco de dados, o ID será descontínuo. Se ID+1 e ID-1 forem usados para julgar, o registro não será encontrado. Neste programa, o ID do próximo artigo é encontrado consultando o primeiro registro maior que o ID atual e o primeiro registro menor que o ID atual para encontrar o ID do artigo anterior. Dessa forma, mesmo que o ID não seja contínuo, ele pode ser exibido normalmente.
Quanto à exibição de artigos relacionados, adicione um campo Boardid na tabela de dados para distinguir diferentes colunas de artigos. Adicione um número BoardID sempre que adicionar um novo artigo. Ao exibir um artigo, consulte o banco de dados de acordo com o BoardId para exibir os artigos relevantes.
Os campos nos artigos da tabela de dados incluem ID, BoardId, título, conteúdo, autor, addtime
A cópia do código é a seguinte:
<!-Iniciar do programa->
'Defina uma função ThenExt para encontrar o ID do próximo artigo. Se o registro atual já for o último registro, o texto de saída "não" é
<%
functionThenext
newrs = server.createObject ("adodb.recordset")
SQL = "SelectTop1*FromArticleswhered>" & A1 & "OrderById"
setNewrs = Conn.Execute (SQL)
ifnewrs.eofthen
Response.write ("não")
outro
a2 = newrs ("id")
Response.Write ("<ahref = 'View.asp? Id =" & a2 & "'> Próximo artigo </a>")
endif
Função final
%>
Defina uma função de cabeça para encontrar o ID do próximo artigo. Se o registro atual já for o primeiro registro, o texto de saída "não" é
<%
função a cabeça de cabeça
headrs = server.createObject ("adodb.recordset")
SQL = "SelectTop1*FromArticleswhered <" & a1 & "OrderByidDesc"
setheadrs = Conn.Execute (SQL)
IfHeadrs.eofthen
Response.write ("não")
outro
A0 = Headrs ("ID")
Response.Write ("<ahref = 'View.asp? Id =" & a0 & "'> artigo anterior </a>")
endif
Função final
%>
'Arquivo de conexão do banco de dados
<!-#incluirfile = "Conn.asp"->
'Obtenha o ID aprovado para exibir o autor do título e o conteúdo do artigo
<%
id = request ("id")
sql = "Selecione*FromArticleswhered =" & id
setrs = Conn.Execute (SQL)
%>
<%BoardId = RS ("BoardId")%>
<title> Sistema de artigo-<%= rs ("title")%> </title> <bodyleftmargin = "0" topmargin = "0">
<!-#incluirfile = "top.asp"->
<%
Dowhilenotrs.eof
%>
<tabelaWidth = "773" Border = "0" CellPacing = "0" CellPadding = "0" align = "Center">
<tr>
<tdwidth = "576" align = "esquerda">
<tabelaWidth = "557" Border = "0" CellPacing = "5" CellPadding = "4" align = "Left">