<!-- #include file="skin.asp" -->
<!-- #include file="jk_nsort.asp" -->
<!-- #include file="../style/data_sort_down.asp" -->
<%
cid=0
sid=0
n_sort="down"
index_url="down"
tit_fir=format_menu(index_url)
m_channel=index_url
web_img_m="m_"&m_channel
web_img_h="h_"&m_channel

sub down_load(t1,t2,t3)

end sub

sub down_end()
  if isarray(sort_dim) then erase sort_dim
end sub

sub down_remark(t_title)
  response.write vbcrlf&down_bar_top(t_title,1,3) & _
		 vbcrlf&down_remark_list() & _
		 vbcrlf&down_bar_end("",1)
end sub

sub down_search(t_title)
  response.write vbcrlf&down_bar_top(t_title,0,2) & _
		 vbcrlf&down_search_list("软件") & _
		 vbcrlf&down_bar_end("",0)
end sub

sub down_sort(t_url,t1,t2,t_title)
  response.write vbcrlf&down_bar_top(t_title,0,1) & _
		 vbcrlf&sort_type(t_url,t1,t2) & _
		 vbcrlf&down_bar_end("",0)
end sub

sub down_tool(t_title)
  response.write vbcrlf&down_bar_top(t_title,1,3) & _
		 vbcrlf&down_tool_list() & _
		 vbcrlf&down_bar_end("",1)
end sub

sub down_left(nt,n_num,c_num,n_title)
  dim n_username,n_topic,n_tim,bar_num
  bar_num=1
  sql="select top "&n_num&" id,username,name,tim,counter from down where hidden=1"
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    bar_num=3
  case "good"
    sql=sql&" and types=5 order by id desc"
    bar_num=2
  case else
    sql=sql&" order by id desc"
  end select
  response.write vbcrlf&down_bar_top(n_title,1,bar_num)
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    n_username=rs("username")
    n_topic=rs("name")
    n_tim=rs("tim")
    n_tim=joekoe_cms.time_type(n_tim,1)
    response.write vbcrlf&down_topic_type(c_num,rs("id"),n_username,n_topic,n_tim,rs("counter"),false,0)
    rs.movenext
  loop
  rs.close
  response.write vbcrlf&down_bar_end("",1)
end sub

function down_bar_top(tvar,tt,ttype)
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0 cellpadding=0 cellspacing=0 class=tablew>" & _
              vbcrlf&"<tr><td>" & _
              vbcrlf&"  <table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
              vbcrlf&"  <tr>" & _
              vbcrlf&"  <td align=left height=27 background='"&joekoe_cms.web_dir_skin&"main/"&m_channel&"_bar"&ttype&".gif'>&nbsp;"&img_skin(web_img_m)&"<font class=btd>"&tvar&"</font></td>" & _
              vbcrlf&"  </tr>" & _
              vbcrlf&"  </table>" & _
              vbcrlf&"</td></tr>" & _
              vbcrlf&"<tr><td height=3></td></tr>" & _
              vbcrlf&"<tr><td align=center>"
  if tt=1 then temp1=temp1&vbcrlf&"  <table border=0 width='98%'>"
  down_bar_top=temp1
end function

function down_bar_end(mvar,tt)
  dim temp1
  if tt=1 then temp1=temp1&vbcrlf&"  </table>"
  temp1=temp1&vbcrlf&"</td></tr>"
  if mvar<>"" and var_null(mvar)<>"" then temp1=temp1&vbcrlf&"<tr><td align=right>"&mvar&"&nbsp;&nbsp;</td></tr>"
  temp1=temp1&vbcrlf&"</table>"
  down_bar_end=temp1&ukong
end function

function down_topic_main(b_cid,b_cname,b_c_num,b_id,b_username,b_topic,b_tim,b_counter,b_tim_type)
  dim b_url,tim_type
  b_url="down_view.asp?id="&b_id
  if b_tim_type>0 then
    if b_tim_type=2 then tim_type=tim_type&"</td><td align=right>"
    tim_type=tim_type&"&nbsp;<font class=tims>"&mid(b_tim,6,5)&"</font>"
  end if
  down_topic_main="<tr><td class=gray>[<a href='down_list.asp?c_id="&b_cid&"'>"&b_cname&"</a>] <a href='"&b_url&"' alt='软件标题："&joekoe_cms.code_html(b_topic,1,0)&"<br>发 布 人："&b_username&"<br>整理时间："&b_tim&"'>"&joekoe_cms.code_html(b_topic,1,b_c_num)&"</a></td><td class=tims align=right><font class=blue>"&b_counter&"</font>"&tim_type&"</td></tr>"
