A cópia do código é a seguinte:
Rem == Artigo anterior ==
Rem ========================================================================================
REM = Descrição do parâmetro:
REM = ID atual do PID, PRAME: A coluna é atualmente descartada (como a tabela General Web_News, o campo geralmente é wn _ **, e a regra representa wn)
Rem = Ptable (tabela antes da tabela. Por exemplo, o nome da tabela geral é: Nome do site_table Nome (shenzhe_news) Ptable: significa Shenzhe)
REM = Descrição: Usando a nomenclatura acima pode tornar esse processo comum
Rem =====================================================================================
FunctionGetPre (PID, PRAME, PTABLE)
id = prame & "_ id"
título = prame & "_ título"
tabela = "City _" & Ptable
url = "mostre _" & ptable
SQL = "SelectTop1" & Id & "," & Title & "From" & Table & "Where" & Id & "<" & Pid & "Orderby" & Id & "Desc"
setrs = Conn.Execute (SQL)
Ifrs.eoFords.bofthen
pre = "Artigo anterior: sem mais notícias"
Outro
pre = "<ahref =" & url & ". Asp?" & id & "=" & rs (0) & ">" & rs (1) & "</a>" "
Endif
Getpre = pré
Função final
REM = Próximo artigo
Rem ===============
Rem = O significado do parâmetro é o mesmo de antes
Rem ===========
FunctionGetNext (nid, nrame, ntable)
id = nrame & "_ id"
title = nrame & "_ título"
tabela = "City _" & nable
url = "Mostrar _" & ntable
SQL = "SelectTop1" & Id & "," & Title & "From" & Table & "Where" & Id & ">" & nid & "OrderBy" & Id & "" "& Id &" ""
setrs = Conn.Execute (SQL)
Ifrs.eoFords.bofthen
nNext = "Next: sem notícias"
Outro
nNext = "<ahref =" & url & ". Asp?" & id & "=" & rs (0) & "> Próximo artigo:" & rs (1) & "</a>"
Endif
GetNext = nNext
Função final
Código de implementação:
Até o banco de dados tem tabelas:
city_activecity_datecity_note
City_active os campos principais são: CA_ID, CD_TITLE
City_date Os campos principais são: CD_ID, CD_TITLE
City_note Os campos principais são: cn_id, cn_title
Dessa forma, você pode citar:
Cite o artigo anterior Próximo artigo em show_note.asp? Cn_id = 4
<%= Getpre (cn_id, "cn", "nota")%> 'artigo anterior
<%= GetNext (cn_id, "cn", "nota")%> 'Próximo artigo