list.asp

下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

<%     
	OldWeek = WeekDay(Date())-1     
	If OldWeek = 0 Then OldWeek = 7     
	OldWeek = Date()-OldWeek     
	NewWeek = Date()+(9-WeekDay(Date()))     
	sql="select top "&WeekTop&" id,showname,bb from download where "     
	sql=sql&"  (lasthits < #" & NewWeek & "#) And (lasthits > #" & OldWeek & "#) and weekhits>0 "     
	sql=sql&" order by weekhits desc"     
	rs.open sql,conn,1,1     
	if rs.eof and rs.bof then     
	response.write "本周没有下载"
	else
	do while not rs.eof     
	response.write "<LI><A href=list.asp?id="&rs("id")&">"&rs("showname")&" "&rs("bb")&"</A></LI>"     
	i=i+1
	if i>=WeekTop then exit do
	rs.movenext
	loop
	i="0"
	end if 
	rs.close 
%></font><br><br></td></tr></table></td></tr></table></td><td width="556" valign="top" bgcolor="<%=tablebodycolor%>" background="image/t3_b.gif"> <table border=0 cellpadding=0 cellspacing=0 width=540 align="right"><tr><td align=right valign=top width=540> 
<%  
    sql="select * from download where id="&request("id") 
	rs.open sql,conn,1,1 
%>
<table width="100%" border="1" cellspacing="0" cellpadding="3" bgcolor="<%=tablebodycolor%>" style="border-collapse: collapse" bordercolor="<%=atablebackcolor%>" height="268"><tr><td colspan="2" class="BorderOn" bgColor=<%=tablebodycolor%> height=21 background="image/dhback.gif"><center><b><font size=3><%=rs("showname")%></font></b></center></td></tr><tr><td width="240" nowrap height=26 class="BorderOn1"><b>软件版本：</b>&nbsp;<%=rs("bb")%></td><td align="center" valign="center" width="300" rowspan="9" height="232"> 
<% 
if not isnull(rs("images")) and rs("images")<> "" then 
			response.write "<a href=showpic.asp?show=big&id="&rs("id")&" target=_blank><img src=showpic.asp?id="&rs("id")&" border=0  width=133 height=100 alt=点击放大></a>" 
			else 
			response.write "<script src=list_tp.js></script>" 
		end if 
%></td></tr><tr><td width="240" nowrap height=26><b>软件类型：</b>&nbsp;<%=Nclassname%>/<%=rs("orders")%>/<%=rs("kind")%></td></tr><tr><td width="240" nowrap height=26><b>应用平台：</b>&nbsp;<%=rs("system")%></td></tr><tr><td width="240" nowrap height=26><b>授权方式：</b>&nbsp;<%=replace(rs("orders"),"软件","版")%></td></tr><tr><td width="240" nowrap height=27><b>软件大小：</b>&nbsp;<%=rs("size")%></td></tr><tr><td width="240" nowrap height=27><b>软件评价：</b>&nbsp;<img src="images/<%=rs("hot")%>star.gif"></td></tr><tr><td width="240" nowrap height=27><b>整理日期：</b>&nbsp;<%=rs("dateandtime")%></td></tr><tr><td width="240" nowrap height=27><b>相关链接：</b><%if rs("fromurl")<>"" then%>&nbsp;<a href="<%=rs("fromurl")%>">主页</a><%end if%></td></tr><tr><td width="240" nowrap height=27><b>本日下载：</b>&nbsp;<%=rs("dayhits")%>&nbsp;&nbsp;本周：<%=rs("weekhits")%>&nbsp;&nbsp;总计：<%=rs("hits")%></td></tr></table><table width="100%" border="1" cellspacing="1" cellpadding="3" style="border-left:1px solid #FF0000; border-right:1px solid #FF0000; border-collapse: collapse; border-top-width:0; border-bottom-width:0" bordercolor="<%=atablebackcolor%>" bgcolor="<%=tablebodycolor%>">
<%
if rs("filename")="" and rs("filename1")="" and rs("filename2")="" then
%><tr><td width="100%" colspan="2" nowrap><table width=100% bordercolor="<%=atablebackcolor%>" style="border-collapse: collapse" cellpadding="3" cellspacing="1" border="1" bgcolor="<%=tablebodycolor%>"><tr><td width="10%" height="20" align="center" nowrap><b>下载地址：</b></td><td colspan="2" height="20" width="90%">暂时没有下载</td></tr></table>
<%
else
if rs("movie")<>"" then
if rs("movie")="win" then     
play="playwin.asp"     
pimg="images/win.gif"     
else     
play="playrm.asp"     
pimg="images/rm.gif"     
end if     
%></td></tr><tr><td width=100%><table width=100% cellspacing="1" cellpadding="3" border="1" bordercolor="<%=atablebackcolor%>" style="border-collapse: collapse" bgcolor="<%=tablebodycolor%>"><tr><td width="100%" nowrap valign="top"><b>&nbsp; 软件简介：</b></td></tr><tr><td><%=rs("note")%>　</td></tr></table></td></tr></table>
<script language="JavaScript">     
function windowOpen(loadpos)     
{controlWindow=window.open(loadpos,"surveywin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,status=yes,width=610,height=400");     
}     
</script><table cellspacing="1" cellpadding="3" border="1" style="border-collapse: collapse" bordercolor="<%=atablebackcolor%>" bgcolor="<%=tablebodycolor%>" width="100%"><tr><td width="100%" height="19" nowrap><b><img border="0" src="images/into.gif"> 在线播放：</b>&nbsp;&nbsp;<img src="<%=pimg%>">&nbsp;<%if rs("filename")<>"" then%><a href=# onClick=windowOpen('<%=play%>?id=<%=rs("id")%>&downid=1')>[1]</a><%end if%><%if rs("filename1")<>"" then%><a href=# onClick=windowOpen('<%=play%>?id=<%=rs("id")%>&downid=2')>[2]</a><%end if%><%if rs("filename2")<>"" then%><a href=# onClick=windowOpen('<%=play%>?id=<%=rs("id")%>&downid=3')>[3]</a><%end if%><br><br></td></tr><%else%><tr><td width=556><table width=100% cellspacing="0" cellpadding="3" border="0" style="border-collapse: collapse" bordercolor="<%=atablebackcolor%>"><tr><td width="100%" nowrap valign="top"><b>软件简介：</b></td></tr><tr><td><%=rs("note")%><br></td></tr></table></td></tr></table><tr><td width=556><table width=100% cellspacing="0" cellpadding="3" border="1" bordercolor="<%=atablebackcolor%>" style="border-collapse: collapse" bgcolor="<%=tablebodycolor%>"><tr><td width="100%" height="26" nowrap bgcolor="<%=tablebodycolor%>" background="image/bot_1.gif"><p align="center"><font size="3">&nbsp;</font><b><font size="3">本地下载</font></b></td></tr><tr><td align="left" style="line-height: 200%" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%if rs("filename")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=1&id=<%=rs("id")%>" target="_blank">下载站一</a></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='#<%=tablebodycolor%>';"><%end if%><%if rs("filename1")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=2&id=<%=rs("id")%>" target="_blank">下载站二</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';">
<%end if%><%if rs("filename2")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=3&id=<%=rs("id")%>" target="_blank">下载站三</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename3")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=4&id=<%=rs("id")%>" target="_blank">下载站四</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename4")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=5&id=<%=rs("id")%>" target="_blank">下载站五</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename5")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=6&id=<%=rs("id")%>" target="_blank">下载站六</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename6")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=7&id=<%=rs("id")%>" target="_blank">下载站七</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename7")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=8&id=<%=rs("id")%>" target="_blank">下载站八</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename8")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=9&id=<%=rs("id")%>" target="_blank">下载站九</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename9")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=10&id=<%=rs("id")%>" target="_blank">下载站十</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename10")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=11&id=<%=rs("id")%>" target="_blank">下载站11</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';">
<%end if%><%if rs("filename11")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 
src="images/filebox.gif" width=19><a href="download.asp?downid=12&id=<%=rs("id")%>" target="_blank">下载站12</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';">
<%end if%><%if rs("filename12")<>"" then%>
&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=13&id=<%=rs("id")%>" target="_blank">下载站13</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';">
<%end if%><%if rs("filename13")<>"" then%>
&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=14&id=<%=rs("id")%>" target="_blank">下载站14</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename14")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 
src="images/filebox.gif" width=19><a href="download.asp?downid=15&id=<%=rs("id")%>" target="_blank">下载站15</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename15")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=16&id=<%=rs("id")%>" target="_blank">下载站16</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename16")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=17&id=<%=rs("id")%>" target="_blank">下载站17</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';"><%end if%><%if rs("filename17")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 
src="images/filebox.gif" width=19><a href="download.asp?downid=18&id=<%=rs("id")%>" target="_blank">下载站18</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';">
<%end if%>
<%if rs("filename18")<>"" then%>
&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 
src="images/filebox.gif" width=19><a href="download.asp?downid=19&id=<%=rs("id")%>" target="_blank">下载站19</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';">
<%end if%><%if rs("filename19")<>"" then%>&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 
src="images/filebox.gif" width=19><a href="download.asp?downid=20&id=<%=rs("id")%>" target="_blank">下载站20</a><br></td></tr><tr><td height="24" onMouseOver="this.bgColor='<%=atablebackcolor%>';" onMouseOut="this.bgColor='<%=tablebodycolor%>';">
<%end if%>
<%if rs("filename20")<>"" then%>
&nbsp;&nbsp;&nbsp;<IMG border=0 height=13 src="images/filebox.gif" width=19><a href="download.asp?downid=21&id=<%=rs("id")%>" target="_blank">下载站21</a><br></td></tr><tr><td height="1"></td></tr>
<%end if%>
<%end if%>
<%end if%>
<%
set rs_xg=server.createobject("adodb.recordset")
sql_xg="select * from download where id<>" &rs("id")& " and showname like '%" &rs("showname")& "%'"  
rs_xg.open sql_xg,conn,1,1     
if rs_xg.eof and rs_xg.bof then
response.write ("")
else
response.write "</td><tr><td width='100%' nowrap background='image/bot_1.gif' height='26'><b>相关软件：</b></td><center><tr><td height='12'>"   
do while not rs_xg.eof
response.write "<LI type=circle><a href=list.asp?id="&rs_xg("id")&" target=_blank>"&rs_xg("showname")&" "&rs_xg("bb")&"</A><br>"
rs_xg.movenext
loop
response.write "</td></tr></center>"
end if
rs_xg.close     
set rs_xg=nothing
%>
<tr><td width="100%" nowrap background="image/bot_1.gif" height="26"> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="BorderOff">
<tr><td><p align="center"><b><font size="3">相关评论</font></b><font size="3"></font></td></tr></table></td><tr><td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="3" style="border-collapse: collapse"background="image/t3_b.gif" bgcolor="<%=atabletitlecolor%>"><tr><td width="100%">
<%
set rs_pl=server.createobject("adodb.recordset") 
    sql_pl="select * from Dvote where downid="&rs("id")&" order by id desc"
	rs_pl.open sql_pl,conn,1,1   
if rs_pl.eof and rs_pl.bof then 
response.write ("暂时未有对此软件的评论!")
else
dim i
i=0  
do while not rs_pl.eof
response.write "<li>[打分："&rs_pl("grade")&"]&nbsp;<font color='"&tablecontentcolor&"'>"&rs_pl("content")&"</font></li>"
i=i+1     
if i>=5 then exit do 
rs_pl.movenext 
loop 
'i="0"   
end if    
rs_pl.close
set rs_pl=nothing
%>
</td></tr><tr><td width="100%"><br><p align="right"><a href="javascript:Showvote('<%=rs("id")%>')">发表你的评论 / 更多评论</a></td></tr></table></td></tr><tr><td height="95" valign="top">
<p style="line-height: 120%"><br><font color=red>＊</font> 如果您发现链接错误或其它问题，请<a href="mailto:<%=webmasterEmail%>?subject=DL%20Error:<%=rs("showname")%>%20<%=rs("bb")%>%20/list.asp?id=<%=rs("id")%>&body=<%=rs("showname")%>%20<%=rs("bb")%>%20%D3%D0%CE%CA%CC%E2%C0%B2!">发信</a>或到<a href="http://www.yese.net/bbs/" target="_blank">论坛</a>里告诉我们,谢谢!<br><font color=red>＊</font> 在线看电影需要这些工具：<a class="date" href="search.asp?action=title&keyword=Windows Media Player" title="点击查看详细介绍" target="_blank">Windows Media Player</a>或<a class="date" href="search.asp?action=title&keyword=RealPlayer" title="点击查看详细介绍" target="_blank">RealPlayer</a>。<br><font color=red>＊</font> 如果您制作了好的软件希望能与大家分享，我们愿意和您一起宣传！投稿请联系<A href="mailto:<%=webmasterEmail%>"><b>我们</b></A>。<BR><font color=red>＊</font> 如果您链接本站本地软件，请注明来自<A href="<%=HostUrl%>"><font color="<%=tablefontcolor%>"><b>【<%=HostUrl%>-<%=HostName%>】</b></font></A>，谢谢您的支持！</td></tr></td></tr></table><br></td></tr></table></td></tr></table></center></div>
<!--#include file="CopyRight.asp"-->
<%rs.close 
set rs=nothing 
conn.close 
set conn=nothing%> 
</BODY></HTML>