g_cpinfo1.asp

一个很好的在线购物系统

 if RScp.eof then%>                
<center><b><p>         
<font size="2">没有符合条件的记录！          
</font>          
</b></center>                 
                 
 <%else                                                                                   
   if request.querystring("page")<>"" then                                                                                  
   page=cint(request.querystring("page"))                                                                                 
else                                                                                 
   page=1                                                                                 
end if                                                                                 
                                                                                 
RScp.pagesize=10                                                                                
if page>=RScp.pagecount then                                                                                 
   page=RScp.pagecount                                                                                 
else                                                                                 
   if page<1 then                                                                                 
      page=1                                                                                 
   end if                                                                                 
end if                                                                                 
RScp.absolutepage=page                                                                                 
                                                                                  
%>                   
                                                                               
                                                                                             
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">                                                                                   
           
                                                                                  
  <tr>  <form name="myform"  method="post" action="F_Contract2.asp" target="main">                                                                                                
                                                                                   
     <td width="37" height="24" align="center" width="122" bgcolor="#D9C8A7">&nbsp;                                                                                 
     </td>                                                                                                  
    <td width="144" height="24" align="center" width="131" bgcolor="#D9C8A7">                                                                                
     <font size="2">产品名称&nbsp;       
     </font>       
     </td>                                                                                                
    <td width="161" height="24" align="center" width="84" bgcolor="#D9C8A7">                                                                               
     型号        
     </td>                                                                                                
     <td width="157" height="24" align="center" width="84" bgcolor="#D9C8A7">                                                                               
     规格        
     </td>                                                                                                      
                                                                                                   
    <td width="73" height="24" align="center" width="120" bgcolor="#D9C8A7">                                                                               
     <font size="2">销售单价       
     </font>       
     </td>                                                                                                
                                                                                                  
  </tr>                                                                                              
                                                                                              
     <% for n=1  to RScp.pagesize%>                  
         <%if  n mod 2=1 then                    
            bg="#f7f7f7"                      
       else                    
            bg="#EDEBEC"                     
       end if%>                                                                                              
                                                                                                
  <tr bgcolor="<%=bg%>">                                                            
                                                                                        
                                                                                              
    <td width="37" height="23" align="center" width="122">    
    
     <p align="left">   
     <font size="2"></font>     
     <input type="radio" value="<%=rscp("ProdCode")%>" name="spxh">      
      
     </p>   
   
       </td>                                                                                
      <td width="144" height="23" align="center" width="131"><font size="2"><%=RScp("ProdName")%>         
       </font>         
    </td>     
     <td width="161" height="23" align="center" width="84"><font size="2"><%=RScp("Model")%>&nbsp;         
       </font>         
    </td>                                                                                             
      <td width="157" height="23" align="center" width="84"><font size="2"><%=RScp("Standard")%>&nbsp;         
       </font>         
    </td>                                                                                           
                                                                                          
      <td width="73" height="23" align="center" width="120"><font size="2"><%=RScp("SalePrice")%>&nbsp;</td>                                                                                           
              
                                                                                           
  </tr>                                                                               
  <%                                                                               
     RScp.movenext                                                                               
     if RScp.eof then exit for                                                                               
  next                                                                               
  %>   
          
                                                                                                                                                                          
 </table>   
         <input type="hidden" name="hth" value="<%=hth%>">   
         <input type="hidden" name="year1" value="<%=year1%>">   
         <input type="hidden" name="month1" value="<%=month1%>">  
         <input type="hidden" name="date1" value="<%=date1%>">           
         <input type="hidden" name="khxh" value="<%=khxh%>">    
         <input type="hidden" name="lxr" value="<%=lxr%>">   
         <input type="hidden" name="qyxz" value="<%=qyxz%>">                                                                                            
<p align="center">   
                                                                                            
<font size="2">                                                                                            
   共<%=RScp.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_CpInfo1.asp?page=1&spxh=<%=spxh%>&spmc=<%=spmc%>&hth=<%=hth%>&year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&khxh=<%=khxh%>&lxr=<%=lxr%>&qyxz=<%=qyxz%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                               
   <a href="G_CpInfo1.asp?page=<%=(page-1)%>&spxh=<%=spxh%>&spmc=<%=spmc%>&hth=<%=hth%>&year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&khxh=<%=khxh%>&lxr=<%=lxr%>&qyxz=<%=qyxz%>">上页</a>&nbsp;                                                                                                              
   <% else%>                                                                                                              
   上页&nbsp;                                                                                                              
  <%  end if%>                                                                                                              
    <%if page<RScp.pagecount then %>                                                                                                             
   <a href="G_CpInfo1.asp?page=<%=(page+1)%>&spxh=<%=spxh%>&spmc=<%=spmc%>&hth=<%=hth%>&year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&khxh=<%=khxh%>&lxr=<%=lxr%>&qyxz=<%=qyxz%>">下页</a>&nbsp;                                                                                                              
   <% else %>                                                                                                             
   下页&nbsp;                                                                                                              
  <%end if%><a href="G_CpInfo1.asp?page=<%=RScp.pagecount%>&spxh=<%=spxh%>&spmc=<%=spmc%>&hth=<%=hth%>&year1=<%=year1%>&month1=<%=month1%>&date1=<%=date1%>&khxh=<%=khxh%>&lxr=<%=lxr%>&qyxz=<%=qyxz%>">尾页</a>&nbsp;&nbsp;</font>                   
 <%%>                     
                   
                                                                                                           
      <select  name="page1" style="width:80" size="1">                              
                                     
                     
       <% for o=1 to RScp.pagecount%>                                                      
         <option value="<%=o%>">第<%=o%>页</option>                         
       <%next%>                                               
                                                       
      </select> <input type="button" value="GO" onclick="Gopage()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >&nbsp;&nbsp;    
      &nbsp;&nbsp; 
      
      <p align="left"><input type="button" value="确定" name="bb" onclick="winsub()" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >         
 </form>                                                                                                                 
<%     
    Rscp.close    
    set Rscp=nothing    
end if %>             
             
</body>