down.asp
来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 204 行
ASP
204 行
<!--#include file="inc/conn.asp"-->
<!--#include file="top.asp"-->
<%
search=request.form("search")
tpe=request("type")
searchtype=request("searchtype")
if search<>"" then
if searchtype="0" then
response.write "请选择搜索范围"
response.end
end if
end if
If request.querystring("page")="" Then
absPageNum = 1
else
absPageNum=cint(request.querystring("page"))
end if
RecordPerPage = 10
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.CacheSize = RecordPerPage
if tpe<>"" and search="" then
sql="SELECT * FROM download where sortcount="&tpe&" order by time desc"
elseif search<>"" and searchtype<>"0" then
sql="select * from download where "&searchtype&" like '%"&search&"%' order by time desc"
else
sql="SELECT * FROM download order by time desc"
end if
rs.OPEN sql, Conn,1,1
rs.PageSize = RecordPerPage
Tol = rs.PageCount
If Not(rs.EOF) Then
rs.AbsolutePage = absPageNum
End If
%>
<!--#include file="search.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=168 background=images/leftftbg.gif> <%if tpe<>"" then%>
<table width="160" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>本类下载排行
TOP10</b></font></div></td>
</tr>
</table>
<table width="160" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
<tr>
<td bgcolor="#FFFFFF"> <script language="JavaScript" src="zoom.asp?name=down&st=<%=request("type")%>&wz=1"></script>
</td>
</tr>
</table>
<br>
<%end if%> <%if tpe="" then%>
<table width="160" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>最近更新软件
TOP10</b></font></div></td>
</tr>
</table>
<table width="160" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
<tr>
<td width="154" valign="top" bgcolor="#FFFFFF"> <script language="JavaScript" src="zoom.asp?name=allhot&wz=1"></script>
</td>
</tr>
</table>
<br>
<%end if%>
<table width="160" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>
总下载排行 TOP10</b></font></div></td>
</tr>
</table>
<table width="160" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
<tr>
<td width="205" valign="top" bgcolor="#FFFFFF"> <script language="JavaScript" src="zoom.asp?name=alldown&wz=1"></script>
</td>
</tr>
</table>
<br>
<table width="160" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="179" height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>
本 站 声 明</b></font></div></td>
</tr>
</table>
<table width="160" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
<tr>
<td width="189" height="138" valign="top" bgcolor="#FFFFFF"> 本站所有软件收集来自网上，版权归原来作者所有，本站只是为方便网友下载而收集，并且下载文件不在本站的空间做镜象，任何问题与本站无关系。如果侵犯您的版权，请<a href="mailto:liehuogo@126.com"><font color="#0000FF">来信</font></a>告诉我们，我们会马上做出整理，谢谢！</td>
</tr>
</table>
</TD>
<!--********************左栏部分结束**********************-->
<TD width="592" valign=top bgcolor="#FFFFFF"><table border=1 cellpadding=3 cellspacing=0 style='border-collapse:collapse' bgcolor=white bordercolor=#E4E4E4 width=100%>
<tr>
<td width=100% align=right class=shadow2>
<%
for ppages=1 to rs.pagecount
if ppages=cint(absPageNum) then
%>
<b><font color=red>[<%=ppages%>]</font></b>
<%
else
if tpe="" then
%>
<a href='down.asp?page=<%=ppages%>'>[<%=ppages%>]</a>
<% elseif tpe<>"" then%>
<a href='down.asp?type=<%=tpe%>&page=<%=ppages%>'>[<%=ppages%>]</a>
<%
end if
end if
next
abcd=absPageNum+1
if abcd>=rs.pagecount then
abcd=rs.pagecount
end if
%>
<%if tpe="" then%>
<a title='下一页' href='down.asp?page=<%=abcd%>'>[>]</a>
<%elseif tpe<>"" then%>
<a title='下一页' href='down.asp?type=<%=tpe%>&page=<%=abcd%>'>[>]</a>
<%
end if
%>
</td>
</tr>
</table>
<%
if rs.eof and rs.bof then
response.write "<p align='center'>无内容</p>"
else
For absRecordNum = 1 to rs.PageSize%>
<table border=1 cellpadding=3 cellspacing=0 style='border-collapse:collapse' bordercolor=#E4E4E4 width=100% bgcolor=#E4E4E4>
<tr>
<td bgcolor="#F5F5F5" colspan=2><b> <a href='./show.asp?id=<%=rs("id")%>' target=_blank><%=rs("name")%></a>
</b></td>
<td bgcolor="#F5F5F5" colspan=2 align=right class=p1><%=rs("big")%>┃<%=rs("sort")%>
</td>
</tr>
<tr>
<td width=25% bgcolor=#efefef align=center>更新日期</td>
<td width=25% bgcolor=white><%=rs("time")%></td>
<td width=16% bgcolor=#efefef align=center>推荐程度</td>
<td width=34% bgcolor=white> <img src='./images/<%=rs("commend")%>' width=55 height=12>
<%=rs("downcount")%>/<%=rs("count")%> </td>
</tr>
<tr>
<td colspan=4 bgcolor=white style='table-layout: fixed; word-break: break-all; text-indent: 40; line-height: 130%'>
<%
kao=rs("show")
if len(kao)>20 then
kao=left(kao,20) & "..."
response.write kao
else
response.write kao
end if
%>
</td>
</tr>
</table>
<%
rs.movenext
If rs.EOF Then
Exit For
End If
Next
end if
%>
<table border=1 cellpadding=3 cellspacing=0 style='border-collapse:collapse' bordercolor=#E4E4E4 width=100%>
<tr>
<td width=100% align=right class=shadow2>
<%
for ppages=1 to rs.pagecount
if ppages=cint(absPageNum) then
%>
<b><font color=red>[<%=ppages%>]</font></b>
<%
else
if tpe="" then
%>
<a href='down.asp?page=<%=ppages%>'>[<%=ppages%>]</a>
<% elseif tpe<>"" then%>
<a href='down.asp?type=<%=tpe%>&page=<%=ppages%>'>[<%=ppages%>]</a>
<%
end if
end if
next
%>
<%if tpe="" then%>
<a title='下一页' href='down.asp?page=<%=abcd%>'>[>]</a>
<%elseif tpe<>"" then%>
<a title='下一页' href='down.asp?type=<%=tpe%>&page=<%=abcd%>'>[>]</a>
<%
end if
%>
</td>
</tr>
</table> </TD>
</tr>
</table><TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<!-- 底部信息部分 -->
<!-- #include file="foot.asp" -->
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?