rs_cost_edit.asp

oa办公系统asp程序

<!--#include file="../title.asp"-->
<%
dim id
dim rs_filiale,types,ref_no,client
dim style_no,order,style,guda
dim access_1,access_2,operation
dim operation_ma,date_year,date_month,year_day
dim process_1,process_2,process_3
dim commision_1,commision_2,overhead_expenses
dim assay,bank,traffic,fob
dim cmt_dz,produce,knitting,othe
dim delivery_1,delivery_2,s_dat,e_date
dim sale_price_1,sale_price_2,gain_1,gain_2
id=request("id")
rs_filiale=request("filiale")
types=request("types")
ref_no=request("ref_no")
client=request("client")
style_no=request("style_no")
order=request("order")
style=request("style")
guda=request("guda")
access_1=request("access_1")
access_2=request("access_2")
operation=request("operation")
operation_ma=request("operation_ma")
date_year=request("date_year")
date_month=request("date_month")
date_day=request("date_day")
process_1=request("process_1")
process_2=request("process_2")
process_3=request("process_3")
commision_1=request("commision_1")
commision_2=request("commision_2")
overhead_expenses=request("overhesa_expenses")
assay=request("assay")
bank=request("bank")
traffic=request("traffic")
fob=request("fob")
cmt_dz=request("cmt_dz")
produce=request("produce")
knitting=request("knitting")
other=request("other")
delivery_1=request("delivery_1")
delivery_2=request("delivery_2")
s_date=request("s_date")
e_date=request("e_date")
sale_price_1=request("sale_price_1")
sale_price_2=request("sale_price_2")
gain_1=request("gain_1")
gain_2=request("gain_2")
date_time_temp=date_year+"/"+date_month+"/"+date_day
date_time=formatdatetime(date_time_temp)
if isnumber(rs_filiale) then
	rs_filiale=CInt("0")
end if
if not isnumber(order) then
	order=CInt("0")
end if
if not isnumber(access_1) then
	access_1=CInt("0")
end if
if not isnumber(access_2) then
	access_2=CInt("0")
end if
if not isnumber(process_1) then
	process_1=CInt("0")
end if
if not isnumber(process_2) then
	process_2=CInt("0")
end if
if not isnumber(process_3) then
	process_3=CInt("0")
end if
if not isnumber(commision_1) then
	commision_1=CInt("0")
end if
if not isnumber(commision_2) then
	commision_2=CInt("0")
end if
if not isnumber(overhead_expenses) then
	overhead_expenses=CInt("0")
end if
if not isnumber(assay) then
	assay=CInt("0")
end if
if not isnumber(bank) then
	bank=CInt("0")
end if
if not isnumber(traffic) then
	traffic=CInt("0")
end if
if not isnumber(fob) then
	fob=CInt("0")
end if
if not isnumber(knitting) then
	knitting=CInt("0")
end if
if not isnumber(delivery_1) then
	delivery_1=CInt("0")
end if
if not isnumber(delivery_2) then
	delivery_2=CInt("0")
end if
if not isnumber(sale_price_1) then
	sale_price_1=CInt("0")
end if
if not isnumber(sale_price_2) then
	sale_price_2=CInt("0")
end if
if not isnumber(gain_1) then
	gain_1=CInt("0")
end if
if not isnumber(gain_2) then
	gain_2=CInt("0")
end if
if not isdate(s_date) then
	s_date=now
	end if
if not isdate(e_date) then
	e_date=now
end if

sql="select * from cost where id = "&id&" "
rs.open sql,conn,1,3
rs("filiale")=rs_filiale
rs("types")=types
rs("ref_no")=ref_no
rs("client")=client
rs("style_no")=style_no
rs("order")=order
rs("style")=style
rs("guda")=guda
rs("access_1")=access_1
rs("access_2")=access_2
rs("operation")=operation
rs("operation_ma")=operation_ma
rs("date_time")=date_time
rs("process_1")=process_1
rs("process_2")=process_2
rs("process_3")=process_3
rs("commision_1")=commision_1
rs("commision_2")=commision_2
rs("overhead_expenses")=overhead_expenses
rs("assay")=assay
rs("bank")=bank
rs("traffic")=traffic
rs("fob")=fob
rs("cmt_dz")=cmt_dz
rs("produce")=produce
rs("knitting")=knitting
rs("other")=other
rs("delivery_1")=delivery_1
rs("delivery_2")=delivery_2
rs("s_date")=s_date
rs("e_date")=e_date
rs("sale_price_1")=sale_price_1
rs("sale_price_2")=sale_price_2
rs("gain_1")=gain_1
rs("gain_2")=gain_2
rs.update
response.write "<p>"
response.write "成本修改完毕!"
%>
	<meta http-equiv="refresh" content='2; URL="javascript:history.go(-2)"'>
<%
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

%><!--#include file="../copyright.asp"-->