📄 news_list.asp
字号:
<!-- #include file="include/con_news.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("news.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 news_bar_top("新闻连接",news_label_list(),0,2,"")
call news_left("hot",10,10,"热门新闻")
call news_left("good",10,10,"推荐新闻")
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
call news_bar_top("新闻搜索",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_bar_top("新闻分类",sort_type("news_list.asp?",0,0),0,1,"")
'----------------------------中间 结束----------------------------
call news_end()
call web_end(0,0)
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -