search.asp

下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

  <%      
	do while not rs.eof      
%>      
                            
  <OPTION <%if request("classid")<>"" then%><%if cint(rs("classid"))=cint(request("classid")) then%> selected  <%end if%><%end if%>value="<%=rs("classid")%>"><%=rs("class")%></OPTION>      
                            
  <%      
	rs.movenext      
	loop      
	end if      
	rs.close      
%>      
                          
 </SELECT> </p>
                        
</FORM>      
</TD>      
<TD width="29%" height="18" nowrap bgcolor="#BD0000">       
                        
<FORM action="sort.asp" method=get>      
子分类: 
                      <SELECT name="Nclassid" size="1" onChange='javascript:submit()' class="textfield" style="border: 1px solid #000000">
                        <%      
	if request("classid")="" then      
	sql="select Nclass,Nclassid from Nclass"      
	else      
	sql="select Nclass,Nclassid from Nclass where classid="&request("classid")      
	end if      
	rs.open sql,conn,1,1      
	if rs.bof and rs.eof then      
%>
                        <OPTION value="">Not Record!</OPTION>      
                            
  <%else%>      
                            
  <%      
	do while not rs.eof      
%>      
                            
  <OPTION <%if request("Nclassid")<>"" then%><%if cint(rs("Nclassid"))=cint(request("Nclassid")) then%> selected  <%end if%><%end if%>value="<%=rs("Nclassid")%>"><%=rs("Nclass")%></OPTION>      
                            
  <%      
	rs.movenext      
	loop      
	end if      
	rs.close      
%>      
                          
 </SELECT>      
                        
</FORM>      
</TD>      
</TR>      
                  
</TABLE>      
<%       
	if request("Nclassid")="" then      
		sql="select id,showname,bb,note,hits,dateandtime,hot,size,system,orders from download where "&classid&" "&findword&" "      
		sql=sql&" order by id desc"      
	else      
		sql="select id,showname,bb,note,hits,dateandtime,hot,size,system,orders from download where "&classid&" "&Nclassid&" "&findword&" "      
		sql=sql&" order by id desc"      
	end if      
	rs.open sql,conn,1,1      
      
  	if rs.eof and rs.bof then       
       		response.write "<p align='center'>没有或没有找到任何程序<br><br><br><b>提示:搜索软件时请不要填入软件的版本号!</b><br><Br></p>"       
   	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,"search.asp"       
       		else       
          		if (currentPage-1)*MaxPerPage<totalPut then       
            			rs.move  (currentPage-1)*MaxPerPage       
            			dim bookmark       
            			bookmark=rs.bookmark       
            			showContent       
             			showpage totalput,MaxPerPage,"search.asp"       
        		else       
	        		currentPage=1       
           			showContent       
           			showpage totalput,MaxPerPage,"search.asp"       
	      		end if       
	   	end if       
   	rs.close       
   	end if       
	               
   	sub showContent       
       	dim i       
	   	i=0       
%>
<div align="center">
  <center>      
                
                    
<TABLE border="0" cellspacing="0" cellpadding="0" width="98%" style="border-collapse: collapse" bordercolor="#111111">      
                      
<TR>       
                        
<TD width="37%" height=22 bgcolor="#000000">&nbsp;<font color="#FFFFFF">软件名称和简介</font></TD>      
<TD width="18%" align="center" bgcolor="#000000" height="22"><font color="#FFFFFF">推荐</font></TD>      
<TD width="18%" align="center" bgcolor="#000000" height="22"><font color="#FFFFFF">更新日期</font></TD>      
<TD width="13%" align="center" bgcolor="#000000" height="22"><font color="#FFFFFF">下载次数</font></TD>      
<TD width="14%" align="center" bgcolor="#000000" height="22"><font color="#FFFFFF">文件大小</font></TD>      
</TR>      
                      
<%do while not rs.eof%>      
                      
<TR>       
                        
<TD width="100%" colspan="5" height=20><A href="list.asp?id=<%=rs("id")%>"><%=replace(rs("showname"),""&keyword&"","<font color=yellow><b>"&keyword&"</b></font>")%>&nbsp;<%=rs("bb")%></A></TD>      
</TR>      
                      
<TR>       
                        
<TD width="37%" height=22>&nbsp;&nbsp;       
                          
<%if len(rs("note"))>18 then%>      
                    <%=left(rs("note"),18)%>……       
                    <%else%>      
                    <%=rs("note")%>       
                    <%end if%>      
                  </TD>      
<TD width="18%" align=center height="22">       
                   <%if rs("hot")>3 then%>      
                    <FONT color=red>推荐</FONT>       
                   <%end if%>      
                  </TD>      
<TD width="18%" align=center height="22"><%=rs("dateandtime")%></TD>      
<TD width="13%" align=center height="22"><%=rs("hits")%></TD>      
<TD width="14%" align=center height="22"><%=rs("size")%></TD>      
</TR>      
                      
<TR><TD width="100%" colspan="5" height=17>运行环境：<%=rs("system")%>&nbsp;&nbsp;授权方式：<%=rs("orders")%></TD></TR>      
                      
<TR align="center"><TD width="100%" colspan="5" height="1" bgcolor="#FF9900"><space height="1"></TD>      
</TR>      
<%      
	 i=i+1      
	 if i>=MaxPerPage then exit do      
	 	rs.movenext      
	 loop      
%>      
</TABLE>      
  </center>
</div>
<%      
   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")&"&action="&request("action")&"&keyword="&keyword&">"      
  	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&keyword="&keyword&">首页</a>&nbsp;"      
    		response.write "<a href="&filename&"?page="&CurrentPage-1&"&keyword="&keyword&">上一页</a>&nbsp;"      
  	end if      
      
  	if n-currentpage<1 then      
    		response.write "下一页 尾页"      
  	else      
    		response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&keyword="&keyword&">"      
    		response.write "下一页</a> <a href="&filename&"?page="&n&"&keyword="&keyword&">尾页</a>"      
  	end if      
   	response.write "&nbsp;页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "      
    	response.write "&nbsp;<b>"&maxperpage&"</b>个软件/页 "      
%>
   <%           
end function      
%>
              <%      
   	set rs=nothing         
	conn.close      
	set conn=nothing      
%>
</TD></TR></TABLE>      
</div><br>   
</td>      
<%end if%>      
<!--#include file="CopyRight.asp"-->      
</table>    
</BODY>