end function

function down_topic_type(b_c_num,b_id,b_username,b_topic,b_tim,b_counter,b_ispic,b_tim_type)
  dim n_url,n_jt
  n_url="down_view.asp?id="&b_id
  n_jt=img_skin(web_img_h)
  down_topic_type=format_topic_type(n_jt,b_username,b_topic,b_c_num,n_url,b_tim,b_counter,b_ispic,"软件标题","下载人次",b_tim_type)
end function

function down_label_list()
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0 cellspacing=0 cellpadding=4>" & _
              vbcrlf&"<tr><td><a href='down_list.asp?action=good'"
  if action="good" then temp1=temp1&" class=red_3"
  temp1=temp1&">推荐下载</a></td></tr>" & _
       vbcrlf&"<tr><td><a href='down_list.asp?action=hot'"
  if action="hot" then temp1=temp1&" class=red_3"
  temp1=temp1&">热门下载</a></td></tr>" & _
       vbcrlf&"</table>"
  down_label_list=temp1
end function

function down_search_list(stit)
  dim keyvar,temp1
  keyvar="请输入关键字"
  temp1=temp1&vbcrlf&"<table border=0>" & _
              vbcrlf&"<form name=down_sea_frm action='down_list.asp' method=get onsubmit=""javascript:frm_submitonce(this);"">" & _
              vbcrlf&"<input type=hidden name=action value='search'>" & _
              vbcrlf&"<tr height=30>" & _
              vbcrlf&"<td>"&img_skin("new")&"</td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td>"&select_type(stit,0,0)&"</td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td><select name=sea_type sizs=1><option value='topic'>"&stit&"标题</option><option value='username'>发布人</option></seelct></td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td><select name=sea_term sizs=1><option value='all'>满足所有条件</option><option value='only'>满足一个条件</option></seelct></td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td><input type=text name=keyword value='"&keyvar&"' onfocus=""if (value =='请输入关键字'){value =''}"" onblur=""if (value ==''){value='请输入关键字'}"" size=20 maxlength=20 title='多个关键字请用 空格 格开'></td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"  <td><input type=submit value='搜索' onclick=""javascript:return down_sea('"&stit&"');""></td>" & _
              vbcrlf&"</tr></form></table>" & _
              vbcrlf&"<script language=javascript>" & _
              vbcrlf&"function down_sea(stit)" & _
              vbcrlf&"{" & _
              vbcrlf&"  if (document.down_sea_frm.keyword.value==""请输入关键字"")" & _
              vbcrlf&"  {" & _
              vbcrlf&"    alert('请在搜索"&stit&"前先输入要查询的 关键字 ！');" & _
              vbcrlf&"    document.down_sea_frm.keyword.focus();" & _
              vbcrlf&"    return false;" & _
              vbcrlf&"  }" & _
              vbcrlf&"}" & _
              vbcrlf&"</script>"
  down_search_list=temp1
end function

function down_list_top(nurl)
  dim temp1
  temp1=temp1&vbcrlf&"<tr>" & _
              vbcrlf&"<td width='54%'></td>" & _
              vbcrlf&"<td width='11%'><a href='"&nurl&"taxis=tim'><img src='images/down/down_tim.gif' title='按整理时间排序' border=0></a></td>" & _
              vbcrlf&"<td width='11%'><img src='images/down/down_size.gif' border=0></td>" & _
              vbcrlf&"<td width='11%'><a href='"&nurl&"taxis=counter'><img src='images/down/down_counter.gif' title='按下载次数排序' border=0></a></td>" & _
              vbcrlf&"<td width='13%'><a href='"&nurl&"taxis=types'><img src='images/down/down_types.gif' title='按推荐等级排序' border=0></a></td>" & _
              vbcrlf&"</tr>"
  down_list_top=temp1
end function

