liuyou_list.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 53 行

<!-- #include file="include/con_liuyou.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("liuyou.asp")
  if action<>"more" then action=""
  tit="旅游列表"
end select
%>
<!-- #include file="include/con_liuyou_list.asp" -->
<!-- #include file="include/sy_pagecute.asp" -->
<!-- #include file="include/sy_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 liuyou_load(1,0,1)
'----------------------------左边 开始----------------------------
call liuyou_label("旅游链接")
call liuyou_left("hot",10,10,"热门旅游")
call liuyou_left("good",10,10,"推荐旅游")
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
call liuyou_search("旅游搜索")

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

call liuyou_sort("liuyou_list.asp?",0,0,"旅游分类")
'----------------------------中间 结束----------------------------
call web_end(0,0)
%>