📄 list.asp
字号:
<%ttime=timer()
Set rs= Server.CreateObject("ADODB.Recordset") %>
<!--#include file="dbpath.asp"-->
<HTML><HEAD>
<TITLE>ASP下载特区_DownASP.com</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style>
td{font-size:9pt;line-height:120%}
body{font-size:9pt;line-height:12pt}
A:link {color: #004080; text-decoration: none}
A:visited {color: #004080; text-decoration: none}
A:active {color: FF0000; text-decoration: none}
A:hover {color: FF0000; text-decoration: underline}
</style>
</HEAD>
<body bgcolor="#E6EBF0" topmargin="2">
<div align="center">
<center>
<table border="0" width="650" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td width="180">
<p align="center"><a href="./"><img border="0" src="title.gif" width="160" height="60" alt="DownASP.com"></a></p>
</td>
<td width="470">
<p align="center"><script language="javaScript" type="text/javascript" SRC="http://www.cput.com/ads.js"></SCRIPT></p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF"> <img border="0" src="homepage.gif"><a href="./">DownASP首页</a>
<a href="list.asp">ASP源代码下载</a>
<a target="_blank" href="http://www.tajh.net">程序定制</a>
<a target="_blank" href="http://bbs.99soft.com">论坛</a>
<a href="http://www.cput.com/other/gbook/index.asp?user=webgg" target="_blank">留言本</a></td>
</tr>
</table>
</center>
</div>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"></td>
</tr>
</table>
<div align="center">
<center>
<table border="0" width="650" cellspacing="1" cellpadding="5" bgcolor="#000000" height="172">
<tr>
<td width="110" bgcolor="#FFFFFF" valign="top">
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<tr>
<td width="100%" bgcolor="#F4F4F4">
<p align="center">ASP源代码分类</td>
</tr>
<%if request("type")="搜索结果" or request("k")<>"" then%>
<tr>
<td width="100%">
<p align="center"><font color="#FF0000">>> 搜索结果 <<</font></td>
</tr>
<%end if%>
<tr>
<td width="100%">
<p align="center"><%if request("type")="" then%><font color="#FF0000">>> <%end if%><a href="list.asp">全部程序</a><%if request("type")="" then%> <<<%end if%></font></td>
</tr>
<%
sql="select * from type"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<tr>
<td width="100%">
<p align="center"><%if request("type")=rs("type") and request("k")="" then%><font color="#FF0000">>> <%end if%><a href="list.asp?type=<%=rs("type")%>"><%=rs("type")%></a><%if request("type")=rs("type") and request("k")="" then%> <<<%end if%></font></td>
</tr>
<%
i=i+1
rs.movenext
loop
i=0
end if
rs.close%>
<tr>
<td width="100%"></td>
</tr>
</table>
</td>
<td width="540" bgcolor="#FFFFFF" valign="top" height="148">
<table border="0" width="100%" bgcolor="#000000" cellspacing="1" cellpadding="2">
<tr>
<td width="100%" bgcolor="#FFFFFF"><table border="0" cellspacing="0" cellpadding="0" width="100%">
<form method="POST" action="list.asp">
<tr>
<td nowrap>ASP源码查找：</td>
<td nowrap><select size="1" name="type">
<option value="搜索结果" selected>=不指定类别=</option>
<%
sql="select * from type"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
%>
<option value="<%=rs("type")%>"><%=rs("type")%></option>
<%rs.movenext
loop
end if
rs.close%>
</select></td>
<td nowrap><input name="k" size="15"></td>
<td nowrap><input type="submit" value="搜索"></td>
<td width="50%"><%if request("k")<>"" then%> 搜索内容:<font color="#FF0000"><%=request("k")%></font><%end if%></td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" width="100%" cellpadding="0">
<%
if request("pl")<>"" then
pl=request("pl")
if request("desc")<>"no" then
pl=""&pl&" desc"
end if
else
pl="id desc"
end if
if request("type")="" and request("k")="" then
sql="select * from down order by "&pl&""
elseif request("type")<>"" and request("type")<>"搜索结果" and request("k")="" then
sql="select * from down where type='"&request("type")&"' order by "&pl&""
else
KN=split(request("k")," ")
for i = 0 to ubound(KN)-1
KNN=KNN&" or note like '%"&KN(i)&"%' or name like '%"&KN(i)&"%'"
next
if request("type")<>"" and request("type")<>"搜索结果" then
TTT=" and type='"&request("type")&"'"
end if
sql="select * from down where (note like '%"&request("k")&"%' or name like '%"&request("k")&"%'"&KNN&")"&TTT&" order by "&pl&""
end if
rs.open sql,conn,1,1
if rs.eof then
%>
<tr>
<td width="100%" colspan="3" height="100">
<p align="center">对不起! 暂时没有或没找到你想要的<%if request("k")<>"" then%>[<font color="#FF0000"><%=request("k")%></font>]<%end if%> @_@</p>
</td>
</tr>
<%else
MaxPerPage=20 '###每页显示条数
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
if request("page")<>"" then
if cint(request("page"))<1 or cint(request("page"))>mpage then
currentPage=1
else
currentPage=cint(request("page"))
end if
else
currentPage=1
end if
rs.move (currentPage-1)*MaxPerPage
%><%call allcountpage()%>
<tr>
<td width="68%" bgcolor="#F4F4F4">
<p align="center">程序名称</p>
</td>
<td width="14%" nowrap bgcolor="#F4F4F4">
<p align="center">下载
<a href="list.asp?type=<%=request("type")%>&desc=no&pl=hits" title="按下载次数升序重新排列">↑</a><a href="list.asp?type=<%=request("type")%>&desc=&pl=hits" title="按下载次数降序重新排列">↓</a></td>
<td width="18%" nowrap bgcolor="#F4F4F4">
<p align="center">加入时间
<a href="list.asp?type=<%=request("type")%>&desc=no&pl=date" title="按加入时间升序重新排列">↑</a><a href="list.asp?type=<%=request("type")%>&desc=&pl=date" title="按加入时间降序重新排列">↓</a></td>
</tr>
<%
if not rs.eof then
dim name
do while not rs.eof
name=rs("name")
if request("k")<>"" then
KN=split(request("k")," ")
if ubound(KN)=0 then
tt=0
else
tt=ubound(KN)
end if
for ii = 0 to tt
name=replace(name,""&KN(ii)&"","<font color=#FF0000>"&KN(ii)&"</font>")
next
end if
%>
<tr>
<td width="68%" height="20">·<a href="show.asp?id=<%=rs("id")%>"><%=name%></a></td>
<td width="14%" align="center" nowrap><%=rs("hits")%></td>
<td width="18%" align="center" nowrap><%=year(rs("date"))%>-<%
mmonth=month(rs("date"))
if len(month(rs("date")))=1 then
mmonth="0"&month(rs("date"))&""
end if%><%=mmonth%>-<%
dday=day(rs("date"))
if len(day(rs("date")))=1 then
dday="0"&day(rs("date"))&""
end if%><%=dday%></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
i=0
end if
%>
<%call allcountpage()%>
<%sub allcountpage()%><tr>
<td width="100%" height="9" colspan="3">
<table border="0" width="100%" cellspacing="1" bgcolor="#E9E9E9" cellpadding="0">
<tr>
<td width="15%" nowrap bgcolor="#F4F4F4">共找到<FONT color=#ff0000><%=rs.recordcount%></FONT>个程序 <%=MaxPerPage%>个/页 共<FONT color=#ff0000><%=mpage%></FONT>页</td>
<td width="65%" nowrap bgcolor="#F4F4F4"><p align="center">
<%
pageno=currentPage
%><%if cint(pageno)>1 then%><a href=list.asp?type=<%=request("type")%>&k=<%=request("k")%>&desc=<%=request("desc")%>&pl=<%=request("pl")%> title="最前页"><%end if%><font face="Webdings">9</font></a> <%if cint(pageno)>1 then%><a href=list.asp?type=<%=request("type")%>&k=<%=request("k")%>&desc=<%=request("desc")%>&pl=<%=request("pl")%>&page=<%=pageno-1%> title="上一页"><%end if%><font face="Webdings">7</font></a><%
pp=cint(pageno)-2
if pp<1 then
pp=1
end if
for pno=pp to mpage
p=p+1
if pno*1=cint(pageno)*1 then
%> <font color="#FF0000">[<%=pno%>]</font><%else%> <a href=list.asp?type=<%=request("type")%>&k=<%=request("k")%>&desc=<%=request("desc")%>&pl=<%=request("pl")%>&page=<%=pno%>>[<%=pno%>]</a><%end if%><%
if p>=5 then exit for
next%> <%if cint(pageno)< mpage then%><a href=list.asp?type=<%=request("type")%>&k=<%=request("k")%>&desc=<%=request("desc")%>&pl=<%=request("pl")%>&page=<%=pageno+1%> title="下一页"><%end if%><font face="Webdings">8</font></a> <%if cint(pageno)< mpage then%><a href=list.asp?type=<%=request("type")%>&k=<%=request("k")%>&desc=<%=request("desc")%>&pl=<%=request("pl")%>&page=<%=mpage%> title="最后页"><%end if%><font face="Webdings">:</font></a>
</p></td>
<td width="18%" nowrap bgcolor="#F4F4F4">
<table cellpadding="0" cellspacing="0">
<form method="POST" action="list.asp?type=<%=request("type")%>&k=<%=request("k")%>">
<tr>
<td nowrap>到<input name="page" size="2">页</td>
<td vAlign="bottom"><input align="center" height="21" name="Submit2" src="go.gif" type="image" value="Submit" width="27"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr><%end sub
end if
rs.close%>
</table>
</td>
</tr>
</table>
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="1">
</td>
</tr>
<tr>
<td width="100%">
<table border="1" width="100" cellspacing="1" cellpadding="0" bordercolorlight="#CAD5DF" bordercolordark="#FFFFFF">
<tr>
<td width="100%">
<p align="center"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" width="650" cellspacing="0" cellpadding="0">
<tr>
<td width="650" colspan="2"></td>
</tr>
<tr>
<td width="550" bgcolor="#000000">
<p> </td>
<td width="100" bgcolor="#000000"><a href="#top" target="_self"><img border="0" src="backtop.gif"></a></td>
</tr>
<tr>
<td width="650" colspan="2">
</td>
</tr>
</table>
</div>
<div align="center">
<center>
<table border="0" width="650" cellspacing="1" cellpadding="2" bgcolor="#000000">
<tr>
<td width="100%" bgcolor="#FFFFFF"><p align="center">页面执行时间:<%=FormatNumber((timer()-ttime)*1000,3)%>毫秒
<a target="_blank" href="http://www.tajh.net">下载本程序</a></p></td>
</tr>
</table>
</center>
</div>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -