Прежде всего, я хотел бы поблагодарить V37 Banzhu за помощь мне. Это решение решает проблему отображения «предыдущей статьи следующей статьи» и связанных статей и разместите ее для всех, чтобы поделиться.
Я видел пост, который я использовал ID+1 и ID-1, чтобы судить «предыдущую статью и следующую статью». Во время использования я нашел проблему: при удалении статьи в базе данных идентификатор будет прерывистым. Если для суждения используются ID+1 и ID-1, запись не будет найдена. В этой программе идентификатор следующей статьи обнаруживается путем запроса первой записи, превышающей текущий идентификатор, и первую запись, меньшую, чем текущий идентификатор, чтобы найти идентификатор предыдущей статьи. Таким образом, даже если идентификатор не является непрерывным, его можно отображать нормально.
Что касается отображения связанных статей, добавьте поле Boardid в таблицу данных, чтобы отличить различные столбцы статьи. Добавьте номер Boardid каждый раз, когда вы добавляете новую статью. При отображении статьи запрашивайте базу данных в соответствии с Boardid, чтобы отобразить соответствующие статьи.
Поля в статьях таблицы данных включают ID, Boardid, Title, Content, Author, AddTime
Кода -копия выглядит следующим образом:
<!-Запуск программы->
'Определите функцию Thenext, чтобы найти идентификатор следующей статьи. Если текущая запись уже является последней записью, выходной текст "нет"
<%
functionThenext
newrs = server.createObject ("adodb.recordset")
sql = "selectTop1*fromarticlesIde>" & a1 & "orderbyid"
setNewrs = conn.execute (sql)
ifnewrs.eofthen
response.write ("не")
еще
a2 = newrs ("id")
response.write ("<ahref = 'view.asp? id =" & a2 & "'> Следующая статья </a>")
эндиф
конечная функция
%>
'Определите функцию головы, чтобы найти идентификатор следующей статьи. Если текущая запись уже является первой записью, выходной текст "нет"
<%
функционировать
Headrs = server.createObject ("adodb.recordset")
sql = "selecttop1*fromarticleswareid <" & a1 & "orderbyiddesc"
setheadrs = conn.execute (sql)
ifheadrs.eofthen
response.write ("не")
еще
a0 = headrs ("id")
response.write ("<ahref = 'view.asp? id =" & a0 & "'> предыдущая статья </a>")
эндиф
конечная функция
%>
'Файл подключения к базе данных
<!-#includefile = "conn.asp"->
'Получите пройденное идентификатор, чтобы отобразить автора заголовка и содержание статьи
<%
id = request ("id")
SQL = "SELECT*FUTHARTICLESHIWID =" & id
setrs = conn.execute (sql)
%>
<%boardid = rs ("boardid")%>
<title> Система статьи-<%= 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 = "Left">
<tablewidth = "557" border = "0" cellpacing = "5" cellpadding = "4" align = "Left">