g_mainstate.asp

一个很好的在线购物系统

                                                                                                                          
     <td width="43" height="24" align="center" bgcolor="#DDD2C4">                                  
      <font size="2">签约                              
      </font>                              
     </td>                                                                                                                       
                                                                                                                          
     <td width="74" height="24" align="center" bgcolor="#DDD2C4">                                  
      <font size="2">业务员                              
      </font>                              
     </td>                                                                                                                       
                                                                                                                          
     <td width="60" height="24" align="center" bgcolor="#DDD2C4">                                  
      <font size="2">状态                            
      </font>                            
     </td>                                                                                                                      
                                                                                                                         
     <td width="88" height="24" align="center" bgcolor="#DDD2C4">                                 
      <font size="2">详细                             
      </font>                             
     </td>                                                                                                                      
                                                                                                                         
  </tr>                                                                                                                     
                                                                                                                     
     <% for n=1  to rslucy.pagesize%>                                         
                           
     <%if  n mod 2=1 then                                             
            bg="#f7f7f7"                                               
       else                                             
            bg="#EDEBEC"                                              
       end if%>                                                                                                                  
                                                                                                                       
  <tr bgcolor="<%=bg%>">                                                                                   
                                                                                                                  
                                                                                                                     
    <td width="26" height="23" align="center">                            
     <input type="checkbox" name="xz" value="<%=n%>" <%if rslucy("AuditingYN")="Y"  then                            
          response.write("disabled")                            
     end if                             
                                 
     %>>                            
     <input type="hidden" name="sid<%=n%>"  value="<%=rslucy("ID")%>">                            
                            
    </td>                                                                                                        
                                                                                                                  
                                                                                                                     
    <td width="152" height="23" align="center"><font size="2"></font><%=khname(rslucy("Clientnum"))%></td>                
    <%'if rslucy("CloseState")="" then               
                   
    %>                                                                                                       
      <td width="30" height="23" align="center"><font size="2"><%=rslucy("CloseState")%>&nbsp;                                 
    </font>                                 
    </td>                                                                                                                   
      <td width="35" height="23" align="center"><font size="2"><%=rslucy("InquiryState")%>&nbsp;                                 
       </font>                                 
    </td>                                                                                                                   
      <td width="33" height="23" align="center"><font size="2"><%=rslucy("Problem")%>&nbsp;                                 
       </font>                                 
    </td>                                                                                                                   
      <td width="27" height="23" align="center"><font size="2"><%=rslucy("ProjectState")%>&nbsp;</font></td>                                                                                                                   
      <td width="42" height="23" align="center"><font size="2"><%=rslucy("PriceTerm")%>&nbsp;</font></td>                                                                                                                    
      <td width="35" height="23" align="center"><font size="2"><%=rslucy("MainPerson")%>&nbsp;<font size="2"></td>                                                                                                                    
      <td width="41" height="23" align="center"><font size="2"><%=rslucy("UsherState")%>&nbsp;</font></td>                                                                                                                    
                                                                           
      <td width="45" height="23" align="center"><font size="2"><%=rslucy("VoteState")%>&nbsp;<font size="2"></td>                                  
                                                                                                     
      <td width="43" height="23" align="center"><font size="2"><%=rslucy("VisaState")%>&nbsp;<font size="2"></td>                                  
                                                                                                          
      <td width="74" height="23" align="center"><font size="2"><%=Pname(rslucy("stuffnum"))%>&nbsp;                             
       </font>                             
    </td>                             
                                                                                                     
      <td width="60" height="23" align="center">
      <% if rslucy("AuditingYN")="Y"  then                            
            response.write ("已审核")                            
         end if 
       if rslucy("AuditingYN")="YN"  then                            
            response.write ("审核未通过")                            
       end if 
       if rslucy("AuditingYN")="N"  then                            
            response.write ("未审核")                            
       end if                            
                                  
      %></td>                             
                                                                                                     
      <td width="88" height="23" align="center"><font size="2"><a href="G_statebrow.asp?ID=<%=rslucy("ID")%>&sh=<%=rslucy("AuditingYN")%>"  >详细</A></td>                             
                                                                                                     
  </tr>                                                                                                       
  <%                                                                                                       
     rslucy.movenext                                                                                                       
     if rslucy.eof then exit for                                                                                                       
  next                                                                                                       
  %>                                                                                                                      
 </table>                                                                                                                      
                                                                                                     
<p align="center">                                                                                                    
<font size="2">                                                                                                                     
   共<%=rslucy.pagecount%>页&nbsp; 第<%=page%>页&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_mainstate.asp?page=1">首页</a>&nbsp;<%if page>1 then %>                                                                                                                                       
   <a href="G_mainstate.asp?page=<%=(page-1)%>">上页</a>&nbsp;                                                                                                                                      
   <% else%>                                                                                                                                      
   上页&nbsp;                                                                                                                                      
  <%  end if%>                                                                                                                                      
    <%if page<rslucy.pagecount then %>                                                                                                                                     
   <a href="G_mainstate.asp?page=<%=(page+1)%>">下页</a>&nbsp;                                                                                                                                      
   <% else %>                                                                                                                                     
   下页&nbsp;                                                                                                                                      
  <%end if%><a href="G_mainstate.asp?page=<%=rslucy.pagecount%>">尾页</a>&nbsp;&nbsp;</font>                                           
 <%%>                                             
                                          
                                                                                                                                  
      <select  name="page1" style="width:80" size="1">                                                      
                                                            
                                            
       <% for o=1 to rslucy.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; <a href="javascript:window.print()"><font size="2">打印</font></a>                                                                                                                        
                                                                                                     
<p align="left">                                                                                                    
<input type="button" value="新增" name="B1" onclick="location.href='G_State.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">         
    
&nbsp;<input type="submit" value="删除" name="B1" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >                            
                 
&nbsp;<input type="button" value="明细查询" name="B1" onclick="location.href='G_statedetail.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">         
     
&nbsp;<input type="button" value="统计查询" name="B1" onclick="location.href='G_Statetj.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">         
     
&nbsp;<input type="button" value="审核" name="B1" onclick="location.href='G_Statesh.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">         
     
</form>                         
 <% end if %>                                    
</body>