article_list.asp

来自「打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以」· ASP 代码 · 共 50 行

<!-- #include file="include/con_article.asp" -->
<%
call cid_sid()
select case action
case "good"
  tit="推荐文章"
case "hot"
  tit="热门文章"
case "search"
  tit="文章搜索"
case else
  if int(cid)<1 then call format_redirect("article.asp")
  if action<>"more" then action=""
  tit="文章列表"
end select
%>
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<!-- #include file="include/jk_keyes.asp" -->
<%
dim nummer,rssum,page,viewpage,thepages,pageurl
nummer=dim_num(0)
pageurl="?action="&action&"&c_id="&cid&"&s_id="&sid&"&"

call web_head(0,0,0,0,0)
'----------------------------左边 开始----------------------------
call article_bar_top("文章链接",article_label_list())
call article_left("hot",10,10,"热门文章")
call article_left("good",10,10,"推荐文章")
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
call article_bar_top("文章分类",sort_type("article_list.asp?",0,0))

select case action
case "more","good","hot","search"
  call article_more(nummer,30,tit)
case else
  if cint(sid)<1 then
    call article_list(6,30)
  else
    call article_more(nummer,30,tit)
  end if
end select

call article_bar_top("文章搜索",article_search_list("文章"))
'----------------------------中间 结束----------------------------
call article_end()
call web_end(0,0)
%>