config_down.asp

这是一个师姐请我做的英语爱好者的毕业设计 已经通过东北大学的毕业答辩 有论文数据库结构分析等全套 已经是可以直接用的毕业设计!

<!-- #include file="config.asp" -->
<!-- #include file="config_nsort.asp" -->
<!-- #include file="skin.asp" -->
<%

dim atb,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,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")
    temp1=temp1&vbcrlf&"<td width='"&int(100\n_num)&"%'><table border=0 cellspacing=0 cellpadding=2 width='100%' class=tf><tr><td align=center><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></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 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
  temp1=vbcrlf&"<table border=0 cellspacing=0 cellpadding=2><tr><td height=5></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_winrar.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=10'>WinRAR中文版</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_qq.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=54'>QQ去广告显IP版</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_winamp.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=17'>Winamp中文版</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_realone.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=56'>RealOnePlay</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_wmp.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=57'>Midia Player</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_flashget.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=15'>Flashget中文版</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_cuteftp.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=12'>CuteFtp中文版</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_acdsee.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=58'>ACDSee中文版</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_supperrabbit.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=59'>超级兔子设置</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_wopti.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=8'>Windows优化大师</a></td></tr>" & _
	vbcrlf&"<tr><td><img src='images/down/tool_norton.gif' border=0 align=absmiddle>&nbsp;<a href='down_view.asp?id=55'>Norton中文版</a></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_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>
<td></td>
<td><%