/new/render_article_list.asp

https://github.com/akabeko/fusionexcel · ASP · 214 lines · 191 code · 20 blank · 3 comment · 27 complexity · 9a35d41f67275330b816262392aff54e MD5 · raw file

  1. <%
  2. ' Dependancies: The parent file must included libraries before run this files '
  3. Dim OFFSET, lang, category_code
  4. Dim objXml, lang_index
  5. Dim prev_page, page, next_page
  6. ' 1 - EN; 2 - BM; 3 - CHI '
  7. lang = base_lang
  8. ' 1 - News & Event, 2 - Charities, 3 - Sponsorship '
  9. category_code = 1
  10. lang_index = lang
  11. page = 1
  12. if Request("category_code") and IsNumeric(Request("category_code")) then
  13. category_code = CInt(Request("category_code"))
  14. end if
  15. if Request("page") <> "" and IsNumeric(Request("page")) then
  16. page = CInt(Request("page"))
  17. end if
  18. prev_page = page
  19. next_page = page
  20. Dim articlesObj, item
  21. set objXml = GetIndexedArticles(category_code)
  22. set articlesObj = objXml.selectNodes("articles/article")
  23. Dim firstArticleIndex
  24. %>
  25. <tr>
  26. <td width="180" valign="top">
  27. <!-- Siderbar Start -->
  28. <%
  29. Dim limit, header, sidebar_type
  30. header = false
  31. if category_code = 1 or category_code = 2 or category_code = 4 or category_code = 8 then
  32. limit = 20
  33. sidebar_type = 1
  34. else
  35. limit = 999999
  36. sidebar_type = 2
  37. end if
  38. if (category_code >= 32 and category_code <= 128) or category_code = 256 then
  39. header = true
  40. end if
  41. %>
  42. <%
  43. if category_code = 256 or (category_code >= 4096 and category_code <= 16384) then
  44. Dim obj, artObj
  45. set obj = GetIndexedArticles(256)
  46. set artObj = obj.selectNodes("articles/article")
  47. Call render_sidebar(artObj, 256, 2, false, 999999)
  48. set obj = GetIndexedArticles(4096)
  49. set artObj = obj.selectNodes("articles/article")
  50. Call render_sidebar(artObj, 4096, 2, false, 999999)
  51. set obj = GetIndexedArticles(8192)
  52. set artObj = obj.selectNodes("articles/article")
  53. Call render_sidebar(artObj, 8192, 2, false, 999999)
  54. set obj = GetIndexedArticles(16384)
  55. set artObj = obj.selectNodes("articles/article")
  56. Call render_sidebar(artObj, 16384, 2, false, 999999)
  57. elseif category_code = 16 then
  58. Call render_sidebar(articlesObj, category_code, sidebar_type, header, limit)
  59. set obj = GetIndexedArticles(8)
  60. set artObj = obj.selectNodes("articles/article")
  61. Call render_sidebar(artObj, 8, 2, false, 999999)
  62. else
  63. Call render_sidebar(articlesObj, category_code, sidebar_type, header, limit)
  64. end if
  65. %>
  66. <!-- Siderbar end -->
  67. </td>
  68. <td width="10" valign="top">&nbsp;</td>
  69. <td width="740" valign="top">
  70. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  71. <tr>
  72. <td>
  73. <% Call render_header_image(category_code) %>
  74. </td>
  75. </tr>
  76. <tr>
  77. <td height="8"></td>
  78. </tr>
  79. <tr>
  80. <td valign="top" bgcolor="#999999">
  81. <table width="100%" border="0" cellspacing="1" cellpadding="10">
  82. <tbody>
  83. <tr>
  84. <td valign="top" bgcolor="#EEF0FC">
  85. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  86. <tbody>
  87. <tr>
  88. <td height="30" align="right" valign="top">
  89. <%
  90. OFFSET = 50
  91. Dim total_record, total_page
  92. total_record = articlesObj.length
  93. total_page = total_record / OFFSET
  94. if total_page > Round(total_record / OFFSET, 0) then
  95. total_page = total_page + 1
  96. end if
  97. total_page = Round(total_page, 0)
  98. if total_page = 0 and total_record > 1 then
  99. total_page = 1
  100. end if
  101. if page > total_page then
  102. page = total_page
  103. end if
  104. if total_page > next_page then
  105. next_page = next_page + 1
  106. end if
  107. prev_page = prev_page - 1
  108. if prev_page < 1 then
  109. prev_page = 1
  110. end if
  111. %>
  112. <table width="100%" border="0" cellspacing="0" cellpadding="2">
  113. <tbody>
  114. <tr>
  115. <td width="55%" align="right" class="smallcont">Page <%= page %> of <%= total_page %></td>
  116. <td align="right" class="smallcont">
  117. <a href="news.asp?category_code=<%= category_code %>&amp;page=1" target="_top">Latest</a>&nbsp;|&nbsp;
  118. <% if page > 1 and page =< total_page then %>
  119. <a href="news.asp?category_code=<%= category_code %>&amp;page=<%= prev_page %>" target="_top">Back</a>&nbsp;|&nbsp;
  120. <% end if %>
  121. <a href="news.asp?category_code=<%= category_code %>&amp;page=<% if page >= total_page then %><%= total_page %><% else %><%= next_page %><% end if %>" target="_top">Next</a>&nbsp;|&nbsp;
  122. <a href="news.asp?category_code=<%= category_code %>&amp;page=<%= total_page %>" target="_top">Last</a>
  123. </td>
  124. </tr>
  125. </tbody>
  126. </table>
  127. </td>
  128. </tr>
  129. <tr>
  130. <td class="news-eve">
  131. <ul>
  132. <%
  133. Dim index
  134. index = 0
  135. counter = 0
  136. for each item in articlesObj
  137. category_code_local = CInt(item.childNodes(10).text)
  138. if (((category_code_local \ category_code) mod 2) = 1) then
  139. article_id = item.childNodes(0).text
  140. title = item.childNodes(lang_index).text
  141. index_image_url = item.childNodes(4).text
  142. publish = item.childNodes(5).text
  143. publish_start_date = item.childNodes(6).text
  144. if (IsDate(publish_start_date)) then
  145. if CDate(publish_start_date) >= now() then
  146. publish = "False"
  147. end if
  148. end if
  149. if LCASE(publish) = "true" then
  150. if index >= (page * OFFSET - OFFSET) then
  151. %><li><a href="article.asp?category_code=<%= category_code %>&amp;article_id=<%= article_id %>&amp;title=<%= Replace(title, " ", "") %>" target="_top" title="<%= title %>"><%= title %></a></li><%
  152. counter = counter + 1
  153. end if
  154. index = index + 1
  155. end if
  156. if counter >= OFFSET then
  157. Exit For
  158. end if
  159. end if
  160. next
  161. %>
  162. </ul>
  163. </td>
  164. </tr>
  165. <tr>
  166. <td height="30" align="right" valign="bottom">
  167. <table width="100%" border="0" cellspacing="0" cellpadding="2">
  168. <tbody>
  169. <tr>
  170. <td width="55%" align="right" class="smallcont">Page <%= page %> of <%= total_page %></td>
  171. <td align="right" class="smallcont">
  172. <a href="news.asp?category_code=<%= category_code %>&amp;page=1" target="_top">Latest</a>&nbsp;|&nbsp;
  173. <% if page > 1 and page =< total_page then %>
  174. <a href="news.asp?category_code=<%= category_code %>&amp;page=<%= prev_page %>" target="_top">Back</a>&nbsp;|&nbsp;
  175. <% end if %>
  176. <a href="news.asp?category_code=<%= category_code %>&amp;page=<% if page >= total_page then %><%= total_page %><% else %><%= next_page %><% end if %>" target="_top">Next</a>&nbsp;|&nbsp;
  177. <a href="news.asp?category_code=<%= category_code %>&amp;page=<%= total_page %>" target="_top">Last</a>
  178. </td>
  179. </tr>
  180. </tbody>
  181. </table>
  182. </td>
  183. </tr>
  184. </tbody>
  185. </table>
  186. </td>
  187. </tr>
  188. </tbody>
  189. </table>
  190. </td>
  191. </tr>
  192. </table>
  193. </td>
  194. </tr>