Ниже приведено фрагмент кода: <% '=================================================================== 'Имя процесса: ShowCorrelative 'Функция: показать связанные статьи 'Параметры: articlenum ---- Сколько статей отображается больше всего 'Titlelen ---- Количество персонажей в заголовке, один китайский персонаж = два английских персонажа '=================================================================== Sub Showcorrelave (Articlenum, Titlelen) Dim Rs, SQL Dim Strkey, Arrkey, я Если articlenum> 0 и articlenum <= 100 тогда SQL = Select Top & Articlenum еще SQL = выберите Top 5 конец, если 'Используйте |. Strkey = mid (rs (key), 2, len (rs (key))-2) Если instr (strkey, |)> 1, тогда Arrkey = split (strkey, |) strkey = ((ключ, как '% | & arrkey (0) и |%') для i = 1 до Ubound (Arrkey) Strkey = strkey & или (ключ, как '% | & arrkey (i) & |%') следующий Strkey = strkey &) еще Strkey = (ключ, как '% | & strkey & |%') конец, если Sql = & id, title, автор, дата, Hits, l.layoutfilename из статьи A внутреннего макета соединения L на l.layoutid = layoutid, где удален = false и stoder = true nd & strkey & and id <> & id & order ID Desc Установите rs = const.execute (sql) Если Titlelen <0 или titlelen> 255, Tintlelen = 50 Если rs.bof и rs.eof, то response.write не имеет связанных статей еще делать, пока не rs.eof Response.write <a href = '& rs (layoutfilename) &? Время: & RS (Date) & VBCRLF & Clicks: & RS (Hits) & '> & GotTopic (RS (TITE), TITLELEN) & </a> Rs.movenext петля конец, если Rs.close Установить RS = ничего Конец суб %> |
После определения этого процесса, затем замените марку шаблона в файле статической страницы
(Например: htmlmake.asp)
| Ниже приведено фрагмент кода: Pencat = reply (pencat, [xianghuanlist], Showcorrelative (5,20))) |
Это генерирует статическую страницу со списком связанных статей!
Красная часть - это оператор ядра, который может быть пересажен только.
Ниже приведено фрагмент кода: <% '=================================================================== 'Имя процесса: ShowCorrelative 'Функция: показать связанные статьи 'Параметры: articlenum ---- Сколько статей отображается больше всего 'Titlelen ---- Количество персонажей в заголовке, один китайский персонаж = два английских персонажа '=================================================================== Sub Showcorrelave (Articlenum, Titlelen) Dim Rs, SQL Dim Strkey, Arrkey, я Если articlenum> 0 и articlenum <= 100 тогда SQL = Select Top & Articlenum еще SQL = выберите Top 5 конец, если 'Используйте |. Strkey = mid (rs (key), 2, len (rs (key))-2) Если instr (strkey, |)> 1, тогда Arrkey = split (strkey, |) strkey = ((ключ, как '% | & arrkey (0) и |%') для i = 1 до Ubound (Arrkey) Strkey = strkey & или (ключ, как '% | & arrkey (i) & |%') следующий Strkey = strkey &) еще Strkey = (ключ, как '% | & strkey & |%') конец, если Sql = & id, title, автор, дата, Hits, l.layoutfilename из статьи A внутреннего макета соединения L на l.layoutid = layoutid, где удален = false и stoder = true nd & strkey & and id <> & id & order ID Desc Установите rs = const.execute (sql) Если Titlelen <0 или titlelen> 255, Tintlelen = 50 Если rs.bof и rs.eof, то response.write не имеет связанных статей еще делать, пока не rs.eof Response.write <a href = '& rs (layoutfilename) &? Время: & RS (Date) & VBCRLF & Clicks: & RS (Hits) & '> & GotTopic (RS (TITE), TITLELEN) & </a> Rs.movenext петля конец, если Rs.close Установить RS = ничего Конец суб %> |
После определения этого процесса, затем замените марку шаблона в файле статической страницы
(Например: htmlmake.asp)
| Ниже приведено фрагмент кода: Pencat = reply (pencat, [xianghuanlist], Showcorrelative (5,20))) |
Это генерирует статическую страницу со списком связанных статей!
Красная часть - это оператор ядра, который может быть пересажен только.