news_list.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 45 行

<!-- #include file="include/config_news.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim nummer,page,rssum,thepages,viewpage,pageurl,keyword,sea_type,sqladd2
tit="新闻分类浏览"
call cid_sid()
nummer=int(web_var(web_num,2))

call web_head(0,0,1,0,0)
'-----------------------------------center---------------------------------
%>
<table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
<tr><td align=center><%
sqladd=""
if cid=0 then
  call news_main("jt0",16,20,1,6,33,2,10,1)
else
  sqladd=" and c_id="&cid
  if sid<>0 then sqladd=sqladd&" and s_id="&sid
  sqladd2=sqladd
  if action="more" then
    call news_more("jt0",35,1,6,3,5,10,1)
  else
    if sid=0 then
      call news_list("jt0",8,20,1,6,33,1,10,1)
    else
      call news_list("jt0",30,20,1,6,33,5,10,1)
    end if
  end if
end if
%></td></tr>
<tr><td align=center><%call news_class_sort(cid,sid)%></td></tr>
</table>
<%
'---------------------------------center end-------------------------------
call web_center(1)
'------------------------------------right---------------------------------
call news_sea()
call news_scroll("jt0","",3,15,1)
call news_new_hot("jt0",sqladd2,"hot",10,12,1,6,0)
call news_pic(sqladd2,1,10,6)
'----------------------------------right end-------------------------------
call web_end(0)
%>