con_city.asp

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

<!-- #include file="skin.asp" -->
<!-- #include file="sy_nsort.asp" -->
<%
cid=0
sid=0
n_sort="city"
index_url="city"
tit_fir=format_menu(index_url)

sub city_load(t1,t2,t3)
  call cid_sid_js()
  call web_js_type(2)
  if t1=1 then
    call edxsky_2in1.js_type("edxsky_city.js",5)
  end if
  if t3=1 then
    call edxsky_2in1.js_type("style/edxsky_pagecute.js",0)
  end if
  call edxsky_2in1.js_type("style/data_sort_"&n_sort&".js",0)
  call edxsky_2in1.js_type("sort_type_"&n_sort&".js",5)
  call web_js_type(1)
end sub

sub city_search(t_title)
  response.write vbcrlf&"city_bar_top('"&t_title&"',0,1,'');" & _
		 vbcrlf&"city_search('会员企业');" & _
		 vbcrlf&"city_bar_end('',0);"
end sub

sub city_label(t_title)
  response.write vbcrlf&"city_bar_top('"&t_title&"',0,2,'');" & _
		 vbcrlf&"city_label();" & _
		 vbcrlf&"city_bar_end('',0);"
end sub

sub city_sort(t_url,t1,t2,t_title)
  response.write vbcrlf&"city_bar_top('"&t_title&"',0,1,'');" & _
		 vbcrlf&"sort_type('"&t_url&"',"&t1&","&t2&");" & _
		 vbcrlf&"city_bar_end('',0);"
end sub

sub city_left(nt,n_num,c_num,n_title)
  dim n_username,n_topic,n_tim
  response.write vbcrlf&"city_bar_top('"&n_title&"',1,2,'');"
  sql="select top "&n_num&" id,username,topic,tim,counter,ispic from city where hidden=1"
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
  case "good"
    sql=sql&" and istop=1 order by id desc"
  case else
    sql=sql&" order by id desc"
  end select
  set rs=edxsky_2in1.exec(sql,1)
  do while not rs.eof
    n_username=rs("username")
    n_topic=rs("topic")
    n_topic=edxsky_2in1.code_js(n_topic,1)
    n_tim=rs("tim")
    n_tim=edxsky_2in1.time_type(n_tim,1)
    response.write vbcrlf&"city_topic_type("&c_num&","&rs("id")&",'"&n_username&"','"&n_topic&"','"&n_tim&"','"&rs("counter")&"','"&rs("ispic")&"',0);"
    rs.movenext
  loop
  rs.close
  response.write vbcrlf&"city_bar_end('',1);"
end sub

%>