d_intentmainfrm.asp

一个很好的在线购物系统

             <%rs.close%>                                                                                         
                                                        
             <%aa="Lookup"%><br>                                                                         
                                                                                             
           </form>                 
            <%if request("index")="true" then%>                  
                 <center><br><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></center>                                                                                    
            <%else%>                                                                                                   
                 <center><br><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></center>                                                                                    
            <%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")%>                                                                                                          
         <%rs6.open "select * from F_Tblintent where Ordernum='"& m_order &"' and clientnum='"& par_id &"'",pubconn,1,3%>                                                                                                        
         <%if rs6.recordcount>0 then%>                                                                                                        
</font>                                                                                               
           <table border="0" width="100%">           
                <tr>           
                 <td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15">  <b><font size="2">客户需求信息</font></b><hr width="70%" align="left" size="1"></td>            
                </tr>            
       </table>            
                                                                       
           <table border=1 cellspacing=0 width="100%">                                                                                   
                <tr bgcolor="ffffDf">                                                                                   
                   <td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8" width="12%" align="right">需求编号</td><td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8"><input type="text" size=12 readonly name="m_order" style="background-color: #edefef" value=<%=m_order%>></td>                                                                                   
                   <td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8">   
                    <p align="right">客户名称</p>  
                   </td><td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8"><input type="text" size=19 readonly name="m_clientnum" style="background-color: #edefef"  value=<%=getNameByOrder(m_order)%>></td>                                                                                  
                   <td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8">  
                    <p align="right">预计订货日期</p>  
                   </td><td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8">  
                    <p align="left"><input type="text" size=12 readonly name="m_date" style="background-color: #edefef"  value=<%=rs6.fields("orddate")%>></p>  
                   </td>                                                                                  
                </tr>                                                                                  
                <tr bgcolor="ffffDf">                                                                                     
                   <td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8" width="12%" align="right">订货金额</td><td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8"><input type="text" size=12 readonly name="m_money" style="background-color: #edefef"  value=<%=GetMoney(m_order)%>></td>                                                                                  
                   <td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8">  
                    <p align="right">业务员</p>  
                   </td><td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8"><input type="text" size=19 readonly name="m_stuffnum" style="background-color: #edefef"  value=<%=Getstuff(rs6.fields("clientnum"))%>></td>                                                                                                     
                   <td colspan=2 bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8">　</td>                                                                           
                </tr>                                                                                     
                <tr bgcolor="ffffDf">      
                <%bz=""     
                sql="select * from f_tblintentdetail where Ordernum='"& m_order &"'"     
                set brs=pubconn.execute(sql)     
                do while not brs.eof      
                bz=bz&trim(brs("remark"))     
                brs.movenext     
                loop%>                                                                                 
                   <td bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8" width="12%" align="right">备注</td><td colspan=5 align="center" bgcolor="#F0E8D8" bordercolor="#F1E8D9" bordercolorlight="#F0E8D8">   
                  <p align="left"><input type="text" readonly size=50 name="m_remark"  style="background-color: #edefef" value=<%=bz%>></p>  
                </td>                                                                                 
                </tr>                                                                                 
             </table> <br>                                                                                 
             <%set rs1=server.CreateObject("adodb.recordset")%>                                                                                  
             <%rs1.open "select * from F_TblintentDetail where ordernum='"& m_order &"'",pubconn,1,3%>                                                                                  
               <%if rs1.recordcount>0then%>                                                                                                
                  <table border=1 cellspacing=0 width="553">                                                                                  
                      <tr>                                                                                  
                         <td bgcolor="#DDD2C4" align="center" width="76">商品名称</td><td bgcolor="#DDD2C4" align="center" width="76">商品规格</td><td bgcolor="#DDD2C4" align="center" width="94">定价(含税)<td bgcolor="#DDD2C4" align="center" width="78">计量单位</td><td bgcolor="#DDD2C4" align="center" width="44">数量</td><td bgcolor="#DDD2C4" align="center" width="54">金额</td>                                                                                                           
                      </tr>                                                                                  
                        <%line=0%>                                                                                             
                        <%rs1.movefirst%>                                                                                   
                        <%while not rs1.eof                                                                                  
                            line=cint(line)+1%>                                                        
                            <%if  line mod 2 =0 then%>                                                        
                                <%backcolor="#f7f7f7"%>                                                        
                            <%else%>                                                                           
                                <%backcolor="#EDEBEC"%>                                                        
                            <%end if%>                                                        
                          <tr bgcolor=<%=backcolor%>>                                                                        
                               <%if GetProdNameByCode(rs1.fields("Prodcode"))<>"" then%>                                                                                     
                                   <td align="center" width="76"><%=GetProdNameByCode(rs1.fields("Prodcode"))%>　</td>                                                                      
                               <%else%>                                                                                  
                                   <td align="center" width="76">　</td>                                                                      
                               <%end if%>                                                                      
                               <%if GetProdStandByCode(rs1.fields("Prodcode"))<>"" then%>                                                                      
                                   <td align="center" width="94"><%=GetProdStandByCode(rs1.fields("Prodcode"))%>　</td>                                                                      
                               <%else%>                                                                                  
                                   <td align="center" width="78">　</td>                                                                                                 
                               <%end if%>                                                                      
                               <%if GetPriceByProd(rs1.fields("Prodcode"))<>"" then%>                                                                     
                                   <td align="center" width="44"><%=GetPriceByProd(rs1.fields("Prodcode"))%>　</td>                                                                                  
                               <%else%>                                                                         
                                   <td align="center" width="54">　</td>                                                                     
                               <%end if%>                                                                     
                                                                                                  
                               <%if GetProdUnitByCode(rs1.fields("Prodcode"))<>"" then%>                                                                    
                                   <td align="center" width="12"><%=GetProdUnitByCode(rs1.fields("Prodcode"))%>　</td>                                                                                  
                               <%else%>                                                                        
                                   <td align="center" width="8">　</td>                                                                    
                               <%end if%>                                                                    
                               <%if rs1.fields("quantity")<>"" then%>                                                                    
                                   <td align="center" width="20"><%=rs1.fields("quantity")%>　</td>                                                                                  
                               <%else%>                                                                        
                                   <td align="center" width="8">　</td>                                                                    
                               <%end if%>                                                                    
                               <%if rs1.fields("money")<>"" then%>                                                                    
                                   <td align="center" width="20"><%=rs1.fields("money")%>　</td>                                                                                  
                               <%else%>                                                                        
                                   <td align="center" width="13">　</td>                                                                    
                               <%end if%>                                                                    
                            </tr>                                                                                  
                            <%rs1.MoveNext %>                                                                                                              
                        <%wend%>                                                                                  
                                                                                                                          
                                                                                                           
                  </table>                                                                                  
             <%else%><%''''''''''''''''''订单子表不存在%>                                                                                  
                 <table border=1 cellspacing=0 width="535">                                                                                  
                      <tr>                                                                                  
                         <td bgcolor="#DDD2C4" align="center" width="77">商品名称</td><td bgcolor="#DDD2C4" align="center" width="77">商品规格</td><td bgcolor="#DDD2C4" align="center" width="96">定价(含税)</td><td bgcolor="#DDD2C4" align="center" width="96">最近成交价</td><td bgcolor="#DDD2C4" align="center" width="77">计量单位</td><td bgcolor="#DDD2C4" align="center" width="39">数量</td><td bgcolor="#DDD2C4" align="center" width="43">金额</td>                                                                                                           
                      </tr>                                                                                  
                                                                                                       
                 </table>                                                                                       
             <%end if%>                                                                                  
          <%else%>   <%'''''''''''''''''''订单表的主表不存在%>                                                                                  
                                                                                                
         <%end if%>                                                                                  
         <%aa="Lookup"%><br>                                                  
                                                        
<font size="2">                                                  
                                                        
        <a href="D_IntentMainFrm.asp?tag=2&index=<%=request("index")%>&lookup=<%=aa%>&page1=<%=Request("page1")%>&page2=<%=Request("page2")%>&par_id=<%=par_id%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>                                                                                  
         <%Response.End %>                                                                                                  
    <%end if%>                                                                                                  
</form>                                                                                                      
</font>                                                                                                     
</BODY>                                                                                   
</HTML>