city_list.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<!-- #include file="include/con_city.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("city.asp")
  if action<>"more" then action=""
  tit="会员企业列表"
end select
%>
<!-- #include file="include/con_city_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 city_load(1,0,1)
'----------------------------左边 开始----------------------------
call city_label("会员企业链接")
call city_left("hot",10,10,"热门会员企业")
call city_left("good",10,10,"推荐会员企业")
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
call city_search("会员企业搜索")

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

call city_sort("city_list.asp?",0,0,"会员企业分类")
'----------------------------中间 结束----------------------------
call web_end(0,0)
%>