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

📄 productclass.asp

📁 一个非常好的旅游网站程序.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
                    <tr> 
                      <td height="3"> </td>
                    </tr>
                    <tr> 
                      <td bgcolor="#F8F8E8" height="250" > 
                        <table width="140" border="0" cellspacing="0" cellpadding="0" align="center">
                          <form name="form1" method="GET" action="it/search.asp">
                            <tr> 
                              <td> 
                                <div align="center"> 
                                  <input type="text" name="keyword" size="11">
                                  <input name="Submit13" src style="BACKGROUND-COLOR: #feac37; BORDER-BOTTOM: #000875 1px solid; BORDER-LEFT: #9aa3ff 1px solid; BORDER-RIGHT: #000875 1px solid; BORDER-TOP: #9aa3ff 1px solid; COLOR: #efefef; HEIGHT: 20px" type="submit" value="搜索">
                                </div>
                              </td>
                            </tr>
                          </form>
                        </table>
                        <table width="140" border="0" cellspacing="4" cellpadding="3" align="center">
                          <tr> 
                            <td><a href="it/sort.asp?sortid=3">家居用品</a></td>
                            <td><a href="it/sort.asp?sortid=5">家用电器</a></td>
                          </tr>
                          <tr> 
                            <td><a href="it/sort.asp?sortid=6">医药保健</a></td>
                            <td><a href="it/sort.asp?sortid=1">体育用品</a></td>
                          </tr>
                          <tr> 
                            <td><a href="it/sort.asp?sortid=9">电脑软件</a></td>
                            <td><a href="it/sort.asp?sortid=11">通讯产品</a></td>
                          </tr>
                          <tr> 
                            <td><a href="it/sort.asp?sortid=4">交通运输</a></td>
                            <td><a href="it/sort.asp?sortid=2">信息咨询</a></td>
                          </tr>
                          <tr> 
                            <td><a href="it/sort.asp?sortid=7">科研机构</a></td>
                            <td><a href="it/sort.asp?sortid=8">艺术工艺</a></td>
                          </tr>
                          <tr> 
                            <td><a href="it/sort.asp?sortid=12">库存积压</a></td>
                            <td><a href="it/sort.asp?sortid=13">摄影摄像</a></td>
                          </tr>
                          <tr> 
                            <td><a href="it/sort.asp?sortid=48">安全保安</a></td>
                            <td><a href="it/sort.asp?sortid=50">工业设备</a></td>
                          </tr>
                          <tr> 
                            <td><a href="it/sort.asp?sortid=51">冶金矿产</a></td>
                            <td><a href="it/sort.asp?sortid=53">文化,体育</a></td>
                          </tr>
                          <tr> 
                            <td colspan="2"> 
                              <div align="right">==&gt;&gt; <a href="it/regsta1.asp?sortid=242">免费登录网站</a> </div>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                  <br>
                </center>
              </div>
            </td>
          </tr>
        </table>                                        
