list.asp

65353音乐网 v1.1

<!-- #include file="include/config.asp" -->
<%
call cid_sid()
select case action
case "pic"
  tit="图片新闻"
case "good"
  tit="推荐新闻"
case "hot"
  tit="热门新闻"
case "search"
  tit="新闻搜索"
case else
  if int(cid)<1 then call format_redirect("index.asp")
  if action<>"more" then action=""
  tit="新闻列表"
  call getsortname()
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 news_left_sort(tit,0)
call news_left2("hot",cid,sid,10,12,"本类热门新闻")
call news_left2("good",cid,sid,10,12,"本类推荐新闻")
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
call news_center_table("新闻搜索",news_search_list("新闻"),0,1,"")

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

'call news_center_table("新闻分类",sort_type("list.asp?",0,0),0,1,"")
'----------------------------中间 结束----------------------------
call news_end()
call web_end(0,0)
%>