📄 list.asp
字号:
<!--#include file="conn.asp"--><!--#include file="Config.asp"-->
<%tmp = "http://" & request.servervariables("SERVER_NAME") & _
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/list.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.bb,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")
bb=rs("bb")
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%> <%=bb%>：<%=classname%>>><%=Nclassname%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><meta http-equiv="Content-Language" content="zh-cn">
<LINK href="<%=WebUrl%>/favicon.ico" rel="shortcut icon">
<meta name=description content="<%=Downdescription%>"><meta name="keywords"content="<%=Downkeywords%>">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<!--#include file="head.asp" --></HEAD>
<BODY leftMargin=0 topMargin=0>
<DIV id=hint style="DISPLAY: none"></DIV>
<CENTER>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" class=2b>
<tr>
<td width="772" height="24" bgcolor="#FFFFFF"><img src="images/tp009.gif" width="15" height="15" align="absmiddle">
当前位置：<a href="index.asp">下载首页</a> →<A href='Nclass.asp?classid=<%=classid%>'><%=classname%></a> →<A href='sort.asp?classid=<%=classid%>&Nclassid=<%=Nclassid%>'><%=Nclassname%></a>
<b><a target="_blank" href="Soft_sort.asp"><font color="#008000">软件分类导航</font></a></b>
<b><a target="_blank" href="http://www.lanbaba.com/game/wg">
<font color="#FF6600">游戏外挂下载</font></a></b> <b>
<a target="_blank" href="Bt"><font color="#008080">BT电影高速下载</font></a></b>
<b>
<a href="new.asp"><font color="#800000">最近更新软件</font></a><font color="#800000">
<a title="酷站导航" target="_blank" href="http://url.ydxp.com">中文网址大全</a></font></b></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=2 width=770 bgColor=#eeeeee border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
</TR>
<TR>
<TD background="images/line.gif" height=1></TD></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=175 bgColor=#f6f6f6>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background="images/homedhbg.gif"><img src="images/xzss.gif" width="161" height="34">
</TD>
</TR></TBODY></TABLE>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="145%" height="60"><form method="post" name="myform" action="search1.asp">
<p align="center">
<input type="text" name="keyword" class=textfield size=24 maxlength="50" style="font-family: Arial" onMouseOver="this.focus()" onblur="if (value ==''){value='软件名称或简介'}" onFocus="this.select()" onClick="if(this.value=='软件名称或简介')this.value=''" value="软件名称或简介"><br>
<input type="submit" name="Submit22" value="搜索" style="height='21'" class="botton">
<input type="reset" name="b" value="重填" class="botton"> </form>
</tr>
</table> <img src="images/blxagx.gif" width="171" height="34"><TABLE cellSpacing=1 cellPadding=0 width="98%" border=0>
<TBODY>
<TR>
<TD>
<%
dim tdate
tdate=year(Now()) & "-" & month(Now()) & "-" & day(Now())
sql="select top 10 id,showname,bb from download where "
sql=sql&" lasthits=date() 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
response.write "<LI><A href=list.asp?id="&rs("id")&">"&rs("showname")&" "&rs("bb")&"</A></LI>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
i="0"
end if
rs.close
%>
</TD></TR></TBODY></TABLE>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=150
border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=150
border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE></TD>
<%
sql="select * from download where id="&request("id")
rs.open sql,conn,1,1
%>
<TD vAlign=top width=3></TD>
<TD vAlign=top><div align="center">
<TABLE style="BORDER-RIGHT: #d8d8d8 1px solid" cellSpacing=0 cellPadding=0
width="98%" border=0>
<TBODY>
<TR>
<TD width="21%" background="images/homedhbg.gif" height=34><IMG height=34 src="images/rjmc.gif" width=150></TD>
<TD width="79%" background="images/homedhbg.gif"><FONT color=#666666><B><%=rs("showname")%></B></FONT></TD>
</TR>
</TBODY>
</TABLE>
<table border=0 cellpadding=0 cellspacing=0 width=98% align="center" id="table1">
<tr>
<td align=middle valign=top width=568 height="160" bgcolor="#FFFFFF">
<table width="101%" border="0" cellspacing="1" cellpadding="3" bgcolor="#CCCCCC" id="table2">
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">软件版本：</td>
<td width="231" bgcolor="#FFFFFF"><%=rs("bb")%></td>
<td rowspan="8" align="center" width="245" bgcolor="#FFFFFF">
<%
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=170 height=150 alt=点击放大></a>"
else
response.write "<a href=http://www.ydxp.com target=_blank><img src=images/vod.gif alt=粤东视窗商务联盟 border=0 width=170 height=150></a>"
end if
%></td>
</tr>
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">软件类型：</td>
<td width="231" bgcolor="#FFFFFF"><%=Nclassname%></td>
</tr>
<tr>
<td width="80" align="right" nowrap bgcolor="#FFFFFF">运行环境：</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -