input.asp

oa办公系统asp程序

		rs2("color")=color_1_11
		rs2("order_kg")=order_kg_1_11
		rs2("order_yd")=order_yd_1_11
		rs2("malaysia_kg")=malaysia_kg_1_11
		rs2("malaysia_yd")=malaysia_yd_1_11
		rs2("shanghai_kg")=shanghai_kg_1_11
		rs2("shanghai_yd")=shanghai_yd_1_11
		rs2("etd_date")=etd_date_1_11
		rs2("thread")=thread_1_11
		rs2("first")=true
		rs2.update
		response.write "<br>"
		response.write "第一项-第十一行数据已存储！"
	end if
	
		
	'第一行
	if line_2_1<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_1
		rs2("order_kg")=order_kg_2_1
		rs2("order_yd")=order_yd_2_1
		rs2("malaysia_kg")=malaysia_kg_2_1
		rs2("malaysia_yd")=malaysia_yd_2_1
		rs2("shanghai_kg")=shanghai_kg_2_1
		rs2("shanghai_yd")=shanghai_yd_2_1
		rs2("etd_date")=etd_date_2_1
		rs2("thread")=thread_2_1
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第一行数据已存储！"
	end if
	'第二行
	if line_2_2<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_2
		rs2("order_kg")=order_kg_2_2
		rs2("order_yd")=order_yd_2_2
		rs2("malaysia_kg")=malaysia_kg_2_2
		rs2("malaysia_yd")=malaysia_yd_2_2
		rs2("shanghai_kg")=shanghai_kg_2_2
		rs2("shanghai_yd")=shanghai_yd_2_2
		rs2("etd_date")=etd_date_2_2
		rs2("thread")=thread_2_2
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第二行数据已存储！"
	end if
	'第三行
	if line_2_3<>"k" then
	rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_3
		rs2("order_kg")=order_kg_2_3
		rs2("order_yd")=order_yd_2_3
		rs2("malaysia_kg")=malaysia_kg_2_3
		rs2("malaysia_yd")=malaysia_yd_2_3
		rs2("shanghai_kg")=shanghai_kg_2_3
		rs2("shanghai_yd")=shanghai_yd_2_3
		rs2("etd_date")=etd_date_2_3
		rs2("thread")=thread_2_3
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第三行数据已存储！"
	end if
	'第四行
	if line_2_4<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_4
		rs2("order_kg")=order_kg_2_4
		rs2("order_yd")=order_yd_2_4
		rs2("malaysia_kg")=malaysia_kg_2_4
		rs2("malaysia_yd")=malaysia_yd_2_4
		rs2("shanghai_kg")=shanghai_kg_2_4
		rs2("shanghai_yd")=shanghai_yd_2_4
		rs2("etd_date")=etd_date_2_4
		rs2("thread")=thread_2_4
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第四行数据已存储！"
	end if
	'第五行
	if line_2_5<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_5
		rs2("order_kg")=order_kg_2_5
		rs2("order_yd")=order_yd_2_5
		rs2("malaysia_kg")=malaysia_kg_2_5
		rs2("malaysia_yd")=malaysia_yd_2_5
		rs2("shanghai_kg")=shanghai_kg_2_5
		rs2("shanghai_yd")=shanghai_yd_2_5
		rs2("etd_date")=etd_date_2_5
		rs2("thread")=thread_2_5
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第五行数据已存储！"
	end if
	'第六行
	if line_2_6<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_6
		rs2("order_kg")=order_kg_2_6
		rs2("order_yd")=order_yd_2_6
		rs2("malaysia_kg")=malaysia_kg_2_6
		rs2("malaysia_yd")=malaysia_yd_2_6
		rs2("shanghai_kg")=shanghai_kg_2_6
		rs2("shanghai_yd")=shanghai_yd_2_6
		rs2("etd_date")=etd_date_2_6
		rs2("thread")=thread_2_6
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第六行数据已存储！"
	end if
	'第七行
	if line_2_7<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_7
		rs2("order_kg")=order_kg_2_7
		rs2("order_yd")=order_yd_2_7
		rs2("malaysia_kg")=malaysia_kg_2_7
		rs2("malaysia_yd")=malaysia_yd_2_7
		rs2("shanghai_kg")=shanghai_kg_2_7
		rs2("shanghai_yd")=shanghai_yd_2_7
		rs2("etd_date")=etd_date_2_7
		rs2("thread")=thread_2_7
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第七行数据已存储！"
	end if
	'第八行
	if line_2_8<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_8
		rs2("order_kg")=order_kg_2_8
		rs2("order_yd")=order_yd_2_8
		rs2("malaysia_kg")=malaysia_kg_2_8
		rs2("malaysia_yd")=malaysia_yd_2_8
		rs2("shanghai_kg")=shanghai_kg_2_8
		rs2("shanghai_yd")=shanghai_yd_2_8
		rs2("etd_date")=etd_date_2_8
		rs2("thread")=thread_2_8
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第八行数据已存储！"
	end if
	'第九行
	if line_2_1<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_9
		rs2("order_kg")=order_kg_2_9
		rs2("order_yd")=order_yd_2_9
		rs2("malaysia_kg")=malaysia_kg_2_9
		rs2("malaysia_yd")=malaysia_yd_2_9
		rs2("shanghai_kg")=shanghai_kg_2_9
		rs2("shanghai_yd")=shanghai_yd_2_9
		rs2("etd_date")=etd_date_2_9
		rs2("thread")=thread_2_9
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第九行数据已存储！"
	end if
	'第十行
	if line_2_10<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_10
		rs2("order_kg")=order_kg_2_10
		rs2("order_yd")=order_yd_2_10
		rs2("malaysia_kg")=malaysia_kg_2_10
		rs2("malaysia_yd")=malaysia_yd_2_10
		rs2("shanghai_kg")=shanghai_kg_2_10
		rs2("shanghai_yd")=shanghai_yd_2_10
		rs2("etd_date")=etd_date_2_10
		rs2("thread")=thread_2_10
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第十行数据已存储！"
	end if
	'第十一行
	if line_2_11<>"k" then
		rs2.addnew
		rs2("ref_no")=ref
		rs2("fabrication")=fabric_2
		rs2("color")=color_2_11
		rs2("order_kg")=order_kg_2_11
		rs2("order_yd")=order_yd_2_11
		rs2("malaysia_kg")=malaysia_kg_2_11
		rs2("malaysia_yd")=malaysia_yd_2_11
		rs2("shanghai_kg")=shanghai_kg_2_11
		rs2("shanghai_yd")=shanghai_yd_2_11
		rs2("etd_date")=etd_date_2_11
		rs2("thread")=thread_2_11
		rs2("first")=false
		rs2.update
		response.write "<br>"
		response.write "第二项-第十一行数据已存储！"
	end if



'----------------以下是辅料部分---------------------------

	sql3="select * from cloth_access_1" 
	rs3.open sql3,conn,1,3
	if yes_1="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=1
		rs3.update
	end if
	if yes_2="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=2
		rs3.update
	end if
	if yes_3="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=3
		rs3.update
	end if
	if yes_4="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=4
	end if
	if yes_5="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=5
		rs3.update
	end if
	if yes_6="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=6
		rs3.update
	end if
	if yes_7="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=7
		rs3.update
	end if
	if yes_8="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=8
		rs3.update
	end if
	if yes_9="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=9
		rs3.update
	end if
	if yes_10="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=10
		rs3.update
	end if
	if yes_11="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=11
		rs3.update
	end if
	if yes_12="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=12
		rs3.update
	end if
	if yes_13="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=13
		rs3.update
	end if
	if yes_14="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=14
		rs3.update
	end if
	if yes_15="ON" then
			rs3.addnew

		rs3("ref_no")=ref
		rs3("access_id")=15
		rs3.update
	end if
	if yes_16="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=16
		rs3.update
	end if
	if yes_17="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=17
		rs3.update
	end if
	if yes_18="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=18
		rs3.update
	end if
	if yes_19="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=19
		rs3.update
	end if
	if yes_20="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=20
		rs3.update
	end if
	if yes_21="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=21
		rs3.update
	end if
	if yes_22="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=22
		rs3.update
	end if
	if yes_23="ON" then
		rs3.addnew
		rs3("ref_no")=ref
		rs3("access_id")=23
		rs3.update
	end if
%>
	<meta http-equiv="refresh" content='2; URL="access.asp?ref=<%=ref%>"'>
<%
else
	response.write "<br>"
 	response.write "由于以下的原因不能保存数据："
 	response.write errmsg
%>
	<meta http-equiv="refresh" content='5; URL="javascript:history.go(-1)"'>
<%
end if


Function isnumber(strng)
isnumber = false
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = "^\d+(\.\d+)?$"
regEx.IgnoreCase = True
Set Match = regEx.Execute(strng)
if match.count then isnumber= true
End Function

%>