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

📄 d_intentmainfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
</script>



     
     
  <%if Request("tag")=2 then%><%'''''''''''''''''''''''''''''''''''''''第一次装载%>
  
  <%m_id=trim(Request("par_id"))%><%'''''''客户序号%>  
  <%set rs=server.CreateObject("adodb.recordset")
    rs.Open "select * from F_Tblintent where Clientnum='"& m_id &"' and departid like '"&departid&"%'",pubconn,1,3%>    
    <form name="form1"  method="post" action="D_IntentMainFrm.asp?tag=88">       
       <%
       if rs.RecordCount<=0 then%>         
       <%aa="Lookup"%>
       <br><br><br><br><br><center><font size="2">提示:<%=getName(m_id)%>尚未建立需求信息!<br></font><br><br><br>
       <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")%>>                                                                                                                               
       <center>       
       <%if userclass>1 then%>    
       <input type="button" value="新增" onclick="NewSetup()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"></center>  <br><br>                                                                 
       <%else%>    
   <input type="button" value="新增"  style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="javascript:location.href='qx.asp'">       
 <%end if%>       
 <%if request("index")="true" then%>                                                     
       <font size="2">                                                        
          <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>                                                                  
       <%else%>                                                                        
          <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%>                                                                        
       </font>                                                                       
       </center>                                                                                                  
                                                         
       <%Response.End %>                                                                                    
       <%end if%>                                                                                                        
                        
         <table border="0" width="100%">           
                <tr>           
                 <td width="100%" valign="middle"><font size="2"><img border="0" src="it_22.gif" width="34" height="15">  <b>客户需求信息</b></font><hr width="40%" align="left" size="1"></td>            
                </tr>            
       </table>            
                                                                                
       <table border=0 cellspacing=0 width="100%">                                                                                   
          <tr>                                                                                   
            <td><font size="2">客户名称: &nbsp;&nbsp;<%=getName(m_id)%></font></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="30" bgcolor="#DDD2C4" align="center"><font size="2">操作</font></td><td bgcolor="#DDD2C4" align="center" width="66"><font size="2">需求编号</font></td><td bgcolor="#DDD2C4" align="center" width="113"><font size="2">预计购买日期</font></td><td bgcolor="#DDD2C4" align="center" width="156"><font size="2">预计购买金额(元)</font></td><td bgcolor="#DDD2C4" align="center" width="72"><font size="2">业务员</font></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="30">    
                     <%if (userclass=2 and username=rs("authors") and departid=rs("departid")) or (userclass=3 and departid=rs("departid")) then%>                                   
                     <a href="../order/intent/sc.asp?tag=2&&kh=1&ddbh=<%=rs("ordernum")%>&khxh=<%=rs("clientnum")%>&page2=<%=page2%>&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>&index=<%=request("index")%>"><font size="2">操作</font></a>    
                     <%else%>    
                     <a href="qx.asp"><font size="2">编辑</font></a>     
 					 <%end if%>    
    
                     </td>                                                                                 
                         <input type="hidden"  name=<%="m_order"&line%> value=<%=rs.fields("ordernum")%> >                                                                                 
                     <td align="center" width="66"><font size="2"><a href="D_IntentMainFrm.asp?tag=1&index=<%=request("index")%>&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> </font></td>                                                                                 
                     <%if rs.Fields("Orddate")<>"" then%>                                                                                                      
                          <td align="center" width="113"><font size="2"><%=rs.Fields("Orddate")%> </font></td>                                                                                 
                     <%else%>                                                                                      
                          <td align="center" width="156"> </td>                                                                                 
                     <%end if%>                                                                                 
                     <%if GetMoney(rs.Fields("Ordernum"))<>"" then%>                                                                                 
                          <td align="center" width="72"><font size="2"><%=GetMoney(rs.Fields("Ordernum"))%></font></td>                                                                                 
                     <%else%>                                                                                      
                          <td width="8"> </td>                                                                                  
                     <%end if%>                                                                                 
                     <%if GetYWYName(rs.Fields("Stuffnum"))<>"" then%>                                                                                 
                          <td width="20"><font size="2"><%=GetYWYName(rs.Fields("Stuffnum"))%> </font></td>                                                                                  
                     <%else%>                                                                                      
                          <td width="7"> </td>                                                                                 
                     <%end if%>                                                                                 
                   </tr>                                                                                 
                    <%rs.MoveNext %>                                                                                 
                    <%if rs.EOF then exit for%>                                                                                 
              <%next %>                                                                                 
                                                                                          
              <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><hr color="#FFFFFF"><br>     
           <%if userclass>1 then%>    
          <input type="button" value="新增" onclick="NewSetup()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">                                                                                                                                                                        
           <%else%>     
   <input type="button" value="新增"  style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="javascript:location.href='qx.asp'">       
 <%end if%>      
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;          
       <a href="D_IntentMainFrm.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")%>"><font    
       size="2">首页</font></a>                                                                                   
       <font size="2">                                                                                         
             <%if page1>1 then %>                                                                                                                                     
               <a href="D_IntentMainFrm.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_IntentMainFrm.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_IntentMainFrm.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;                                                                                                        
             共<%=rs.pagecount%>页&nbsp;&nbsp; 第<%=page2%>页</font>                                                                                                        

⌨️ 快捷键说明

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