con_city_main.asp

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

<%
sub city_fpic(nt,t_num,n_num,c_num,n_title)
  dim temp1,pid,nid,n_topic,n_username,n_tim
  sql="select top 1 id,topic,pic from city where hidden=1 and ispic=1 order by id desc"
  set rs=edxsky_2in1.exec(sql,1)
  if not rs.eof then
    n_topic=rs("topic")
    n_topic=edxsky_2in1.code_js(n_topic,1)
    temp1="format_pic_type('"&rs("pic")&"','"&n_topic&"',"&t_num&",'city_view.asp?id="&rs("id")&"')"
  end if
  rs.close
  if temp1="" then temp1=""""""
  response.write vbcrlf&"city_bar_top('"&n_title&"',1,1,'');" & _
		 vbcrlf&"document.write(""<tr>"");" & _
		 vbcrlf&"document.write(""<td align=center width='30%'>""+"&temp1&"+""</td>"");" & _
		 vbcrlf&"document.write(""<td width='70%'>"");" & _
		 vbcrlf&"document.write(""  <table border=0>"");"
  sql="select top "&n_num&" id,username,topic,tim,counter,ispic from city where hidden=1 and ispic=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")&"',1);"
    rs.movenext
  loop
  rs.close
  response.write vbcrlf&"document.write(""  </table>"");" & _
		 vbcrlf&"document.write(""</td></tr>"");" & _
		 vbcrlf&"city_bar_end('',1);"
end sub

sub city_pic(nt,n_num,c_num,n_title)
  dim temp1,nid,per_num,n_topic
  per_num=100\n_num
  response.write vbcrlf&"city_bar_top('"&n_title&"',1,1,'city_list.asp?action=pic');" & _
		 vbcrlf&"document.write(""<tr align=center>"");"
  sql="select top "&n_num&" id,topic,pic from city where hidden=1 and ispic=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_topic=rs("topic")
    n_topic=edxsky_2in1.code_js(n_topic,1)
    response.write vbcrlf&"document.write(""<td width='"&per_num&"%'>""+format_pic_type('"&rs("pic")&"','"&n_topic&"',"&c_num&",'city_view.asp?id="&rs("id")&"')+""</td>"");"
    rs.movenext
  loop
  rs.close
  response.write vbcrlf&"document.write(""</tr>"");" & _
		 vbcrlf&"city_bar_end('',1);"
end sub

sub city_main_list(n_num,c_num)
  dim ncid,ncname,crs,csql,sqla,n_username,n_topic,n_tim
  csql="select c_id,c_name from sy_class where nsort='"&n_sort&"' order by c_order"
  set crs=edxsky_2in1.exec(csql,1)
  do while not crs.eof
    ncid=crs("c_id")
    ncname=crs("c_name")
    sqla=" and c_id="&ncid
    response.write vbcrlf&"city_bar_top('"&ncname&"',1,1,'city_list.asp?action=more&c_id="&ncid&"');"
    sql="select top "&n_num&" id,topic,tim,username,counter,ispic from city where hidden=1 and c_id="&ncid&" order by id desc"
    set rs=conn.execute(sql)
    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")&"',2);"
      rs.movenext
    loop
    rs.close
    response.write vbcrlf&"city_bar_end('',1);"
    crs.movenext
  loop
  crs.close
  set crs=nothing
end sub

%>