<%
'程序名称：千纸鹤网站管理系统
'程序作者：千纸鹤
'作者邮箱：qzhxxw@sina.com
'作者 Q Q：138999501
'作者电话：0000000000
'官方主页：http://www.qqzzhh.com/
'官方论坛：http://www.qqzzhh.com/bbs
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<%if showdown="no" then
if session("user")="" then
response.write"<script>alert('请重新登陆！');window.close();</script>"
Response.End
end if
end if
call pass()
title="下载中心→下载文件"
call checkshowcontent()
call top()%>
<table border="0"  cellspacing="0" cellpadding="0" align=center class=bgcolor>
<tr><td class=left></td><td class=width>
<table width=100% border=0  cellspacing="0" cellpadding="0">
<tr>
<td valign=top align=center>
<%call br%>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_down where pass=true and id="&request.querystring("id")
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update%>
<table border="0" cellspacing="0" cellpadding="0" width=100%>
<tr>
<td class=showtop>&emsp;当前位置：<a href=index.asp>本站首页</a>→<a href=down.asp>下载频道→<%set rs3=server.CreateObject("adodb.recordset")
sql="select * from YC_downclass where id="&rs("class")&" order by id desc"
rs3.open sql,conn,1,1
if not rs3.bof and not rs3.eof then
response.Write rs3("classname")
end if
rs3.close
set rs3=nothing%>→<b><font color="<%=rs("color")%>"><%=rs("title")%></font></b></td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0" width=100%><tr>
<td  class=showcenter valign=top height=60>
<%
if rs("read")=0 then
call main()
elseif rs("read")=1 then
if useradmin>=1 then
call main()
else
response.write "<br><br><center><b><font color=red>只有普通会员以上级别才可以查看！</font></b></center>"
end if
elseif rs("read")=2 then
if useradmin>=2 then
call main()
else
response.write "<br><br><center><b><font color=red>只有VIP会员以上级别才可以查看！</font></b></center>"
end if
end if
sub main()%>
<center>
<table border=1 cellspacing=0 cellpadding=0 frame=void width=100% bordercolor=<%=border%>>
<tr>
<td height=25 align=center class=bg width=70 nowrap>下载名称：</td><td width=290>&nbsp;<b><font color="<%=rs("color")%>"><%=rs("title")%></font></b></td>
<td rowspan=8 width=250 nowrap>
<%if rs("pic")="" then%><img src='img/nodown.gif' border='0' width=250 height=200 align=absmiddle>
<%else%><a href="<%=rs("pic")%>" target=_blank>
<img src='<%=rs("pic")%>' border='0'  width=250  height=200 align=absmiddle></a><%end if%></td>
</tr>
<tr>
<td height=25 align=center class=bg>发表日期：</td><td width=410 nowrap>&nbsp;<%=rs("date")%></td>
</tr>
<tr><td height=25 align=center class=bg>下载大小：</td><td>&nbsp;<%=rs("size")%></td></tr>
<tr><td height=25 align=center class=bg>推荐程度：</td><td>&nbsp;<%=rs("commend")%></td></tr>
<tr><td height=25 align=center class=bg>官方主页：</td><td>&nbsp;<a href="<%=rs("web")%>" target="_blank"><%=rs("web")%></a></td></tr><tr><td height=25 align=center class=bg>演示地址：</td><td>&nbsp;<a href="<%=rs("show")%>" target="_blank"><%=rs("show")%></a></td></tr>
<tr><td height=25 align=center class=bg>查看下载：</td><td>&nbsp;<%=rs("click")%>次/<%=rs("downclick")%>次</td></tr>
<tr><td height=25 align=center class=bg>下载地址：</td><td>&nbsp;【<a href="downdown.asp?id=<%=rs("id")%>&url=1" title="直接下载">本地下载</a>】 
<%if rs("url2")<>"" then%>【<a href="downdown.asp?id=<%=rs("id")%>&url=2" title="直接下载">镜像下载</a>】<%end if%>
<%if rs("url3")<>"" then%>&nbsp;【<a href="downdown.asp?id=<%=rs("id")%>&url=3" title="直接下载">友情下载</a>】<%end if%>
</td></tr>
<tr><td class=bg height=25 align=center colspan=3>相关说明</td></tr>
<tr><td height=150 valign=top colspan=3><center>
<div id="size" style="word-break:break-all;table-layout:fixed;text-align:left;line-height:150%;width:98%">
<blockquote><%=rs("content")%><blockquote></div></center>
</td></tr>
<tr><td class=bg colspan=3>
<%call nextdata("YC_down","showdown","个")%>
</td></tr>
</table><%end sub%>
</TD></TR></table>
<table border="0" cellspacing="0" cellpadding="0" width=100%><tr><td class=showfoot></td></tr></table>
<table border=0  cellspacing="0" cellpadding="0" align=center width=100%>
<tr align=middle><td width=5></td>
<td width=370 height=150 align=right>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<tr>
<td class=showtopleft></td>
<td class=showtopcenter>&emsp;※&nbsp;点击排行</td>
<td class=showtopright></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td  class=showcenterleft></td>
<td valign=top class=showcentercenter  height=180>
<%call br()
set rstop=server.createobject("adodb.recordset")
if request.querystring("class")<>"" then
sql="select  * from [YC_down] where pass=true and  class="&request.querystring("class")&" order by click DESC"
else
sql="select * from [YC_down] where pass=true order by click DESC"
end if
rstop.open sql,conn,1,1
n=0
response.write"<table border='0' cellspacing='0' cellpadding='0' width='100%'>"
do while not rstop.eof%> <tr height=17><td>
·<a href='showdown.asp?id=<%=rstop("id")%>' target="down" title="下载名称：<%=rstop("title")%><br>推荐程度：<%=rstop("commend")%><br>文件大小：<%=rstop("size")%><br>发表时间：<%=rstop("date")%><br>点击次数：<%=rstop("click")%>次<br>下载次数：<%=rstop("downclick")%>次"><%=YC_Kill_Word(rstop("title"),30)%></a></td><td width=65><%=rstop("date")%></td></tr>
<%
n=n+1
if n=10 then exit do end if
rstop.movenext
loop
if rstop.eof and rstop.bof then
response.write "<center><font color=red><b>没有相关下载！<b></font></center>"
end if
response.write "</table>"
rstop.close
set rstop=nothing
call br()%>
</td>
<td class=showcenterright></td></tr></table>

<table border="0"  cellspacing="0" cellpadding="0">
<tr>
<td class=showfootleft></td>
<td class=showfootcenter></td>
<td class=showfootright></td>
</tr></table>
<%call br()%>
</TD>
<td width=5></td>
<td  width=370 height=150 align=left>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<tr>
<td class=showtopleft></td>
<td class=showtopcenter>&emsp;※&nbsp;本站推荐</td>
<td class=showtopright></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td  class=showcenterleft></td>
<td valign=top class=showcentercenter  height=180>
<%call br()
set rsbest=server.createobject("adodb.recordset")
sql="select * from [YC_down] where best=true order by id DESC"
rsbest.open sql,conn,1,1
n=0
response.write"<table border='0' cellspacing='0' cellpadding='0' width='100%'>"
do while not rsbest.eof%><tr height=17><td>
·<a href="showdown.asp?id=<%=rsbest("id")%>" target="down" title="下载名称：<%=rsbest("title")%><br>推荐程度：<%=rsbest("commend")%><br>文件大小：<%=rsbest("size")%><br>发表时间：<%=rsbest("date")%><br>点击次数：<%=rsbest("click")%>次<br>下载次数：<%=rsbest("downclick")%>次"><%=YC_Kill_Word(rsbest("title"),30)%></a></td><td
width=65><%=rsbest("date")%></td></tr>
<%n=n+1
if n=cint(bestlist) then exit do end if
rsbest.movenext
loop
if rsbest.eof and rsbest.bof then
response.write "<center><font color=red><b>没有推荐下载！<b></font></center>"
end if
response.write "</table>"
rsbest.close
set rsbest=nothing
call br()%>
</td>
<td class=showcenterright></td></tr></table>
<table border="0"  cellspacing="0" cellpadding="0">
<tr>
<td class=showfootleft></td>
<td class=showfootcenter></td>
<td class=showfootright></td>
</tr></table>
<%call br()%>
</TD><td width=5></td>
</TR></table>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_down where id="&request.querystring("id")
rs.open sql,conn,1,3
call pl("down",rs("id"))
rs.close
set rs=nothing
call br%>
</td></tr></table>
</td><td class=right></td></tr></table>
<%rs.close
set rs=nothing
call foot()%>
