Кода -копия выглядит следующим образом:
Rem == Предыдущая статья ==
Rem =====================================================================================
Rem = параметр Описание:
REM = PID Current ID, PRAME: столбец в настоящее время отбрасывается (например, общая таблица Web_News, поле обычно состоит из _ **, а правило представляет wn)
Rem = ptable (таблица перед таблицей.
REM = Описание: Использование вышеуказанной номенклатуры может сделать этот процесс общим
Rem ===================================================================================
Functiongetpre (pid, prame, ptable)
id = prame & "_ id"
title = prame & "_ title"
Таблица = "Город _" & Ptable
url = "show _" & ptable
sql = "selecttop1" & id & "," & title & "from" & table & "где" & id & "<" & pid & "orderby" & id & "desc"
setrs = conn.execute (sql)
Ifrs.eoforrs.bofthen
pre = "Предыдущая статья: больше нет новостей"
Еще
pre = "<ahref =" & url & ". asp?" & id & "=" & rs (0) & ">" & rs (1) & "</a>" "
Эндиф
GetPre = pre
Конечная функция
Rem = следующая статья
Rem ===============
Rem = значение параметра такое же, как и раньше
Rem ===========
Functiongetnext (nid, nrame, ntable)
id = nrame & "_ id"
title = nrame & "_ title"
Таблица = "Город _" & Nable
url = "show _" & ntable
sql = "selecttop1" & id & "," & title & "from" & table & "где" & id & ">" & nid & "orderby" & id & "" & id & "" ""
setrs = conn.execute (sql)
Ifrs.eoforrs.bofthen
nnext = "Далее: нет новостей"
Еще
nnext = "<ahref =" & url & ".
Эндиф
GetNext = nnext
Конечная функция
Код реализации:
Даже в базе данных есть таблицы:
city_activecity_datecity_note
City_active Основные поля: CA_ID, CD_TITLE
Главные поля City_date: CD_ID, CD_TITLE
City_note Основные поля: CN_ID, CN_TITLE
Таким образом, вы можете процитировать:
Цитируйте предыдущую статью в следующей статье в Show_note.asp? CN_ID = 4
<%= GetPre (cn_id, "cn", "note")%> 'Предыдущая статья
<%= GetNext (cn_id, "cn", "note")%> 'Следующая статья