d_flowmainfrm.asp

一个很好的在线购物系统

                                         wend%> <% end if%>
                              </select></td>                         
          </tr>                         
          <tr>                         
            <td width="122" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">技术/质量评估</td><td width="167" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select  name="m_Assert" style="width: 166; height: 23"> 
                                 <option value="">请选择: <%set rs1=server.CreateObject("adodb.recordset")
                                   if rs1.state=1 then rs1.close
                                   rs1.open "select * from A_DepartInfo",pubconn,1,3
                                   if rs1.recordcount>0 then%> <%rs1.movefirst
                                        while not rs1.eof%>
                                             <option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%> <%rs1.movenext
                                         wend%> <%end if%>
                              </select></td>            </tr>                         
          <tr>                         
            <td width="122" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">&nbsp;考&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 察</td><td width="167" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select  name="m_Check" style="width: 167; height: 23">                                                
                                 <option value="">请选择: <%set rs1=server.CreateObject("adodb.recordset")
                                   if rs1.state=1 then rs1.close
                                   rs1.open "select * from A_DepartInfo",pubconn,1,3
                                   if rs1.recordcount>0 then%> <%rs1.movefirst
                                        while not rs1.eof%>
                                            <option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%> <%rs1.movenext
                                         wend%> <% end if%>
                              </select></td>             </tr>  
          <tr>    
            <td width="122" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">&nbsp;价 格 谈 判</td><td width="167" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select  name="m_TalkPrice" style="width: 166; height: 23">                                                
                                 <option value="">请选择: <%set rs1=server.CreateObject("adodb.recordset")
                                   if rs1.state=1 then rs1.close
                                   rs1.open "select * from A_DepartInfo",pubconn,1,3
                                   if rs1.recordcount>0 then%> <%rs1.movefirst
                                        while not rs1.eof%> 
                                           <option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%> <%rs1.movenext
                                         wend%> <% end if%>
                              </select></td>            </tr>   
          <tr>  
           <td width="122" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">&nbsp;签&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 约</td><td width="167" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select  name="m_Sign" style="width: 166; height: 23">                                                
                                 <option value="">请选择: <%set rs1=server.CreateObject("adodb.recordset")
                                   if rs1.state=1 then rs1.close
                                   rs1.open "select * from A_DepartInfo",pubconn,1,3
                                   if rs1.recordcount>0 then%> <%rs1.movefirst
                                        while not rs1.eof%> 
                                              <option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%> <%rs1.movenext
                                         wend%> <% end if%>
                              </select></td>           </tr>                    
     </table></center><br>                   




     <%else%>                                                                               
        <center><table border=1 cellspacing=0 width="311">                                                      
          <tr>                                                                   
            <td width="124" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">&nbsp;收 集 信 息</td><td width="178" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select  name="m_CollectInfo" style="width: 177; height: 23">                                                                                          
                                 <%set rs1=server.CreateObject("adodb.recordset")                                                   
                                   if rs1.state=1 then rs1.close                                                   
                                   rs1.open "select * from A_DepartInfo",pubconn,1,3                                                   
                                   if rs1.recordcount>0 then%>                                           
                                       <%rs1.movefirst                                                   
                                        while not rs1.eof%>                                            
                                            <%if rs1.fields("DepartCode")=rs.fields("CollectInfo") then%>                                                   
                                                <option value=<%=rs1.fields("DepartCode")%> selected><%=rs1.fields("Name")%>                                       
                                           <%else%>                                                 
                                                <option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%>                                           
                                           <%end if%>                                                                               
                                          <%rs1.movenext                                                   
                                         wend%>                                            
                                   <%end if%>                                                   
                              </select></td>                                                                            
          </tr>                                                                            
          <tr>                                                                            
            <td width="124" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">技术/质量评估</td><td width="178" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select  name="m_Assert" style="width: 178; height: 23">                                                    
                                  <%set rs1=server.CreateObject("adodb.recordset")                                                   
                                   if rs1.state=1 then rs1.close                                                   
                                   rs1.open "select * from A_DepartInfo",pubconn,1,3                                                   
                                   if rs1.recordcount>0 then%> <%rs1.movefirst                                                   
                                        while not rs1.eof%>                                        
                                           <%if rs1.fields("DepartCode")=rs.fields("Assert") then%>                                                   
                                                <option value=<%=rs1.fields("DepartCode")%> selected><%=rs1.fields("Name")%>                                                                                
                                           <%else%>                                       
                                                <option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%>                                                                                      
                                           <%end if%>                                                                                              
                                          <%rs1.movenext                                                       
                                         wend%> <% end if%>                                                   
                              </select></td>            </tr>                                                                            
          <tr>                                                                            
            <td width="124" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">&nbsp;考&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 察</td><td width="178" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select  name="m_Check" style="width: 177; height: 23">                                                            
                                 <%set rs1=server.CreateObject("adodb.recordset")                                                   
                                   if rs1.state=1 then rs1.close                                                   
                                   rs1.open "select * from A_DepartInfo",pubconn,1,3                                                   
                                   if rs1.recordcount>0 then%> <%rs1.movefirst                                                   
                                        while not rs1.eof%>                                        
                                             <%if rs1.fields("DepartCode")=rs.fields("Check") then%>                                                   
                                                <option value=<%=rs1.fields("DepartCode")%> selected><%=rs1.fields("Name")%>                                        
                                             <%else%>                                          
                                                <option value=<%=rs1.fields("DepartCode")%>><%=rs1.fields("Name")%>                                        
                                             <%end if%>                                                                                              
                                           <%rs1.movenext                                                     
                                         wend%> <% end if%>                                                   
                              </select></td>             </tr>                                                     
          <tr>                                                       
            <td width="124" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">&nbsp;价 格 谈 判</td><td width="178" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select  name="m_TalkPrice" style="width: 177; height: 23">                                                            
                                 <%set rs1=server.CreateObject("adodb.recordset")                                                   
                                   if rs1.state=1 then rs1.close                                                   
                                   rs1.open "select * from A_DepartInfo",pubconn,1,3                                                   
                                   if rs1.recordcount>0 then%>                                        
                                        <%rs1.movefirst                                                   
                                        while not rs1.eof%>