d_jylsmainfrm.asp

一个很好的在线购物系统

            <a href="D_khsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>                                 
       <%end if%>                                 
       </center>                                                                      
       <input type="hidden" name="page2" value=<%=page2%>>                                                                           
       <input type="hidden" name="line" value=<%=line%>>                                                                                   
       <input type="hidden" name="par_id" value=<%=trim(Request("par_id"))%>><%'''''''客户序号%>                                                                      
       <input type="hidden" name="page1" value=<%=Request("page1")%>>                                                                      
       <input type="hidden" name="par_name" value=<%=Request("par_name")%>>                                                                      
       <input type="hidden" name="par_type"value=<%=Request("par_type")%>>                                                                      
       <input type="hidden" name="par_level" value=<%=Request("par_level")%>>                                  
       <input type="hidden" name="index" value=<%=request("index")%>>                                                                                        
       <%Response.End %>                                                                      
       <%end if%>                                                                      
                     
       <table border="0" cellpadding="0" cellspacing="0" width="100%">                
  <tr>                
    <td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">                 
      </font><font size="2">历史交易信息</font></b><hr width="40%" size="1" align="left">                       
                             
    </td>                       
  </tr>                       
</table>                  
                       
       <center><br>                                                              
       <table border=0 cellspacing=0 width="100%">                                                              
          <tr>                                                              
            <td>客户名称:&nbsp&nbsp<%=getName(m_id)%></td><td><input type="hidden" name="m_clientname" size=20 value=<%=getName(m_id)%>></td>                                                              
          </tr>                                                      
       </table>                                                               
       <table border=1 cellspacing=0 width="100%">                                                                     
          <tr>                                                              
            <td width="18" bgcolor="#DDD2C4"></td><td bgcolor="#DDD2C4">订单编号</td><td bgcolor="#DDD2C4" >订货日期</td><td bgcolor="#DDD2C4" >订货金额</td><td bgcolor="#DDD2C4" >业务员</td>                                                              
          </tr>                                                              
          <%if request("page2")<>"" then                                                                
               page2=cint(request("page2"))                                                              
            else                                                               
               page2=1                                                               
            end if                                                               
            rs.pagesize=10                                                              
            if page2>=rs.pagecount then                                                               
               page2=rs.pagecount                                                               
            else                                                               
               if page2<1 then                                                               
                  page2=1                                                               
               end if                                                               
            end if                                                               
            rs.AbsolutePage=page2                                                              
            line=0%>                                                                          
            <%for i=1 to rs.PageSize                                                              
                  line=cint(line)+1%>                       
                   <%if  line mod 2 =0 then%>                                
                               <%backcolor="#f7f7f7"%>                                
                            <%else%>                                                   
                               <%backcolor="#EDEBEC"%>                                
                            <%end if%>                                
                            <tr bgcolor=<%=backcolor%>>                                                                                      
                     <td width="18"><input type="checkbox"  name=<%="checkbox"&line%> value=1 id=checkbox1></td>                                                              
                         <input type="hidden"  name=<%="m_order"&line%> value=<%=rs.fields("ordernum")%> id=hidden1>                                                              
                     <td ><a href="D_JYLSMainFrm.asp?tag=1&m_order=<%=rs.Fields("ordernum")%>&page2=<%=page2%>&page1=<%=Request("page1")%>&lookup=<%=tag1%>&m_clientnum=<%=m_id%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>"><%=rs.Fields("ordernum")%></a>　</td>                                                              
                     <%if rs.Fields("Orddate")<>"" then%>                                                                                   
                          <td><%=rs.Fields("Orddate")%>　</td>                                                              
                     <%else%>                                                                   
                          <td >　</td>                                                              
                     <%end if%>                                                              
                     <%if GetMoney(rs.Fields("Ordernum"))<>"" then%>                                                              
                          <td ><%=GetMoney(rs.Fields("Ordernum"))%>　</td>                                                              
                     <%else%>                                                                   
                          <td >　</td>                                                               
                     <%end if%>                                                              
                     <%if GetYWYName(rs.Fields("Stuffnum"))<>"" then%>                                                              
                          <td><%=GetYWYName(rs.Fields("Stuffnum"))%>　</td>                                                               
                     <%else%>                                                                   
                          <td >　</td>                                                              
                     <%end if%>                                                              
                   </tr>                                                              
                    <%rs.MoveNext %>                                                              
                    <%if rs.EOF then exit for%>                                                              
              <%next %>                                                              
              <%if line<10 then%>                                                                
                   <%for i=line to 10%>                                                              
                        <tr><td width="18">　</td><td >　</td><td >　</td><td >　</td><td >　</td></tr>                                                              
                   <%next%>                                                              
              <%end if%>                                                              
              <input type="hidden" name="page2" value=<%=page2%>>                                                                           
              <input type="hidden" name="line" value=<%=line%>>                                                                           
              <input type="hidden" name="par_id" value=<%=trim(Request("par_id"))%>><%'''''''客户序号%>                                                              
              <input type="hidden" name="page1" value=<%=Request("page1")%>>                                                              
              <input type="hidden" name="par_name" value=<%=Request("par_name")%>>                                                              
              <input type="hidden" name="par_type"value=<%=Request("par_type")%>>                                                              
              <input type="hidden" name="par_level" value=<%=Request("par_level")%>>                            
              <input type="hidden" name="index" value=<%=request("index")%>>                                                                                     
          </table></center>             
       <p align="left"><br>                                                                          
                                                                         
            &nbsp; 共<%=rs.pagecount%>页&nbsp;&nbsp; 第<%=page2%>页&nbsp; <a href="D_JYLSmainFrm.asp?tag=2&index=<%=request("index")%>&page2=1&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">首页</a>                                                              
             <%if page1>1 then %>                                                                                                         
               <a href="D_JYLSmainFrm.asp?tag=2&index=<%=request("index")%>&page2=<%=(page2-1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">上页</a>                                                                                                      
             <% else%>                                                                                                       
       上页&nbsp; <%end if%>                                                                                           
             <%if page1<rs.pagecount then %>                                                                                                      
               <a href="D_JYLSmainFrm.asp?tag=2&index=<%=request("index")%>&page2=<%=(page2+1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">下页</a>                                                                                                      
             <% else %>                                                                                                      
       下页&nbsp; <% end if%>                                                               
             <a href="D_JYLSmainFrm.asp?tag=2&index=<%=request("index")%>&page2=<%=rs.PageCount%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">尾</a><a href="D_JYLSmainFrm.asp?tag=2&index=<%=request("index")%>&page2=<%=rs.PageCount%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">页</a>                                                                      
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;             
       &nbsp; &nbsp;&nbsp; <%rs.close%>                                                              
                                                                            
             <%aa="Lookup"%><br>                                   
             <%if request("index")="true" then%>                                                             
       <br>&nbsp;<a href="D_khindexsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>&nbsp;&nbsp;&nbsp;&nbsp;                                                              
             <%else%>                                 
       <br>&nbsp;<a href="D_khsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>&nbsp;&nbsp;&nbsp;&nbsp;                                                              
             <%end if%>                                 
        <%Response.End %>                                                                      
    <%end if%>                                                                      
   <%if Request("tag")=1 then%><%''''''''''''''''''查看具体信息%>                                                                         
         <%par_id=Request("m_clientnum")%><%'''''''''''客户序号%>                                                                      
         <%m_order=Request("m_order")%>                                                                      
                                                                       
         <%set rs6=server.CreateObject("adodb.recordset")%>