</td>                                        
      <td width="2%" height="62"></td>                                        
      <td width="77%" height="62" valign="top">                                        
        <div align="center">                                        
          <table border="0" cellpadding="0" cellspacing="0" width="100%" class=main1 height="53" >                                        
            <tr>                                        
              <td width="100%" bgcolor="#FFFFDD" height="22" valign="middle">&nbsp;<a href="default.asp">首页</a>                                                                                            
                &gt;&gt; <%=request("ProductClass_1")%> - <%=ProductClass_2%>&nbsp;       
                     
             <%                                                
   If Rs.recordcount > MaxPerPage then             
  Response.write "<font color='#000000'>页次:</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) &  "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font>&nbsp;"                                                     
   Response.write "<font color=#ff0000>" & Cstr(MaxPerPage) & "</font>" & "<font color='#000000'>种商品/页&nbsp" & "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>种商品</font>&nbsp;&nbsp;"                                                        
   If currentpage > 1 Then                                                     
      response.write "<a href='ProductClass.asp?&page="+cstr(1)+"&ProductClass_2="+Cstr(ProductClass_2)+"'><font color='#000000'>首页</font></a><font color='#000000'><b>-</b></font>"                                                       
      Response.write "<a href='ProductClass.asp?page="+Cstr(currentpage-1)+"&ProductClass_2="+Cstr(ProductClass_2)+"'><font color='#000000'>前页</font></a><font color='#000000'><b>-</b></font>"                                                     
   Else                                                     
      Response.write "<font color='#000000'>首页-</font>"                                                     
      Response.write "<font color='#000000'>前页-</font>"                                                      
   End if                                                     
                                                        
   If currentpage < Rs.PageCount Then                                                     
      Response.write "<a href='ProductClass.asp?page="+Cstr(currentPage+1)+"&ProductClass_2="+Cstr(ProductClass_2)+"'><font color='#000000'>后页</font></a><font color='#000000'><b>-</b></font>"                                                     
      Response.write "<a href='ProductClass.asp?page="+Cstr(Rs.PageCount)+"&ProductClass_2="+Cstr(ProductClass_2)+"'><font color='#000000'>尾页</font></a>&nbsp;&nbsp;"                                                     
   Else                                                     
      Response.write "<font color='#000000'>后页-</font>"                                                     
      Response.write "<font color='#000000'>尾页</font>&nbsp;&nbsp;"                                                            
   End if                                                     
                                                                                                   
 end if%>             
                </td>                                                                                                                            
            </tr>                                                      
            <tr>                                                      
              <td width="100%" height="15" valign="middle">       
                        
          </td>                                                                                                        
            </tr>                                                      
            <tr>                                                      
              <td width="100%" height="31">                                                      
                <div align="center">                                                      
                  <table border="0" cellpadding="0" cellspacing="0" width="100%" height="148" class=main1>                                                      
                    <tr>                                                      
  
<%                                                      
'/////////////////////////////////////////////////////////假如没有商品时//////////////////                                                      
If rs.eof and rs.bof then                                                       
   response.write "<td><p align='center'><font color='#ff0000'>还没任何商品资料</font></p></td>"                                                      
   response.end                                                      
End if %>                                                      
                                                      
                    <%row_count=1                                                      
                    '/////////////////////////////////////显示帖子的子程序////// ///////////////////////////////////                                                     
					Sub list()%>                                                      
                    <%i=0                                                      
                     Do While Not rs.EOF%>                                                      
                      <td width="160" align="center"  valign="top"> <a href="ProductDetail.asp?Product_id=<%=rs("Product_id")%>">    
                        <img name="small" border="0" src="manage/pic_play.asp?pic_id=<%=rs("pic_id")%>" width="72" height="82"  ><br>   
                        <%=rs("Product_Name")%><br>   
                        </a><font color="#cc0000">销售商:</font><%=rs("p_shop")%><font color="#cc0000"><br>   
                        会员价:</font><%=rs("P_NewPrice")%>元<br>                                                      
                        <a href="javascript:openbag('check.asp?cpbm=<%=rs("Product_Id")%>&amp;shopname=<%=rs("p_shop")%>')"><img style="CURSOR: hand" height="22" src="images/che1.gif" width="56" align="absMiddle" border="0"></a>                                                     
                        <br>                                 
                        <br>                                 
                                                          
                      </td>                                                     
                      <%if row_count mod 4 =0 then%></tr><tr><%end if%>                                                     
                      <%                                                     
                        i=i+1                                                     
  					    if i >= MaxPerpage then exit do                                                     
				    	rs.MoveNext                                                     
					    row_count=row_count+1                                                     
						Loop                                                     
					end Sub                                                     
					  %>                
				                                                   
<% call list                                                     
   If Rs.recordcount > MaxPerPage then               
                                                      
   call showpages                                                     
 end if%>                      
                                                  
 			                       
</tr>                     
                                                  
</table>                                                     
                                                     
     </div>                                                     
              </td>                                                     
            </tr>                                                     
          </table>                                                     
        </div>                                                     
        </td>                                                     
    </tr>                                                     
  </table>                                                     
</div>                                                     
<%                                                     
'显示翻页的子程序                                                     
sub showpages()%>                   
             
                             
<table  border="0" cellPadding="0" cellSpacing="0" width="400" >            
<tr>            
    <td width="width="400" height="28"></td>            
  </tr>                                                      
<tr>                             
                             
<td >                                                     
                                                     
<form method="POST" action="ProductClass.asp">                                                     
<INPUT  type=hidden value=<%=ProductClass_2%> name=ProductClass_2>                                                     
<table bgColor="#6D8E4D" border="0" cellPadding="0" cellSpacing="0" width="583" height="30">                                
                                                     
   <tr>                               
                                                   
    <td  bgcolor="#E6E4C4" class=main1 width="450">                                                        
<font color="#000000">                                                        
<p align="center">                                                        
<%                                                     
   Response.write "<font color='#000000'>页面-> </font>"                                                        
   If currentpage > 1 Then                                                     
      response.write "<a href='ProductClass.asp?&page="+cstr(1)+"&ProductClass_2="+Cstr(ProductClass_2)+"'><font color='#000000'>首页</font></a><font color='#000000'><b>-</b></font>"                                                       
      Response.write "<a href='ProductClass.asp?page="+Cstr(currentpage-1)+"&ProductClass_2="+Cstr(ProductClass_2)+"'><font color='#000000'>前页</font></a><font color='#000000'><b>-</b></font>"                                                     
   Else                                                     
      Response.write "<font color='#000000'>首页-</font>"                                                     
      Response.write "<font color='#000000'>前页-</font>"                                                      
   End if                                                     
                                                        
   If currentpage < Rs.PageCount Then                                                     
      Response.write "<a href='ProductClass.asp?page="+Cstr(currentPage+1)+"&ProductClass_2="+Cstr(ProductClass_2)+"'><font color='#000000'>后页</font></a><font color='#000000'><b>-</b></font>"                                                     
      Response.write "<a href='ProductClass.asp?page="+Cstr(Rs.PageCount)+"&ProductClass_2="+Cstr(ProductClass_2)+"'><font color='#000000'>尾页</font></a>&nbsp;&nbsp;"                                                     
   Else                                                     
      Response.write "<font color='#000000'>后页-</font>"                                                     
      Response.write "<font color='#000000'>尾页</font>&nbsp;&nbsp;"                                                            
   End if                                                     
   Response.write "<font color='#000000'>页次:</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) &  "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font>&nbsp;"                                                     
   Response.write "<font color=#ff0000>" & Cstr(MaxPerPage) & "</font>" & "<font color='#000000'>种商品/页&nbsp" & "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>种商品</font>&nbsp;&nbsp;"                                                     
                                                     
response.write "</td><td align='right'>"                                                     
response.write "<font color='#000000' class=main1> 转到第</font><input type='text' name='page' size=2 maxlength=3 class=smallInput value="&Currentpage&">页&nbsp;"                                                     
   response.write "<input class=buttonface type='submit'  value='Go'  name='cndok' style='background-color: #E6E4C4'></span>&nbsp;&nbsp;"                                                        
%>                                                         
</font>                                                         
    </td>                                                       
   </tr>                                                     
  </table>                                                     
  </center>                                                     
</td></tr>                                                     
</table>                                                     
</form>                                                     
<%end sub%>                                    
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">  
  <tr>   
    <td><iframe src=bottom.htm noresize scrolling=no frameborder=0 width=778 height=50 hspace="0" vspace="0" marginheight="0"></iframe>   
    </td>  
  </tr>  
</table>                                     
</body>                                                     
                                                     

⌨️ 快捷键说明

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