flagset.asp

物流管理系统

        if not rs_type.eof then
        rs_type.movefirst
			i = 0
			dim type_i
			type_i = 1
			dim id,type_name
			type_record_no = rs_type.recordcount
			%>
			<input type="hidden" name="type_no" value="<%=type_record_no%>">		
		<%
			
			do while not rs_type.eof 
				
				id = rs_type("id")
				type_name = rs_type("type_name")
        %>
                <tr> 
                <td width="13%" height="19" valign="middle" bgcolor="#D8C8A8"> 
                  <div align="left"><b><font color="#330099">
                  <%if i =0 then
						Response.write "产品分类"
                    else
						Response.Write "&nbsp;"
					end if
                  %></font></b></div>
                </td>
               <%
               for t=0 to 7 step 1
				
				%>
				<td width="4%" height="19" valign="middle"   bgcolor="#F8F4E0"> 
                  <div align="left"> 
                  
                   <%
                  if view <> "" then
						dim prodflagtrue
						prodflagtrue = 8
						if have_nothing <> 0 then
			                  for ver = 0 to userno
									if  id = FlagUser(ver,1)  then
								%>
								<input type="checkbox"  id="check_box"  name="type<%=type_i%>" value="<%=id%>" checked>
					  			<%=type_name%></div></td>
														
								<%
								prodflagtrue = 1
								type_i = type_i + 1
									exit for
									end if
	                  
							  next
						 end if
		              if prodflagtrue <> 1 then
							Response.Write "<input type=""checkbox""  id=""check_box""  name=type"&type_i &" value="&id&">"&type_name&"</div></td>"
							prodflagtrue = 8
							type_i = type_i + 1
					  end if
                  else
                  %>
                  
                  <input type="checkbox"  id="check_box"  name="type<%=type_i%>" value="<%=id%>" checked>
                  	<%=type_name%></div>
                </td>
                <%
                type_i = type_i + 1
                end if
                i = i + 1
                rs_type.movenext
                
                if rs_type.eof and t < 7 then 
                for u=t+1 to 7 step 1
                %>
                <td width="4%" height="19" valign="middle"   bgcolor="#F8F4E0"> 
                  <div align="left"> 
                  	&nbsp;</div>
                </td>
                
                <%
                next
                exit for
                end if
                id = rs_type("id")
                type_name = rs_type("type_name")
                next
                
                loop
             else
             %>
             <tr> 
                <td width="13%" height="19" valign="middle" bgcolor="#D8C8A8"> 
                  <div align="left"><b><font color="#330099">产品分类</font></b></div>
                </td>
             </tr>
             <%
				rs_type.Close
				set rs_type = nothing
				call closedatabase
				Response.Write "<script language=javascript>{"
				Response.Write "alert(""请先设置产品类型!"");"
				response.write "history.go(-1);"
				Response.Write "}</script>"
				response.end
             end if
             rs_type.close
             set rs_type = nothing
             
             if request("flagview") = "" then
                %>
              <tr> 
                <td width="13%" height="19" valign="middle" bgcolor="#D8C8A8"> 
                  <div align="left"><b><font color="#330099">功能分类</font></b></div>
                </td>  
				 <td width="10%" height="19" valign="middle" bgcolor="#F4F4E8"> 
                  <div align="left"> 
                  
                   <%
                  if view <> "" then
						dim serviceflagtrue
						serviceflagtrue = 8
						if have_nothing <> 0 then
		                  for ver = 0 to userno
								if  FlagUser(ver,2) = true  then
								%>
								<input type="checkbox"  id="check_box"  name="service" value="checkbox" checked>
					  	客服</div>
						</td>							
								<%
								serviceflagtrue = 1
								exit for
								end if
	                  
							next
						  end if
		              if serviceflagtrue <> 1 then
							Response.Write "<input type=""checkbox""  id=""check_box""  name=""service"" value=""checkbox"">客服</div></td>"
							serviceflagtrue = 8
					  end if
                  else
                  %>
                  
                  <input type="checkbox"  id="check_box"  name="service" value="checkbox" checked>
                  	客服</div>
                </td> 
                <%
                end if
                %> 
                            
				<td width="10%" height="19" valign="middle" bgcolor="#F4F4E8"> 
                  <div align="left"> 
                           <%
                  if view <> "" then
						dim stockflagtrue
						stockflagtrue = 8
	                  if have_nothing <> 0 then
		                
	                  for ver = 0 to userno
							if  FlagUser(ver,3) = true  then
							%>
							<input type="checkbox"  id="check_box"  name="stock" value="checkbox" checked>
                  	仓管</div>
                </td>							
							<%
							stockflagtrue = 1
							exit for
							end if
	                  
		              next
		              end if  
		              if stockflagtrue <> 1 then
							Response.Write "<input type=""checkbox""  id=""check_box""  name=""stock"" value=""checkbox"">仓管</div></td>"
							stockflagtrue = 8
					  end if
                  else
                  %>
                  
                  <input type="checkbox"  id="check_box"  name="stock" value="checkbox" checked>
                  	仓管</div>
                </td>
                <%
                end if
                %>   
                <td width="10%" height="19" valign="middle" bgcolor="#F4F4E8"> 
                  <div align="left">
                                  <%
                  if view <> "" then
						dim cullflagtrue
						cullflagtrue = 8
	                  if have_nothing <> 0 then
		                
	                  for ver = 0 to userno
							if  FlagUser(ver,4) = true  then
							%>
							<input type="checkbox"  id="check_box"  name="cull" value="checkbox" checked>
                  	 分拣</div>
                </td>							
							<%
							cullflagtrue = 1
							exit for
							end if
	                  
		              next
		              end if
		              if cullflagtrue <> 1 then
							Response.Write "<input type=""checkbox""  id=""check_box""  name=""cull"" value=""checkbox"">分拣</div></td>"
							cullflagtrue = 8
					  end if
                  else
                  %> 
                  <input type="checkbox"  id="check_box"  name="cull" value="checkbox" checked>
                  	分拣</div>
                </td>
                <%
                end if
                %>
                <td width="10%" height="19" valign="middle" bgcolor="#F4F4E8"> 
                  <div align="left">
                                  <%
                  if view <> "" then
						dim attemperflagtrue
						attemperflagtrue = 8
	                  if have_nothing <> 0 then
		                
	                  for ver = 0 to userno
							if  FlagUser(ver,5) = true  then
							%>
							<input type="checkbox"  id="check_box"  name="attemper" value="checkbox" checked>
                  	调度</div>
                </td>							
							<%
							attemperflagtrue = 1
							exit for
							end if
	                  
		              next
		              end if
		              if attemperflagtrue <> 1 then
							Response.Write "<input type=""checkbox""  id=""check_box""  name=""attemper"" value=""checkbox"">调度</div></td>"
							attemperflagtrue = 8
					  end if
                  else
                  %> 
                  <input type="checkbox"  id="check_box"  name="attemper" value="checkbox" checked>
                  	调度</div>
                </td>
                <%
                end if
                %>
                <td width="10%" height="19" valign="middle" bgcolor="#F4F4E8"> 
                  <div align="left">
                                  <%
                  if view <> "" then
						dim signflagtrue
						signflagtrue = 8
	                  if have_nothing <> 0 then
		                
	                  for ver = 0 to userno
							if  FlagUser(ver,6) = true  then
							%>
							<input type="checkbox"  id="check_box"  name="sign" value="checkbox" checked>
                  	签收</div>
                </td>							
							<%
							signflagtrue = 1
							exit for
							end if
	                  
		              next
		              end if
		              if signflagtrue <> 1 then
							Response.Write "<input type=""checkbox""  id=""check_box""  name=""sign"" value=""checkbox"">签收</div></td>"
							signflagtrue = 8
					  end if
                  else
                  %> 
                  <input type="checkbox"  id="check_box"  name="sign" value="checkbox" checked>
                  	签收</div>
                </td>
                <%
                end if
                %>              
	            <td width="10%" height="19" valign="middle" bgcolor="#F4F4E8"> 
                  <div align="left">
                  <%
                  if view <> "" then
						dim codeflagtrue
						codeflagtrue = 8
	                  if have_nothing <> 0 then
		                
	                  for ver = 0 to userno
							if  FlagUser(ver,7) = true  then
							%>
							<input type="checkbox"  id="check_box"  name="code" value="checkbox" checked>
                  	录入</div>
                </td>							
							<%
							codeflagtrue = 1
							exit for
							end if
	                  
		              next
		              end if
		              if codeflagtrue <> 1 then
							Response.Write "<input type=""checkbox""  id=""check_box""  name=""code"" value=""checkbox"">录入</div></td>"
							codeflagtrue = 8
					  end if
                  else
                  %> 
                  <input type="checkbox"  id="check_box"  name="code" value="checkbox" checked>
                  	录入</div>
                </td>
                <%
                end if
                %>           
	            <td width="10%" height="19" valign="middle" bgcolor="#F4F4E8"> 
                  <div align="left">
                  <%
                  if view <> "" then
						dim editflagtrue
						editflagtrue = 8
	                 if have_nothing <> 0 then
		                
	                  for ver = 0 to userno
							if  FlagUser(ver,8) = true  then
							%>
							<input type="checkbox"  id="check_box"  name="edit" value="checkbox" checked>
                  	修改</div>
                </td>							
							<%
							editflagtrue = 1
							exit for
							end if
	                  
		              next
		              end if  
		              if editflagtrue <> 1 then
							Response.Write "<input type=""checkbox""  id=""check_box""  name=""edit"" value=""checkbox"">修改</div></td>"
							editflagtrue = 8
					  end if
                  else
                  %> 
                  <input type="checkbox"  id="check_box"  name="edit" value="checkbox" checked>
                  	修改</div>
                </td>
                <%
                end if
                %>
                <td width="10%" height="19" valign="middle" bgcolor="#F4F4E8">&nbsp;</td>              
				</tr>
	          <%
	          end if
	          %>  	
              <tr bgcolor="#FFF7E7"> 
                  <td   colspan="8">
                  &nbsp;
                  </td>
                  <td>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
                    <INPUT TYPE="checkbox" value="Check All" id=check1 onClick="this.value=check(this.form.check_box)" checked>
                   <label for="check1"> 全选</label></td>
              </tr>
      
            </table>
            <tr>
   <td>
	<%
	if view = "" then
	%>
    <input class=buttonface type=submit name=ok value=" 确 定 ">　
	<%
	else
	%>
	 <input class=buttonface type=submit name=editbutton value=" 修 改 ">　
	<%
	end if
	%>
           <input class=buttonface type=button name=retu value=" 返 回 " onclick="javascript:history.go(-2)">
 </tr>

         </table>     
            </form>
  <%
  call closedatabase
  %>
  </body>
</html>