?? list.asp
字號(hào):
<!--#include file="conn.asp"-->
<%
dim sql
dim rs
dim classname,classid,Nclassname,Nclassid
dim lasthits
dim title
if request("id")="" then
response.write "您沒有選擇相關(guān)軟件，請(qǐng)返回"
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
'更新每周每日數(shù)據(jù)
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">生活者姿態(tài)</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>運(yùn)行環(huán)境</TD>
<TD width="240"><%=rs("system")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>授權(quán)方式</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>軟件評(píng)價(jià)</TD>
<TD width="240"><IMG src="images/<%=rs("hot")%>star.gif"></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>上傳時(shí)間</TD>
<TD width="240"><%=rs("dateandtime")%></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>相關(guān)鏈接</TD>
<TD width="240"><A href="<%=rs("fromurl")%>">主頁(yè)</A></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="60" align="center" nowrap>本日下載</TD>
<TD width="250" colspan="2"><%=rs("dayhits")%> 本周：<%=rs("weekhits")%> 總計(jì)：<%=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>軟件簡(jiǎn)介</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> 推薦使用網(wǎng)絡(luò)螞蟻下載本站軟件，如果您發(fā)現(xiàn)鏈接錯(cuò)誤或其它問題，請(qǐng)<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")%>')">評(píng)論投票</A>】 </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</td>
</tr>
<tbody>
</tbody>
</table>
<!--#include virtual="../end.asp" -->
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -