rs_arrange.asp

oa办公系统asp程序

   errmsg=errmsg+"<li>第六行未织数量格式不正确！</li>"
   end if
else
   unknit_6=0
end if
if turnout_6<>"" then
   if not isnumeric(turnout_6) then
   founderr=true
   errmsg=errmsg+"<li>第六行日产量数量格式不正确！</li>"
   end if
else
   turnout_6=0
end if
if m2_7<>"" then
   if not isnumeric(m2_7) then
   founderr=true
   errmsg=errmsg+"<li>第七行M2数量格式不正确！</li>"
   end if
else
   m2_7=0
end if
if order_7<>"" then
   if not isnumeric(order_7) then
   founderr=true
   errmsg=errmsg+"<li>第七行订单数量格式不正确！</li>"
   end if
else
   order_7=0
end if
if knit_7<>"" then
   if not isnumeric(knit_7) then
   founderr=true
   errmsg=errmsg+"<li>第七行针织数量格式不正确！</li>"
   end if
else
   knit_7=0
end if
if unknit_7<>"" then
   if not isnumeric(unknit_7) then
   founderr=true
   errmsg=errmsg+"<li>第七行未织数量格式不正确！</li>"
   end if
else
   unknit_7=0
end if
if turnout_7<>"" then
   if not isnumeric(turnout_7) then
   founderr=true
   errmsg=errmsg+"<li>第七行日产量数量格式不正确！</li>"
   end if
else
   turnout_7=0
end if
if m2_8<>"" then
   if not isnumeric(m2_8) then
   founderr=true
   errmsg=errmsg+"<li>第八行M2数量格式不正确！</li>"
   end if
else
   m2_8=0
end if
if order_8<>"" then
   if not isnumeric(order_8) then
   founderr=true
   errmsg=errmsg+"<li>第八行订单数量格式不正确！</li>"
   end if
else
   order_8=0
end if
if knit_8<>"" then
   if not isnumeric(knit_8) then
   founderr=true
   errmsg=errmsg+"<li>第八行针织数量格式不正确！</li>"
   end if
else
   knit_8=0
end if
if unknit_8<>"" then
   if not isnumeric(unknit_8) then
   founderr=true
   errmsg=errmsg+"<li>第一行未织数量格式不正确！</li>"
   end if
else
   unknit_8=0
end if
if turnout_8<>"" then
   if not isnumeric(turnout_8) then
   founderr=true
   errmsg=errmsg+"<li>第八行日产量数量格式不正确！</li>"
   end if
else
   turnout_8=0
end if

if m2_9<>"" then
   if not isnumeric(m2_9) then
   founderr=true
   errmsg=errmsg+"<li>第九行M2数量格式不正确！</li>"
   end if
else
   m2_9=0
end if
if order_9<>"" then
   if not isnumeric(order_9) then
   founderr=true
   errmsg=errmsg+"<li>第九行订单数量格式不正确！</li>"
   end if
else
   order_9=0
end if
if knit_9<>"" then
   if not isnumeric(knit_9) then
   founderr=true
   errmsg=errmsg+"<li>第九行针织数量格式不正确！</li>"
   end if
else
   knit_9=0
end if
if unknit_9<>"" then
   if not isnumeric(unknit_9) then
   founderr=true
   errmsg=errmsg+"<li>第九行未织数量格式不正确！</li>"
   end if
else
   unknit_9=0
end if
if turnout_9<>"" then
   if not isnumeric(turnout_9) then
   founderr=true
   errmsg=errmsg+"<li>第九行日产量数量格式不正确！</li>"
   end if
else
   turnout_9=0
end if
if m2_10<>"" then
   if not isnumeric(m2_10) then
   founderr=true
   errmsg=errmsg+"<li>第十行M2数量格式不正确！</li>"
   end if
else
   m2_10=0
end if
if order_10<>"" then
   if not isnumeric(order_10) then
   founderr=true
   errmsg=errmsg+"<li>第十行订单数量格式不正确！</li>"
   end if
else
   order_10=0
end if
if knit_10<>"" then
   if not isnumeric(knit_10) then
   founderr=true
   errmsg=errmsg+"<li>第十行针织数量格式不正确！</li>"
   end if
else
   knit_10=0
end if
if unknit_10<>"" then
   if not isnumeric(unknit_10) then
   founderr=true
   errmsg=errmsg+"<li>第十行未织数量格式不正确！</li>"
   end if
else
   unknit_10=0
end if
if turnout_10<>"" then
   if not isnumeric(turnout_10) then
   founderr=true
   errmsg=errmsg+"<li>第十行日产量数量格式不正确！</li>"
   end if
else
   turnout_10=0
end if
if founder=false then
	sql="select * from knit_arrange"
	rs.open sql,conn,1,3
	'第一行
	if fabric_1="" or order_1=0 or knit_1=0 then
		response.write "<br>"
		response.write " 第一行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_1
		rs("breadth")=breadth_1
		rs("m2")=m2_1
		rs("fabric")=fabric_1
		rs("color")=color_1
		rs("order")=order_1
		rs("knit")=knit_1
		rs("unknit")=unknit_1
		rs("cloth_etd")=cloth_etd_1
		rs("machine")=machine_1
		rs("turnout")=turnout_1
		rs("finish")=finish_1
		rs.update
		
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
	'第二行
	if fabric_2="" or order_2=0 or knit_2=0 then
		response.write "<br>"
		response.write " 第二行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_2
		rs("breadth")=breadth_2
		rs("m2")=m2_2
		rs("fabric")=fabric_2
		rs("color")=color_2
		rs("order")=order_2
		rs("knit")=knit_2
		rs("unknit")=unknit_2
		rs("cloth_etd")=cloth_etd_2
		rs("machine")=machine_2
		rs("turnout")=turnout_2
		rs("finish")=finish_2
		rs.update
				
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
	'第三行
	if fabric_3="" or order_3=0 or knit_3=0 then
		response.write "<br>"
		response.write " 第三行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_3
		rs("breadth")=breadth_3
		rs("m2")=m2_3
		rs("fabric")=fabric_3
		rs("color")=color_3
		rs("order")=order_3
		rs("knit")=knit_3
		rs("unknit")=unknit_3
		rs("cloth_etd")=cloth_etd_3
		rs("machine")=machine_3
		rs("turnout")=turnout_3
		rs("finish")=finish_3
		rs.update
				
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
	'第四行
	if fabric_4="" or order_4=0 or knit_4=0 then
		response.write "<br>"
		response.write " 第四行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_4
		rs("breadth")=breadth_4
		rs("m2")=m2_4
		rs("fabric")=fabric_4
		rs("color")=color_4
		rs("order")=order_4
		rs("knit")=knit_4
		rs("unknit")=unknit_4
		rs("cloth_etd")=cloth_etd_4
		rs("machine")=machine_4
		rs("turnout")=turnout_4
		rs("finish")=finish_4
		rs.update
				
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
	'第五行
	if fabric_5="" or order_5=0 or knit_5=0 then
		response.write "<br>"
		response.write " 第五行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_5
		rs("breadth")=breadth_5
		rs("m2")=m2_5
		rs("fabric")=fabric_5
		rs("color")=color_5
		rs("order")=order_5
		rs("knit")=knit_5
		rs("unknit")=unknit_5
		rs("cloth_etd")=cloth_etd_5
		rs("machine")=machine_5
		rs("turnout")=turnout_5
		rs("finish")=finish_5
		rs.update
				
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
	'第六行
	if fabric_6="" or order_6=0 or knit_6=0 then
		response.write "<br>"
		response.write " 第六行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_6
		rs("breadth")=breadth_6
		rs("m2")=m2_6
		rs("fabric")=fabric_6
		rs("color")=color_6
		rs("order")=order_6
		rs("knit")=knit_6
		rs("unknit")=unknit_6
		rs("cloth_etd")=cloth_etd_6
		rs("machine")=machine_6
		rs("turnout")=turnout_6
		rs("finish")=finish_6
		rs.update
				
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
	'第七行
	if fabric_7="" or order_7=0 or knit_7=0 then
		response.write "<br>"
		response.write " 第七行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_7
		rs("breadth")=breadth_7
		rs("m2")=m2_7
		rs("fabric")=fabric_7
		rs("color")=color_7
		rs("order")=order_7
		rs("knit")=knit_7
		rs("unknit")=unknit_7
		rs("cloth_etd")=cloth_etd_7
		rs("machine")=machine_7
		rs("turnout")=turnout_7
		rs("finish")=finish_7
		rs.update
				
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
	'第八行
	if fabric_8="" or order_8=0 or knit_8=0 then
		response.write "<br>"
		response.write " 第八行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_8
		rs("breadth")=breadth_8
		rs("m2")=m2_8
		rs("fabric")=fabric_8
		rs("color")=color_8
		rs("order")=order_8
		rs("knit")=knit_8
		rs("unknit")=unknit_8
		rs("cloth_etd")=cloth_etd_8
		rs("machine")=machine_8
		rs("turnout")=turnout_8
		rs("finish")=finish_8
		rs.update
				
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
	'第九行
	if fabric_9="" or order_9=0 or knit_9=0 then
		response.write "<br>"
		response.write " 第九行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_9
		rs("breadth")=breadth_9
		rs("m2")=m2_9
		rs("fabric")=fabric_9
		rs("color")=color_9
		rs("order")=order_9
		rs("knit")=knit_9
		rs("unknit")=unknit_9
		rs("cloth_etd")=cloth_etd_9
		rs("machine")=machine_9
		rs("turnout")=turnout_9
		rs("finish")=finish_9
		rs.update
				
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
	'第十行
	if fabric_10="" or order_10=0 or knit_10=0 then
		response.write "<br>"
		response.write " 第十行未输入有效数据！"
	else
		rs.addnew
		rs("ref_no")=ref_no_10
		rs("breadth")=breadth_10
		rs("m2")=m2_10
		rs("fabric")=fabric_10
		rs("color")=color_10
		rs("order")=order_10
		rs("knit")=knit_10
		rs("unknit")=unknit_10
		rs("cloth_etd")=cloth_etd_10
		rs("machine")=machine_10
		rs("turnout")=turnout_10
		rs("finish")=finish_10
		rs.update
				
		sql2="select * from cloth_info where ref_no= '"&ref_no_1&"' "
		rs2.open sql2,conn,1,3
		do while not rs2.eof
		rs2("knit_paiqi")="true"
		rs2.update
		rs2.movenext
		loop
		rs2.close
	end if
else
end if
%>