d_jylsmainfrm.asp

一个很好的在线购物系统

         <%rs6.open "select * from viewsk where Ordernum='"& m_order &"' and clientnum='"& par_id &"'",pubconn,1,3%>                                                                      
         <%if rs6.recordcount>0 then%>                                                                      
                       
       <center>                                                                      
        <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>   <br>                                                             
             <table border=1 cellspacing=0 width="100%">                                                              
                 <tr bgcolor="ffffDf">                                                              
                   <td bgcolor="#F0E8D8" align="right" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8">订单编号</td><td bgcolor="#F0E8D8" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8"><input type="text" size=12 name="m_order" readonly value=<%=m_order%>></td>                                                              
                   <td bgcolor="#F0E8D8" align="right" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8">客户名称</td><td bgcolor="#F0E8D8" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8"><input type="text" size=19 name="m_clientnum" readonly value=<%=getNameByOrder(m_order)%>></td>                                                              
                   <td bgcolor="#F0E8D8" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8">                
                   <p align="right">                
                   订货日期</p>                
                   </td><td bgcolor="#F0E8D8" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8"><input type="text" size=12 name="m_date" readonly value=<%=rs6.fields("orddate")%>></td>                                                              
                </tr>                                                              
                <tr bgcolor="ffffDf">                                                                 
                   <td bgcolor="#F0E8D8" align="right" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8">订货金额</td><td bgcolor="#F0E8D8" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8"><input type="text" size=12 name="m_money" readonly value=<%=GetMoney(m_order)%>></td>                                                              
                   <td bgcolor="#F0E8D8" align="right" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8">业 务 员</td><td bgcolor="#F0E8D8" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8"><input type="text" size=19 name="m_stuffnum" readonly value=<%=GetStuffByOrder(m_order)%>></td>                                                                                 
                   <td colspan=2 bgcolor="#F0E8D8" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8">　</td>                                                    
                </tr>                                                                 
                <tr bgcolor="ffffDf">                
                <%'bz=""                
                'sql7="select * from f_tblorderdetail where ordernum='"& m_order &"'"                
                'set rs7=pubconn.execute(sql7)                
                'do while not rs7.eof                 
                'bz=bz+","+rs7("remark")                
               ' rs7.movenext                
               ' loop                
               'bz=trim(replace(bz,",","",1,1))%>                                                              
             <!--     <td bgcolor="#F0E8D8" align="right" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8">&nbsp;备&nbsp;             
                    注&nbsp;</td></center><td colspan=5 align="center" bgcolor="#F0E8D8" bordercolor="#F0E8D8" bordercolorlight="#F0E8D8" bordercolordark="#F0E8D8">            
                  <p align="left"><input type="text" readonly size=51 name="m_remark" value=<%=bz%>></p>            
                 </td>  -->                                                                 
                </tr>                                                             
             </table>                  
                      
       <center> <br>                                                             
             <%set rs1=server.CreateObject("adodb.recordset")%>                                                              
             <%rs1.open "select * from viewtzd where ordernum='"& m_order &"'",pubconn,1,3%>                                                             
               <%if rs1.recordcount>0then%>                                                                           
                  <table border=1 cellspacing=0 width="100%">                                                             
                      <tr>                                                             
                         <td bgcolor="#DDD2C4">商品名称</td><td bgcolor="#DDD2C4">商品规格</td><td bgcolor="#DDD2C4">扣率</td><td bgcolor="#DDD2C4">计量单位</td><td bgcolor="#DDD2C4">数量</td><td bgcolor="#DDD2C4">金额</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><%=GetProdNameByCode(rs1.fields("Prodcode"))%>　</td>                                                             
                               <%else%>                             
                                     <td>　</td>                              
                               <%end if%>                             
                               <%if  GetProdStandByCode(rs1.fields("Prodcode"))<>"" then%>                             
                                     <td><%=GetProdStandByCode(rs1.fields("Prodcode"))%>　</td>                                                                                                
                               <%else%>                             
                                     <td>　</td>                             
                               <%end if%>                             
                               <%if rs1.fields("deduct")<>"" then%>                            
                                     <td><%=rs1.fields("deduct")%>　</td>                            
                               <%else%>                             
                                     <td>　</td>                             
                               <%end if%>                             
                               <%if GetProdUnitByCode(rs1.fields("Prodcode"))<>"" then%>                                                           
                                     <td><%=GetProdUnitByCode(rs1.fields("Prodcode"))%>　</td>                                                             
                               <%else%>                             
                                     <td>　</td>                             
                               <%end if%>                             
                               <%if rs1.fields("quantity")<>"" then%>                            
                                     <td><%=rs1.fields("quantity")%>　</td>                             
                               <%else%>                             
                                     <td>　</td>                             
                               <%end if%>                                                      
                               <%if rs1.fields("money")<>"" then%>                                   
                                     <td><%=rs1.fields("money")%>　</td>                             
                               <%else%>                             
                                     <td>　</td>                             
                               <%end if%>                                                             
                            </tr>                                                             
                            <%rs1.MoveNext %>                                                                                         
                        <%wend%>                                                             
                        <%if line<10 then%>                                                               
                            <%for i=line to 10%>                                                             
                                <tr><td>　</td><td>　</td><td>　</td><td>　</td><td>　</td><td>　</td></tr>                                                             
                            <%next%>                                                             
                        <%end if%>                                                                                
                                                                                      
                  </table>                                                             
             <%else%><%''''''''''''''''''订单子表不存在%>                                                             
                 <table border=1 cellspacing=0 width="100%">                                                             
                      <tr>                                                             
                         <td bgcolor="#DDD2C4">商品名称</td><td bgcolor="#DDD2C4">商品规格</td><td bgcolor="#DDD2C4">定价(含税)</td><td bgcolor="#DDD2C4">扣率</td><td bgcolor="#DDD2C4">成交价</td><td bgcolor="#DDD2C4">计量单位</td><td bgcolor="#DDD2C4">数量</td><td bgcolor="#DDD2C4">金额</td>                                                                                      
                      </tr>                                                             
                      <%for i=1 to 10%>                                                             
                          <tr><td>　</td><td>　</td><td>　</td><td>　</td><td>　</td><td>　</td><td>　</td><td>　</td></tr>                                                             
                      <%next%>                                                             
                 </table>                                                                  
             <%end if%>                                                             
          <%else%>   <%'''''''''''''''''''订单表的主表不存在%>                                                             
                                                                           
         <%end if%>                                                             
         <%aa="Lookup"%><br>                                 
        <center><a href="D_JYLSmainFrm.asp?index=<%=request("index")%>&tag=2&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></center>                                                             
         <%Response.End %>                                                                      
    <%end if%>                                                                      
</form>                                                                  
</BODY>                                                              
</HTML>