⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 news_list.asp

📁 打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx
💻 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 + -