function down_list_body(n_ii,n_id,n_name,n_tim,n_counter,n_sizes,n_types,n_remark)
  dim temp1
  temp1=temp1&vbcrlf&"<tr>" & _
              vbcrlf&"<td height=20>"&n_ii&"、<b><a href='down_view.asp?id="&n_id&"' title='"&joekoe_cms.code_html(n_name,1,0)&"' target=_blank>"&joekoe_cms.code_html(n_name,1,20)&"</a></b></td>" & _
              vbcrlf&"<td class=tims align=center>"&mid(n_tim,6,5)&"</td>" & _
              vbcrlf&"<td class=tims align=right>"&n_sizes&"</td>" & _
              vbcrlf&"<td align=center class=red>"&n_counter&"</td>" & _
              vbcrlf&"<td><img src='images/down/star"&n_types&".gif' border=0></td>" & _
              vbcrlf&"</tr>" & _
              vbcrlf&"<tr><td colspan=5>软件介绍："&n_remark&"</td></tr>" & _
              vbcrlf&"<tr><td colspan=5><table border=0 cellpadding=0 cellspacing=0 width='98%'><tr><td background='"&joekoe_cms.web_dir_skin&"bg_dian.gif'></td></tr></table></td></tr>"
  down_list_body=temp1
end function

function down_list_pagecute(p_nummer,p_rssum,p_viewpage,p_thepages,p_pageurl)
  dim temp1
  temp1=temp1&vbcrlf&"<tr><td colspan=5 align=center>" & _
              vbcrlf&"<table border=0 width='98%' cellspacing=0 cellpadding=2>" & _
              vbcrlf&"<tr>" & _
              vbcrlf&"<td height=25>" & _
              vbcrlf&"&nbsp;本栏共有 <font class=red>"&p_rssum&"</font> 个软件" & _
              vbcrlf&"页次：<font class=red>"&p_viewpage&"</font>/<font class=red>"&p_thepages&"</font>&nbsp;" & _
              vbcrlf&"&nbsp;分页："&jk_pagecute(p_nummer,p_thepages,p_viewpage,p_pageurl,5,"#ff0000") & _
              vbcrlf&"</td>" & _
              vbcrlf&"</table>" & _
              vbcrlf&"</td></tr>"
  down_list_pagecute=temp1
end function

function down_remark_list()
  dim temp1
  temp1=temp1&vbcrlf&"<tr><td>"&img_skin(web_img_h)&"本站推荐使用 <a href='down_list.asp?action=search&sea_type=name&keyword=flashget'>网际快车</a> 或 <a href='down_list.asp?action=search&sea_type=name&keyword=netants'>网络蚂蚁</a> 下载软件，一般均可正常下载。</td></tr>" & _
              vbcrlf&"<tr><td>"&img_skin(web_img_h)&"如果您发现本站有任何死链或错链问题，请<a href='gbook.asp?action=write'>留言通知管理员</a>，谢谢！</td></tr>" & _
              vbcrlf&"<tr><td>"&img_skin(web_img_h)&"本站大多数软件采用 <a href='down_list.asp?action=search&sea_type=name&keyword=winrar'>WinRAR</a> 及 <a href='down_list.asp?action=search&sea_type=name&keyword=winzip'>Winzip</a> 压缩，请在此下载最新版本。</td></tr>" & _
              vbcrlf&"<tr><td class=red>"&img_skin(web_img_h)&"如果您链接本站成都软件，请注明来自：<a href='"&joekoe_cms.web_url&"'>"&joekoe_cms.web_name&"</a>，谢谢您的支持！</td></tr>" & _
              vbcrlf&"<tr><td>"&img_skin(web_img_h)&"本站提供的软件下载仅供使用！如有侵权，请及时 <a href='gbook.asp?action=write'>告知我们</a> 将之移除！</td></tr>" & _
              vbcrlf&"<tr><td>"&img_skin(web_img_h)&"欢迎大家到本站论坛发表和交流您对本栏目的见解。多谢您的访问和使用！</td></tr>"
  down_remark_list=temp1
end function

function down_tool_list()
  dim temp1
  temp1=temp1&vbcrlf&"<tr><td><img src='images/down/tool_winrar.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=winrar'>WinRAR中文版</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_qq.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=qq'>QQ去广告显IP版</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_winamp.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=winamp'>Winamp中文版</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_realone.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=realoneplay'>RealOnePlay</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_wmp.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=midia player'>Media Player</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_flashget.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=flashget'>Flashget中文版</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_cuteftp.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=cuteftp'>CuteFtp中文版</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_acdsee.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=acdsee'>ACDSee中文版</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_supperrabbit.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=超级兔子'>超级兔子设置</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_wopti.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=优化大师'>Windows优化大师</a></td></tr>" & _
              vbcrlf&"<tr><td><img src='images/down/tool_norton.gif' border=0 align=absmiddle>&nbsp;<a href='down_list.asp?action=search&sea_type=name&keyword=norton'>Norton中文版</a></td></tr>"
  down_tool_list=temp1
end function
%>
