📄 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 Dclass.class,DNclass.Nclass,download.showname,download.classid,download.Nclassid,download.lasthits from download,Dclass,DNclass where download.classid=Dclass.classid and download.Nclassid=DNclass.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>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="软件icq,http://www.softicq.com">
<link href="style.css" rel=stylesheet>
<title><%=showname%>|http://www.softicq.com</title>
<script language="JavaScript">
<!--
function Showvote(id)
{
var filename="vote.asp?id="+id;
window.open(filename,"显示窗口","scrollbars=yes,width=350,height=300");
}
//-->
</SCRIPT>
</head>
<body leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<table border="0" align=center width="763" bgcolor="#FFFFFF" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor=#CCCCFF height="33" style="border-bottom-style: solid;border-color:#183ead;border-width:1px">
<TABLE bgColor=#CCCCFF border=0 cellPadding=1 cellSpacing=0 width="100%">
<TR>
<TD width=100% align=center>
<%
sql="select class,classid from Dclass"
rs.open sql,conn,1,1
do while not rs.eof
%>
| <a href="index.asp?classid=<%=rs("classid")%>"><%=rs("class")%></a> |
<%
rs.movenext
loop
rs.close
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="761" colspan="5"> </td>
</tr>
</table>
<div align="center">
<center>
<table border="0" width=763 align=center cellspacing="0" cellpadding="1" background="../images/bg_flower.gif">
<tr>
<td valign="top">
<table border="0" width="150" cellspacing="0" cellpadding="1">
<tr>
<td>
<!--#include file="day.asp"-->
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<!--#include file="week.asp"-->
</td>
</tr>
</table>
</td>
<td width="10" valign="top"></td>
<td width="590" valign="top" style="border-left-style: solid; border-left-color: #817af3;border-width:1px">
<table width="549" border="0" cellspacing="2" cellpadding="1">
<%
sql="select * from download where id="&request("id")
rs.open sql,conn,1,1
%>
<tr><td bgcolor=#CCCCFF colspan="2" width="541">□- <a href="default.asp">下载分类</a>>><a href='index.asp?classid=<%=classid%>'><%=classname%></a>>><a href='index.asp?classid=<%=classid%>&Nclassid=<%=Nclassid%>'><%=Nclassname%></a>>>
<%=rs("showname")%>
</td></tr>
<tr><td colspan="2" width="541">
<blockquote>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2">
<div align="center"><b><%=rs("showname")%></b></div>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2">软件名称：<b><%=rs("showname")%></b></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2">授权方式：<%=rs("orders")%></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td width="60%">软件类型：<%=Nclassname%></td>
<td width="40%">软件评价：<%for i=1 to rs("hot")%><img src="friend.gif"><%next%></td>
</tr>
<tr>
<td width="60%"> </td>
<td width="40%"> </td>
</tr>
<tr>
<td width="60%">软件大小：<%=rs("size")%></td>
<td width="40%">相关链接：<a href="<%=rs("fromurl")%>">home page</a></td>
</tr>
<tr>
<td width="60%"> </td>
<td width="40%"> </td>
</tr>
<tr>
<td width="60%">上传时间：<%=rs("dateandtime")%></td>
<td width="40%">本日下载：<%=rs("dayhits")%> 本周：<%=rs("weekhits")%> 总计：<%=rs("hits")%></td>
</tr>
<tr>
<td width="60%"> </td>
<td width="40%"> </td>
</tr>
<tr>
<td colspan="2">运行环境：<%=rs("system")%></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2">
下载地址1：<a href="<%=rs("filename")%>"><%=rs("filename")%></a>
<%if rs("filename1")<>"" then%>
<br>下载地址2：<a href="<%=rs("filename1")%>"><%=rs("filename1")%></a><br>
<%end if%>
<%if rs("filename2")<>"" then%>
下载地址2：<a href="<%=rs("filename2")%>"><%=rs("filename2")%></a>
<%end if%>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2">
<p>软件简介：</p>
</td>
</tr>
<tr>
<td colspan="2">
<blockquote>
<p><%=rs("note")%></p>
</blockquote>
</td>
</tr>
<tr>
<td width="60%"> </td>
<td width="40%"> </td>
</tr>
<tr>
<td colspan="2"> <font color=red>＊</font> 推荐使用网络蚂蚁、网际快车等断点续传软件下载本站软件，如果您发现链接错误或其它问题，请<a href="mailto:wodeail@etang.com">写信通知</a>我们。<br>
<font color=red>＊</font> 如果您链接本站本地软件，请注明来自软件icq，谢谢您的支持！<br>
<font color=red>＊</font> 欢迎广大作者给我们提供软件以及使用说明。<br>
</td>
</tr>
</table>
</blockquote>
</td></tr>
<tr><td bgcolor=#CCCCFF width="273">
</td>
<td bgcolor=#CCCCFF width="274" align=right> <a href="emill.asp">【告诉好友】</a>
【<a href="javascript:Showvote('<%=rs("id")%>')">评论投票</a>】 </td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<table border="0" width="763" align=center bgcolor="#FFFFFF" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
</td>
</tr>
<tr>
<td background=../images/bg02.gif height=1>
</td>
</tr>
<tr>
<td width="100%">
<!--#include file="myads.asp"--></td>
</tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -