config_down.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="config.asp" -->
<!-- #include file="config_nsort.asp" -->
<!-- #include file="skin.asp" -->
<%
dim atb,sk_bar,sk_class,nid,sqladd,name
atb=" target=_blank":sk_bar=12:sk_class="end"
index_url="down":n_sort="down"
tit_fir=format_menu(index_url)

sub down_class_sort(t1,t2)
  response.write kong&format_bar("<font class="&sk_class&"><b>软件分类</b></font>",class_sort(n_sort,index_url,t1,t2),sk_bar,0,0,"||","")
end sub

sub down_new_hot(n_jt,nnhead,nmore,nsql,nt,n_num,n_m,c_num,et,tt)
  dim rs,sql,di,temp1,tim,counter,nhead:nhead=nnhead
  if n_jt<>"" then n_jt=img_small(n_jt)
  temp1=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=2 class=tf>"
  sql="select top "&n_num+n_m&" id,name,username,tim,counter from down where hidden=1"&nsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="下载排行"
  case "good"
    sql=sql&" and types=5 order by id desc"
    if nhead="" then nhead="软件推荐"
  case else
    sql=sql&" order by id desc"
    if nhead="" then nhead="软件更新"
  end select
  set rs=conn.execute(sql)
  for di=1 to n_m
    if rs.eof or rs.bof then exit for
    rs.movenext
  next
  'if n_m>0 then rs.move(n_m)
  do while not rs.eof
    name=rs("name"):tim=rs("tim"):counter=rs("counter")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&" class=bw>"&n_jt&"<a href='down_view.asp?id="&rs("id")&"'"&atb&" title='软件名称："&code_html(name,1,0)&"<br>发 布 人："&rs("username")&"<br>下载人次："&counter&"<br>整理时间："&time_type(tim,88)&"'>"&code_html(name,1,c_num)&"</a>"
    if tt>0 then temp1=temp1&format_end(et,time_type(tim,tt)&",<font class=blue>"&counter&"</font>")
    temp1=temp1&"</td></tr>"
    rs.movenext
  loop
  rs.close:set rs=nothing
  temp1=temp1&vbcrlf&"</table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||",nmore)
end sub

sub down_pic(nnhead,dsql,nt,n_num,c_num)
  dim rs,sql,temp1,pic_temp,nhead:nhead=nnhead
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2><tr align=center valign=top>"
  sql="select top "&n_num&" id,name,tim,pic from down where hidden=1"&dsql
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
    if nhead="" then nhead="热点排行"
  case "good"
    sql=sql&" and types=5 order by id desc"
    if nhead="" then nhead="酷软推荐"
  case else
    sql=sql&" order by id desc"
    if nhead="" then nhead="最新软件"
  end select
  set rs=conn.execute(sql)
  do while not rs.eof
    name=rs("name"):nid=rs("id")
    pic_temp="<a href='down_view.asp?id="&nid&"'"&atb&"><img src='"&web_var(web_upload,1)&rs("pic")&"' border=0 width="&web_var(web_down,1)&" height="&web_var(web_down,2)&"></a>"
    temp1=temp1&vbcrlf&"<td width='"&int(100\n_num)&"%'><table border=0 cellspacing=0 cellpadding=2 width='100%' class=tf><tr><td align=center>"&format_rk(pic_temp,2,4,web_var(web_down,1),web_var(web_down,2))&"</td></tr>" & _
	  vbcrlf&"<tr><td align=center class=bw><a href='down_view.asp?id="&nid&"'"&atb&" class=red_3><b>"&code_html(name,1,0)&"</b></a></td></tr></table></td>"
    rs.movenext
  loop
  rs.close:set rs=nothing
  temp1=temp1&"</tr></table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>"&nhead&"</b></font>",temp1,sk_bar,0,0,"||","")
end sub

sub down_remark(njt)
  dim temp1
  temp1=vbcrlf&"<table border=0 width='98%' align=center>" & _
	vbcrlf&"<tr><td>"&img_small(njt)&"本站推荐使用 <a href='down_view.asp?id=9'"&atb&">网际快车</a> 下载软件，一般均可正常下载。</td></tr>" & _
	vbcrlf&"<tr><td>"&img_small(njt)&"如果您发现本站有任何死链或错链问题，请<a href='gbook.asp?action=write'"&atb&">留言通知管理员</a>，谢谢！</td></tr>" & _
	vbcrlf&"<tr><td>"&img_small(njt)&"本站大多数软件采用 <a href='down_view.asp?id=4'"&atb&">WinRAR</a> 压缩，请在此下载最新版本。</td></tr>" & _
	vbcrlf&"<tr><td class=red>"&img_small(njt)&"如果您链接本站本地软件，请注明来自：<a href='"&web_var(web_config,2)&"'"&atb&">"&web_var(web_config,1)&"</a>，谢谢您的支持！</td></tr>" & _
	vbcrlf&"<tr><td>"&img_small(njt)&"本站提供的软件下载仅供使用！如有侵权，请及时 <a href='gbook.asp?action=write'"&atb&">告知我们</a> 将之移除！</td></tr>" & _
	vbcrlf&"<tr><td>"&img_small(njt)&"欢迎大家到本站论坛：<a href='forum.asp'"&atb&">"&format_menu("forum")&"</a> 发表和交流您的见解。多谢您的访问！</td></tr>" & _
	vbcrlf&"</table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>软件下载说明</b></font>",temp1,sk_bar,0,0,"||","")&kong
end sub

sub down_tool()
  dim temp1,sql,rs,name,pic,url,remark
    temp1=vbcrlf&"<table border=0 cellspacing=0 cellpadding=2><tr><td height=5></td></tr>"
  sql="select * from common_soft order by id asc"
  set rs=conn.execute(sql)
  do while not rs.eof
  pic=rs("pic")
  url=rs("url")
  name=rs("name") 
  remark=rs("remark")
    temp1=temp1&vbcrlf&"<tr><td><img src="&pic&" border=0 align=absmiddle>&nbsp;<a href="&url&" title="&remark&">"&name&"</a></td></tr>" & _
  rs.movenext
  loop
    temp1=temp1&vbcrlf&"</table>"	
  response.write kong&format_bar("<font class="&sk_class&">常用工具</font>",temp1,sk_bar,0,0,"||","")
  rs.close
  Set rs=nothing
end sub

sub down_atat()
  dim temp1,num1,num2,num3,sq,rs
  sql="select count(id) from down where hidden=1 and tim>=#"&formatdatetime(formatdatetime(now_time,2))&"#"
  set rs=conn.execute(sql)
  num1=rs(0)
  rs.close
  'sql="select num_down from configs where id=1"
  sql="select count(id) from down where hidden=1"
  set rs=conn.execute(sql)
  num2=rs(0)
  rs.close
  sql="select sum(counter) from down where hidden=1"
  set rs=conn.execute(sql)
  num3=rs(0)
  rs.close:set rs=nothing
  temp1=vbcrlf&"<table border=0 cellspacing=0 cellpadding=3><tr><td height=5></td></tr>" & _
	vbcrlf&"<tr><td>今日更新：<font class=red>"&num1&"</font>个软件</td></tr>" & _
	vbcrlf&"<tr><td>软件总数：<font class=red>"&num2&"</font>个软件</td></tr>" & _
	vbcrlf&"<tr><td>总下载：<font class=red>"&num3&"</font>人次</td></tr>" & _
	vbcrlf&"<tr><td>[ <a href='down_list.asp'>→ 浏览软件分类</a> ]</td></tr>" & _
	vbcrlf&"<tr><td>[ <a href='gbook.asp?action=write'>→ 下载链接报错</a> ]</td></tr>" & _
	vbcrlf&"<tr><td>"&put_type("down")&"</td></tr>" & _
	vbcrlf&"</table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>栏目统计</b></font>",temp1,sk_bar,0,0,"||","")
end sub

sub down_main()
  dim rs2,sql2
  if cid=0 then
    sql2="select c_id,c_name from jk_class where nsort='"&n_sort&"' order by c_order"
    set rs2=conn.execute(sql2)
    do while not rs2.eof
      nid=rs2("c_id"):sqladd=" and c_id="&nid
%>
<tr align=center valign=top>
<td><%call down_new_hot("jt0","<a href='down_list.asp?c_id="&nid&"'><font class="&sk_class&">"&rs2("c_name")&"</font></a>","<a href='down_list.asp?c_id="&nid&"&action=more'><font class="&sk_class&">更多软件</font></a>",sqladd,"new",15,0,20,1,8)%></td>
<td></td>
<td><%
call down_new_hot("","本类排行","",sqladd,"hot",5,0,11,1,0)
call down_pic("本类推荐",sqladd,"good",1,10)
%></td>
</tr>
<%
      rs2.movenext
    loop
    rs2.close:set rs2=nothing
  else
    if sid=0 then
      sql2="select s_id,s_name from jk_sort where c_id="&cid&" order by s_order"
      set rs2=conn.execute(sql2)
      do while not rs2.eof
        nid=rs2("s_id"):sqladd=" and c_id="&cid&" and s_id="&nid
%>
<tr align=center valign=top>
<td><%call down_new_hot("jt0","<a href='down_list.asp?c_id="&cid&"&s_id="&nid&"'><font class="&sk_class&">"&rs2("s_name")&"</font></a>","<a href='down_list.asp?c_id="&cid&"&s_id="&nid&"&action=more'><font class="&sk_class&">更多软件</font></a>",sqladd,"new",10,0,20,1,8)%></td>