g_statecp.asp

一个很好的在线购物系统

             
 <%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                                                                             
                                                                              
%>               
                                                                           
                                                                                         
</font>               
                                                                           
                                                                                         
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">                                                                               
       
                                                                              
  <tr>  <form name="myform"  method="post" action="G_state.asp" target="main">                                                                                            
                                                                               
     <td width="122" height="24" align="center" width="122" valign="middle" bgcolor="#DDD2C4">                                                                             
     </td>                                                                                              
    <td width="131" height="24" align="center" width="131" valign="middle" bgcolor="#DDD2C4">                                                                            
     <font size="2">产品名称</font>   
     </td>                                                                                            
    <td width="84" height="24" align="center" width="84" valign="middle" bgcolor="#DDD2C4">                                                                           
     规格型号    
     </td>                                                                                            
     <td width="98" height="24" align="center" width="98" valign="middle" bgcolor="#DDD2C4">                                                                           
      <font size="2">成本单价   
      </font>   
     </td>                                                                                            
                                                                                               
    <td width="120" height="24" align="center" width="120" valign="middle" bgcolor="#DDD2C4">                                                                           
     <font size="2">销售单价   
     </font>   
     </td>                                                                                            
                                                                                              
  </tr>                                                                                          
                                                                                          
     <% for n=1  to RScp.pagesize%>              
                                                                                       
                                                                                            
  <tr>                                                        
                                                                                    
                                                                                          
    <td width="69" height="23" align="center" width="122"><font size="2"></font>  
     <input type="radio" value="<%=rscp("ProdCode")%>" name="spxh">   
   
       </td>                                                                             
      <td width="53" height="23" align="center" width="131"><font size="2"><%=RScp("ProdName")%>      
       </font>      
    </td>                                                                                        
      <td width="105" height="23" align="center" width="84"><font size="2"><%=RScp("Standard")%>&nbsp;      
       </font>      
    </td>                                                                                        
      <td width="83" height="23" align="center" width="98"><font size="2"><%=RScp("CostPrice")%>&nbsp;      
       </font>      
    </td>                                                                                        
      <td width="61" 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="khxh" value="<%=khxh%>"> 
        <input type="hidden" name="khmc" value="<%=khmc%>">   
        <input type="hidden" name="khjb" value="<%=khjb%>">                                                                                              
                                                                                          
<p align="center">
                                                                                         
<font size="2">                                                                                         
   共<%=RScp.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_StateCp.asp?page=1&spxh=<%=spxh%>&spmc=<%=spmc%>&bz=<%=bz%>">首页</a>&nbsp;<%if page>1 then %>                                                                                                             
   <a href="G_StateCp.asp?page=<%=(page-1)%>&spxh=<%=spxh%>&spmc=<%=spmc%>&bz=<%=bz%>">上页</a>&nbsp;                                                                                                            
   <% else%>                                                                                                          
   上页&nbsp;                                                                                                            
  <%  end if%>                                                                                                          
    <%if page<RScp.pagecount then %>                                                                                                           
   <a href="G_StateCp.asp?page=<%=(page+1)%>&spxh=<%=spxh%>&spmc=<%=spmc%>&bz=<%=bz%>">下页</a>&nbsp;                                                                                                            
   <% else %>                                                                                                         
   下页&nbsp;                                                                                                            
  <%end if%><a href="G_StateCp.asp?page=<%=RScp.pagecount%>&spxh=<%=spxh%>&spmc=<%=spmc%>&bz=<%=bz%>">尾页</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()">&nbsp;&nbsp;  
      <p align="left"><input type="button" value="确定" name="bb" onclick="winsub()">     
 </form>                                                                                                             
<% end if %>         
         
</body>