/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
- <%
- ' Dependancies: The parent file must included libraries before run this files '
- Dim OFFSET, lang, category_code
- Dim objXml, lang_index
- Dim prev_page, page, next_page
- ' 1 - EN; 2 - BM; 3 - CHI '
- lang = base_lang
- ' 1 - News & Event, 2 - Charities, 3 - Sponsorship '
- category_code = 1
- lang_index = lang
- page = 1
- if Request("category_code") and IsNumeric(Request("category_code")) then
- category_code = CInt(Request("category_code"))
- end if
- if Request("page") <> "" and IsNumeric(Request("page")) then
- page = CInt(Request("page"))
- end if
- prev_page = page
- next_page = page
- Dim articlesObj, item
- set objXml = GetIndexedArticles(category_code)
- set articlesObj = objXml.selectNodes("articles/article")
- Dim firstArticleIndex
- %>
- <tr>
- <td width="180" valign="top">
- <!-- Siderbar Start -->
- <%
- Dim limit, header, sidebar_type
- header = false
- if category_code = 1 or category_code = 2 or category_code = 4 or category_code = 8 then
- limit = 20
- sidebar_type = 1
- else
- limit = 999999
- sidebar_type = 2
- end if
- if (category_code >= 32 and category_code <= 128) or category_code = 256 then
- header = true
- end if
- %>
- <%
- if category_code = 256 or (category_code >= 4096 and category_code <= 16384) then
- Dim obj, artObj
- set obj = GetIndexedArticles(256)
- set artObj = obj.selectNodes("articles/article")
- Call render_sidebar(artObj, 256, 2, false, 999999)
- set obj = GetIndexedArticles(4096)
- set artObj = obj.selectNodes("articles/article")
- Call render_sidebar(artObj, 4096, 2, false, 999999)
- set obj = GetIndexedArticles(8192)
- set artObj = obj.selectNodes("articles/article")
- Call render_sidebar(artObj, 8192, 2, false, 999999)
- set obj = GetIndexedArticles(16384)
- set artObj = obj.selectNodes("articles/article")
- Call render_sidebar(artObj, 16384, 2, false, 999999)
- elseif category_code = 16 then
- Call render_sidebar(articlesObj, category_code, sidebar_type, header, limit)
- set obj = GetIndexedArticles(8)
- set artObj = obj.selectNodes("articles/article")
- Call render_sidebar(artObj, 8, 2, false, 999999)
- else
- Call render_sidebar(articlesObj, category_code, sidebar_type, header, limit)
- end if
- %>
- <!-- Siderbar end -->
- </td>
- <td width="10" valign="top"> </td>
- <td width="740" valign="top">
- <table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td>
- <% Call render_header_image(category_code) %>
- </td>
- </tr>
- <tr>
- <td height="8"></td>
- </tr>
- <tr>
- <td valign="top" bgcolor="#999999">
- <table width="100%" border="0" cellspacing="1" cellpadding="10">
- <tbody>
- <tr>
- <td valign="top" bgcolor="#EEF0FC">
- <table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tbody>
- <tr>
- <td height="30" align="right" valign="top">
- <%
- OFFSET = 50
- Dim total_record, total_page
- total_record = articlesObj.length
- total_page = total_record / OFFSET
- if total_page > Round(total_record / OFFSET, 0) then
- total_page = total_page + 1
- end if
- total_page = Round(total_page, 0)
- if total_page = 0 and total_record > 1 then
- total_page = 1
- end if
- if page > total_page then
- page = total_page
- end if
- if total_page > next_page then
- next_page = next_page + 1
- end if
- prev_page = prev_page - 1
- if prev_page < 1 then
- prev_page = 1
- end if
- %>
- <table width="100%" border="0" cellspacing="0" cellpadding="2">
- <tbody>
- <tr>
- <td width="55%" align="right" class="smallcont">Page <%= page %> of <%= total_page %></td>
- <td align="right" class="smallcont">
- <a href="news.asp?category_code=<%= category_code %>&page=1" target="_top">Latest</a> |
- <% if page > 1 and page =< total_page then %>
- <a href="news.asp?category_code=<%= category_code %>&page=<%= prev_page %>" target="_top">Back</a> |
- <% end if %>
- <a href="news.asp?category_code=<%= category_code %>&page=<% if page >= total_page then %><%= total_page %><% else %><%= next_page %><% end if %>" target="_top">Next</a> |
- <a href="news.asp?category_code=<%= category_code %>&page=<%= total_page %>" target="_top">Last</a>
- </td>
- </tr>
- </tbody>
- </table>
- </td>
- </tr>
- <tr>
- <td class="news-eve">
- <ul>
- <%
- Dim index
- index = 0
- counter = 0
- for each item in articlesObj
- category_code_local = CInt(item.childNodes(10).text)
- if (((category_code_local \ category_code) mod 2) = 1) then
- article_id = item.childNodes(0).text
- title = item.childNodes(lang_index).text
- index_image_url = item.childNodes(4).text
- publish = item.childNodes(5).text
- publish_start_date = item.childNodes(6).text
-
- if (IsDate(publish_start_date)) then
- if CDate(publish_start_date) >= now() then
- publish = "False"
- end if
- end if
-
- if LCASE(publish) = "true" then
- if index >= (page * OFFSET - OFFSET) then
- %><li><a href="article.asp?category_code=<%= category_code %>&article_id=<%= article_id %>&title=<%= Replace(title, " ", "") %>" target="_top" title="<%= title %>"><%= title %></a></li><%
- counter = counter + 1
- end if
- index = index + 1
- end if
- if counter >= OFFSET then
- Exit For
- end if
- end if
- next
- %>
- </ul>
- </td>
- </tr>
- <tr>
- <td height="30" align="right" valign="bottom">
- <table width="100%" border="0" cellspacing="0" cellpadding="2">
- <tbody>
- <tr>
- <td width="55%" align="right" class="smallcont">Page <%= page %> of <%= total_page %></td>
- <td align="right" class="smallcont">
- <a href="news.asp?category_code=<%= category_code %>&page=1" target="_top">Latest</a> |
- <% if page > 1 and page =< total_page then %>
- <a href="news.asp?category_code=<%= category_code %>&page=<%= prev_page %>" target="_top">Back</a> |
- <% end if %>
- <a href="news.asp?category_code=<%= category_code %>&page=<% if page >= total_page then %><%= total_page %><% else %><%= next_page %><% end if %>" target="_top">Next</a> |
- <a href="news.asp?category_code=<%= category_code %>&page=<%= total_page %>" target="_top">Last</a>
- </td>
- </tr>
- </tbody>
- </table>
- </td>
- </tr>
- </tbody>
- </table>
- </td>
- </tr>
- </tbody>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>