📄 fzjslist.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
%>
<HTML><HEAD><TITLE><%=showname%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="Microsoft FrontPage 5.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>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
</head>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" ondragstart="return false"
onmouseover="window.status='坊子人口网(www.wffzjs.com)'; return true">
<TABLE border=0 cellPadding=0 cellSpacing=0>
</table>
<!--#include file="../guest/fzjishengju/fzjstop.htm"-->
<table width="780">
<td width="658">
<div align="center">
<center>
<table border="0" cellPadding="0" cellSpacing="0">
<tr>
<td align="center" bgColor="#EBEBEB" vAlign="top" width="166">
<div align="center">
<div align="center">
<table border="0" cellPadding="0" cellSpacing="1" width="146">
<tbody>
<tr>
<td align="center" valign="top">
<div align="center">
<table background bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" width="160">
<tr>
<td align="center" style="background-image: url('images/qhss1.gif')" valign="middle">
<span style="FILTER:DropShadow(color=black,offX=1,offY=1);POSITION:relative;WIDTH: 100%"><font color="#EBEBEB">本日排行 前10名</font></span>
</td>
</tr>
<tr vAlign="top">
<td align="center" height="102">
<div align="center">
<center>
<table border="0" cellspacing="0" width="160" height="100">
<tr>
<td background="images/a-27.gif" bgcolor="#FFFFFF" valign="top"><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%>
<a href="fzjslist.asp?id=<%=rs("id")%>">
<p><%=rs("showname")%>
</a><%
rs.movenext
loop
end if
rs.close
%>
</font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</div>
</tr>
<tr>
<td align="center" valign="top">
<div align="center">
<center>
<table background bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" width="160">
<tr>
<td align="center" style="background-image: url('images/qhss1.gif')" valign="middle">
<span style="FILTER:DropShadow(color=black,offX=1,offY=1);POSITION:relative;WIDTH: 100%"><font color="#EBEBEB">本周排行 前10名</font></span>
</td>
</tr>
<tr vAlign="top">
<td align="center" height="102">
<table border="0" cellpadding="4" cellspacing="0" width="160" height="100" align="center">
<tr>
<td background="images/a-27.gif" bgcolor="#FFFFFF" valign="top"><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%>
<a href="fzjslist.asp?id=<%=rs("id")%>">
<p><%=rs("showname")%>
</a><%
rs.movenext
loop
end if
rs.close
%>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</tbody>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -