⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sort.asp

📁 8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见: 猛虎山庄、燕衔泥(飞扬的软件第二版用的就是他
💻 ASP
📖 第 1 页 / 共 2 页
字号:
          <td width="180" height="100%" bgcolor="#FFD112"></td>
        </tr>
      </table>
    </td>
    <td width="76%" valign="top" bgcolor="#FFFFFF"> 
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="5"></td>
        </tr>
        <tr>
          <td background="images/bj4.gif" height="1"><img src="images/spacer.gif" width="1" height="1"></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center">
        <tr> 
          <td bgcolor="#efefef">您的位置:<a href="index.asp">首页</a> >> <a href="sort.asp?classid=<%=request("classid")%>"><%=classname%></a> 
            >> <%=Nclassname%></td>
        </tr>
      </table>
      
      <table border=0 cellpadding=0 cellspacing=2 width=100%>
        <tbody> 
        <tr> 
          <td valign=top width=582> 
            <%                           
	if request("Nclassid")="" then                          
		sql="select id,showname,bb,note,dayhits,weekhits,lasthits,hits,dateandtime,hot,system,size,orders from download where download.classid="&request("classid")                           
		sql=sql&" order by "&order_name&" "&updown                          
	else                          
		sql="select id,showname,bb,note,dayhits,weekhits,lasthits,hits,dateandtime,hot,system,size,orders from download where download.Nclassid="&request("Nclassid")                          
		sql=sql&" order by "&order_name&" "&updown                          
	end if                          
	rs.open sql,conn,1,1                           
                          
  	if rs.eof and rs.bof then                           
       		response.write "<table border=0 width=100% height=100 cellpadding=0><tr><td width='100%'><p align=center>没有或没有找到任何程序</td></tr></table>"                           
   	else                           
       		totalPut=rs.recordcount                           
      		if currentpage<1 then                           
          		currentpage=1                           
      		end if                           
                          
      		if (currentpage-1)*MaxPerPage>totalput then                           
	   		if (totalPut mod MaxPerPage)=0 then                           
	     			currentpage= totalPut \ MaxPerPage                           
	   		else                           
	      			currentpage= totalPut \ MaxPerPage + 1                           
	   		end if                           
      		end if                           
       		if currentPage=1 then                           
            		showContent                           
            		showpage totalput,MaxPerPage,"sort.asp"                           
       		else                           
          		if (currentPage-1)*MaxPerPage<totalPut then                           
            			rs.move  (currentPage-1)*MaxPerPage                           
            			dim bookmark                           
            			bookmark=rs.bookmark                           
            			showContent                           
             			showpage totalput,MaxPerPage,"sort.asp"                           
        		else                           
	        		currentPage=1                           
           			showContent                           
           			showpage totalput,MaxPerPage,"sort.asp"                           
	      		end if                           
	   	end if                           
   	rs.close                           
   	end if                           
	                                   
   	sub showContent                           
       	dim i                           
	   	i=0                           
%>
            <table width="98%" >
              <tr>
                <td  width="100%" > 
                  <table border="0" cellspacing="1" cellpadding="0" width="98%" align="center" bgcolor="#666666">
                    <%if request("updown")="" then%>
                    <tr> 
                      <td width="37%" align="right" height="22" bgcolor="#FFD112"> 
                        <div align="center"><font color="#000000"><b>软件名称:</b></font></div>
                      </td>
                      <td width="11%" align="right" height="22" bgcolor="#FFD112"> 
                        <div align="center"><font color="#000000">软件性质</font></div>
                      </td>
                      <td width="12%" align=center height="22" bgcolor="#FFD112"><a href="sort.asp?classid=<%=request("classid")%>&Nclassid=<%=request("Nclassid")%>&order=dateandtime&updown=desc" title="点击按升序排列"><font color="#000000">整理日期</font></a></td>
                      <td width="11%" align=center height="22" bgcolor="#FFD112"><a href="sort.asp?classid=<%=request("classid")%>&Nclassid=<%=request("Nclassid")%>&order=hits&updown=desc"  title="点击按升序排列"><font color="#000000">下载次数</font></a></td>
                      <td width="11%" align=center height="22" bgcolor="#FFD112"><a href="sort.asp?classid=<%=request("classid")%>&Nclassid=<%=request("Nclassid")%>&order=size&updown=desc"  title="点击按升序排列"><font color="#000000">文件大小</font></a></td>
                      <td width="18%" align=center height="22" bgcolor="#FFD112"><a href="sort.asp?classid=<%=request("classid")%>&Nclassid=<%=request("Nclassid")%>&order=hot&updown=desc"  title="点击按升序排列"><font color="#000000">评分</font></a></td>
                    </tr>
                    <%else%>
                    <tr> 
                      <td width="37%" align="right" height="22" bgcolor="#FFD112"> 
                        <div align="center"><font color="#000000"><b>软件名称:</b></font></div>
                      </td>
                      <td width="11%" align="right" height="22" bgcolor="#FFD112"> 
                        <div align="center"><font color="#000000">软件性质</font></div>
                      </td>
                      <td width="12%" align=center height="22" bgcolor="#FFD112"><a href="sort.asp?classid=<%=request("classid")%>&Nclassid=<%=request("Nclassid")%>&order=dateandtime" title="点击按降序排列"><font color="#000000">整理日期</font></a></td>
                      <td width="11%" align=center height="22" bgcolor="#FFD112"><a href="sort.asp?classid=<%=request("classid")%>&Nclassid=<%=request("Nclassid")%>&order=hits"  title="点击按降序排列"><font color="#000000">下载次数</font></a></td>
                      <td width="11%" align=center height="22" bgcolor="#FFD112"><a href="sort.asp?classid=<%=request("classid")%>&Nclassid=<%=request("Nclassid")%>&order=size"  title="点击按降序排列"><font color="#000000">文件大小</font></a></td>
                      <td width="18%" align=center height="22" bgcolor="#FFD112"><a href="sort.asp?classid=<%=request("classid")%>&Nclassid=<%=request("Nclassid")%>&order=hot"  title="点击按降序排列"><font color="#000000">评分</font></a></td>
                    </tr>
                    <%end if%>
                    <%do while not rs.eof%>
                    <tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#f8f8f8';" onMouseOut="this.style.backgroundColor='#ffffff';"> 
                      <td width="37%" height="22" bgcolor="#f8f8f8"> <a class="date" href="list.asp?id=<%=rs("id")%>" title="点击查看详细介绍"><%=rs("showname")%>&nbsp;<%=rs("bb")%></a></td>
                      <td height="22" width="11%"> 
                        <div align="center"><%=rs("orders")%></div>
                      </td>
                      <td width="12%" align=center height="22"><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</td>
                      <td width="11%" align=center height="22"><%=rs("hits")%></td>
                      <td width="11%" align=center height="22"><%=rs("size")%></td>
                      <td width="18%" align=center height="22"> 
                        <%for imghot=1 to rs("hot")%><img src="images/grade1.gif"><%next%>
                      </td>
                    </tr>
                    <%     
	 i=i+1     
	 if i>=MaxPerPage then exit do     
	 	rs.movenext     
	 loop     
%>
                    <tr bgcolor="#FFFFFF"> 
                      <td colspan="6">&nbsp; </td>
                    </tr>
                    <tr bgcolor="#FFFFFF"> 
                      <td colspan="6"> 
                        <p align="center"> 
                          <% end sub      
     
	function showpage(totalnumber,maxperpage,filename)     
  	dim n     
     
  	if totalnumber mod maxperpage=0 then     
     		n= totalnumber \ maxperpage     
  	else     
     		n= totalnumber \ maxperpage+1     
  	end if     
  	response.write "<form method=Post action="&filename&"?classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">"     
  	response.write "<font color='red'>"&Nclassname&"</font>"     
     
  	if CurrentPage<2 then     
    		response.write ""&totalnumber&"个&nbsp;首页 上一页&nbsp;"     
  	else     
    		response.write ""&totalnumber&"个&nbsp;<a href="&filename&"?page=1&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">首页</a>&nbsp;"     
    		response.write "<a href="&filename&"?page="&CurrentPage-1&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">上一页</a>&nbsp;"     
  	end if     
     
  	if n-currentpage<1 then     
    		response.write "下一页 尾页"     
  	else     
    		response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">"     
    		response.write "下一页</a> <a href="&filename&"?page="&n&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">尾页</a>"     
  	end if     
   	response.write "&nbsp;页次:<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "     
    	response.write "&nbsp;<b>"&maxperpage&"</b>个软件/页 "     
%>
<%            
end function       
%>
                        </p>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        </tbody> 
      </table><br>
      <div align="center"><img src="images/logo4.gif" width="468" height="60"></div>
    </td>
  </tr>
</table>
<!--#include file="CopyRight.asp"--> 
<!--#include file="link.asp"-->
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -