📄 list.asp
字号:
<!--#include file="conn.asp"-->
<%
dim sql
dim rs
dim classname,classid,Nclassname,Nclassid
dim lasthits
dim title
if request("id")="" then
response.write "您没有选择相关软件，请返回"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select class.class,Nclass.Nclass,download.showname,download.classid,download.Nclassid,download.lasthits from download,class,Nclass where download.classid=class.classid and download.Nclassid=Nclass.Nclassid and download.ID="&request("id")
rs.open sql,conn,1,1
if not rs.eof then
showname=rs("showname")
classid=rs("classid")
Nclassid=rs("Nclassid")
classname=rs("class")
Nclassname=rs("Nclass")
lasthits=rs("lasthits")
end if
rs.close
'更新每周每日数据
tdate=year(Now()) & "-" & month(Now()) & "-" & day(Now())
if trim(lasthits)=trim(tdate) then
sql="update download set dayhits=dayhits+1 where id="&request("id")
conn.Execute(sql)
' response.write "success"
else
sql="update download set dayhits=1 where id="&request("id")
conn.Execute(sql)
' response.write "error"
end if
sql="update download set hits=hits+1,lasthits='"&tdate&"' where ID="&request("id")
conn.Execute(sql)
p_year=CInt(year(Now()))-CInt(year(lasthits))
p_month=CInt(month(Now()))-CInt(month(lasthits))
p_day=CInt(day(Now()))-CInt(day(lasthits))
period_time=((p_year*12+p_month)*30+p_day)
if cint(period_time)=<cint(7) then
sql="update download set weekhits=weekhits+1 where id="&request("id")
conn.Execute(sql)
else
sql="update download set weekhits=1 where id="&request("id")
conn.Execute(sql)
end if
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0052)http://www.ActiveEdu.net -->
<HTML>
<HEAD><TITLE><%=showname%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2920.0" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId>
<link rel="stylesheet" href="images/style.css">
<script language="JavaScript">
<!--
function Showvote(id)
{
var filename="vote.asp?id="+id;
window.open(filename,"显示窗口","scrollbars=yes,width=350,height=300");
}
//-->
</SCRIPT>
<BODY bgcolor=#ffffff topmargin="0" >
<!--#include file="head_music.asp"-->
<table width=778 border=0 align="center" cellpadding=0 cellspacing=2 background="../images/bg2.gif">
<tr>
<td width=150 valign=top bgcolor="#e7e7e7"> <br>
<table width="140" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="426DB4">
<tr>
<td height="20" background="../images/biao_t.gif"> <font color="#FFFFFF"> </font><FONT
color=#ffffff>今日下载Top10</FONT></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" height="20" valign="top"><br>
<TABLE border=0 cellpadding=4 cellspacing=0 width=120 height="100" align="center">
<TR>
<TD background=images/a-27.gif bgcolor=#ffffff
valign=top width="120"><FONT style=line-height:150%>
<%
dim tdate
tdate=year(Now()) & "-" & month(Now()) & "-" & day(Now())
sql="select top 10 id,showname from download where "
sql=sql&" lasthits=date() and stop=0 and dayhits>0 "
sql=sql&" order by dayhits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
本日没有下载
<%else%>
<%do while not rs.eof%>
<LI><A href="list.asp?id=<%=rs("id")%>"><%=rs("showname")%></A></LI>
<%
rs.movenext
loop
end if
rs.close
%>
</FONT> </TD>
</TR>
</TABLE> </td>
</tr>
</table>
<br>
<table width="140" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="426DB4">
<tr>
<td height="20" background="../images/biao_t.gif"> <font color="#FFFFFF"> </font><FONT
color=#ffffff>本周下载Top10</FONT></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" height="20" valign="top"><br>
<TABLE border=0 cellpadding=4 cellspacing=0 width=120 height="101" align="center">
<TR>
<TD width="120" height="101"
valign=top background=images/a-27.gif bgcolor=#ffffff><FONT style=line-height:150%>
<%
OldWeek = WeekDay(Date())-1
If OldWeek = 0 Then OldWeek = 7
OldWeek = Date()-OldWeek
NewWeek = Date()+(9-WeekDay(Date()))
sql="select top 10 id,showname from download where "
sql=sql&" (lasthits < #" & NewWeek & "#) And (lasthits > #" & OldWeek & "#) and stop=0 and weekhits>0 "
sql=sql&" order by weekhits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
本周没有下载
<%else%>
<%do while not rs.eof%>
<LI><A href="list.asp?id=<%=rs("id")%>"><%=rs("showname")%></A></LI>
<%
rs.movenext
loop
end if
rs.close
%>
</FONT><FONT style=line-height:150%> </FONT> </TD>
</TR>
</TABLE> </td>
</tr>
</table>
</td>
<td align=middle valign=top width=632 height="160" bgcolor="#FFFFFF">
<TABLE width="100%" border="0" cellspacing="0" cellpadding="2">
<%
sql="select * from download where id="&request("id")
rs.open sql,conn,1,1
%>
<TR>
<TD align=center width="100%" bgcolor="#FFFFFF" valign="top">
<TABLE border="0" width="100%" cellspacing="0" cellpadding="0" height="22">
<TR bgcolor="#FFFFFF">
<TD width="3%" bgcolor="#FFFFFF" height="22"><IMG src="../images/arrow.gif" width="20" height="9"></TD>
<TD colspan="4" bgcolor="#FFFFFF" height="22"><A href="../default.asp">生活者姿态</A>
<A href="index.asp"></A>>><A href='default.asp?classid=<%=classid%>'><%=classname%></A>>><A href='default.asp?classid=<%=classid%>&Nclassid=<%=Nclassid%>'><%=Nclassname%></A>>>
<%=rs("showname")%> </TD>
</TR>
</TABLE><br>
<TABLE width="96%" border="0" cellspacing="0" cellpadding="3" bgcolor="#CCCCCC">
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>软件名称</TD>
<TD width="240"><B><%=rs("showname")%></B></TD>
<TD rowspan="8" align="center"><%
if not isnull(rs("images")) and rs("images")<> "" then
response.write "<img src=" + rs("images") + " border=0 width=180 height=120>"
end if
%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>软件类型</TD>
<TD width="240"><%=Nclassname%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>运行环境</TD>
<TD width="240"><%=rs("system")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>授权方式</TD>
<TD width="240"><%=rs("orders")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>软件大小</TD>
<TD width="240"><%=rs("size")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>软件评价</TD>
<TD width="240"><IMG src="images/<%=rs("hot")%>star.gif"></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>上传时间</TD>
<TD width="240"><%=rs("dateandtime")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>相关链接</TD>
<TD width="240"><A href="<%=rs("fromurl")%>">主页</A></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>本日下载</TD>
<TD width="250" colspan="2"><%=rs("dayhits")%> 本周：<%=rs("weekhits")%> 总计：<%=rs("hits")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" height="19" align="center" nowrap>下载地址1</TD>
<TD colspan="5" height="19"><A href="<%=rs("filename")%>"><%=rs("filename")%></A></TD>
</TR>
<%if rs("filename1")<>"" then%>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>下载地址2</TD>
<TD colspan="2"><A href="<%=rs("filename1")%>"><%=rs("filename1")%></A></TD>
</TR>
<%end if%>
<%if rs("filename2")<>"" then%>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>
下载地址2
</TD>
<TD colspan="2"><A href="<%=rs("filename2")%>"><%=rs("filename2")%></A></TD>
</TR>
<%end if%>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>软件简介</TD>
<TD colspan="2"><%=rs("note")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD height="14" width="60" align="center" nowrap>
<P> </P>
</TD>
<TD height="14" colspan="2"> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD colspan="3"><FONT color=red>＊</FONT> 推荐使用网络蚂蚁下载本站软件，如果您发现链接错误或其它问题，请<A href="mailto:jeh@intohz.com">写信通知</A>我们。<BR>
<FONT color=red>＊</FONT> 欢迎广大作者给我们提供软件以及使用说明。<BR>
</TD>
</TR>
</TABLE>
<TABLE width="100%" border="0">
<TR>
<TD align="right">【告诉好友】 【<A href="javascript:Showvote('<%=rs("id")%>')">评论投票</A>】 </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
<tbody>
</tbody>
</table>
<!--#include virtual="../end.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -