action.asp

投资管理系统, asp+ mssql server

<%
set rsc=Server.CreateObject("ADODB.RecordSet")
set rsd=Server.CreateObject("ADODB.RecordSet")
submit=trim(request("submit"))
allID=trim(request("cha"))
if submit="删除" then
	if allID<>"" then
		conn.execute("delete from tblBase where ID in ("&allID&")")
		conn.execute("delete from tblPlan where ProjectID in ("&allID&")")
		conn.execute("delete from tblJindu where ProjectID in ("&allID&")")
		conn.execute("delete from tblMoney where ProjectID in ("&allID&")")
		conn.execute("delete from tblShenpi where ProjectID in ("&allID&")")
		conn.execute("delete from tblYezhu where ProjectID in ("&allID&")")
	end if
end if
ww=""
if submit<>"" and submit<>"删除" then
	if submit="争取开工" then
		ww=2
	else
		if submit="在建" then
			ww=3
		else
			if submit="竣工" then
				ww=4
			else
				if submit="停缓建" then
					ww=5
				else
					if submit="撤消立项" then
						ww=6
					end if
				end if
			end if
		end if
	end if
	if allID<>"" then
		rs.open "select * from tblBase where ID in ("&allID&")",conn,1,1
		if not rs.eof then
			do while not rs.eof
				rsc.open "select * from tblBaseHistory where InputLogin like '"&trim(rs("InputLogin"))&"' and InputTime like '"&trim(rs("InputTime"))&"'",conn,1,2
					if rsc.eof then
						rsc.addnew
					end if
					rsc("Name")=trim(rs("Name"))
					rsc("Address")=trim(rs("Address"))
					rsc("Money")=trim(rs("Money"))
					rsc("Attribute")=trim(rs("Attribute"))
					rsc("ShenpiUnit")=trim(rs("ShenpiUnit"))
					rsc("Nianxian")=trim(rs("Nianxian"))
					rsc("KaigongTime")=trim(rs("KaigongTime"))
					rsc("Neirong")=trim(rs("Neirong"))
					rsc("InputDate")=trim(rs("InputDate"))
					rsc("Unit")=trim(rs("Unit"))
					rsc("Department")=trim(rs("Department"))
					rsc("YeZhu")=trim(rs("YeZhu"))
					rsc("InputTime")=trim(rs("InputTime"))
					rsc("InputName")=trim(rs("InputName"))
					rsc("InputLogin")=trim(rs("InputLogin"))
					rsc("Reader")=trim(rs("Reader"))
					rsc("State")=typet
					rsc.update

					ID=rsc("ID")
					rsc.close
					rsd.open "select * from tblPlan where ProjectID="&rs("ID"),conn,1,1
					if not rsd.eof then
						rsc.open "select * from tblPlanHistory where ID is NULL",conn,1,2
						do while not rsd.eof
							rsc.addnew
							rsc("ProjectID")=ID
							rsc("name")=trim(rsd("name"))
							rsc("ThisYear")=trim(rsd("ThisYear"))
							rsc("Money")=trim(rsd("Money"))
							rsc("Content")=trim(rsd("Content"))
							rsc("ShangbaoUnit")=trim(rsd("ShangbaoUnit"))
							rsc("ShangbaoNo")=trim(rsd("ShangbaoNo"))
							rsc("ShangbaoTime")=trim(rsd("ShangbaoTime"))
							rsc("ShenpiUnit")=trim(rsd("ShenpiUnit"))
							rsc("ShenpiNo")=trim(rsd("ShenpiNo"))
							rsc("ShenpiTime")=trim(rsd("ShenpiTime"))
							rsc("InputDate")=trim(rsd("InputDate"))
							rsc("InputTime")=trim(rsd("InputTime"))
							rsc("State")=typet
							rsc.update
							rsd.movenext
						loop
						rsc.close
					end if
					rsd.close

					rsd.open "select * from tblMoney where ProjectID="&rs("ID"),conn,1,1
					if not rsd.eof then
						rsc.open "select * from tblMoneyHistory where ID is NULL",conn,1,2
						do while not rsd.eof
							rsc.addnew
							rsc("ProjectID")=ID
							rsc("Source")=trim(rsd("Source"))
							rsc("Unit")=trim(rsd("Unit"))
							rsc("Money1")=trim(rsd("Money1"))
							rsc("Money2")=trim(rsd("Money2"))
							rsc("Rate")=trim(rsd("Rate"))
							rsc("InputTime")=trim(rsd("InputTime"))
							rsc("State")=typet
							rsc.update
							rsd.movenext
						loop
						rsc.close
					end if
					rsd.close

					rsd.open "select * from tblJindu where ProjectID="&rs("ID"),conn,1,1
					if not rsd.eof then
						rsc.open "select * from tblJinduHistory where ID is NULL",conn,1,2
						do while not rsd.eof
							rsc.addnew
							rsc("ProjectID")=ID
							rsc("Item")=trim(rsd("Item"))
							rsc("Money")=trim(rsd("Money"))
							rsc("Content")=trim(rsd("Content"))
							rsc("CountDate")=trim(rsd("CountDate"))
							rsc("InputDate")=trim(rsd("InputDate"))
							rsc("InputTime")=trim(rsd("InputTime"))
							rsc("State")=typet
							rsc.update
							rsd.movenext
						loop
						rsc.close
					end if
					rsd.close

					rsd.open "select * from tblShenpi where ProjectID="&rs("ID"),conn,1,1
					if not rsd.eof then
						rsc.open "select * from tblShenpiHistory where ID is NULL",conn,1,2
						do while not rsd.eof
							rsc.addnew
							rsc("ProjectID")=ID
							rsc("Item")=trim(rsd("Item"))
							rsc("Name")=trim(rsd("Name"))
							rsc("Content")=trim(rsd("Content"))
							rsc("ShangbaoUnit")=trim(rsd("ShangbaoUnit"))
							rsc("ShangbaoNo")=trim(rsd("ShangbaoNo"))
							rsc("ShangbaoTime")=trim(rsd("ShangbaoTime"))
							rsc("ShenpiUnit")=trim(rsd("ShenpiUnit"))
							rsc("ShenpiNo")=trim(rsd("ShenpiNo"))
							rsc("ShenpiTime")=trim(rsd("ShenpiTime"))
							rsc("InvestPlan")=trim(rsd("InvestPlan"))
							rsc("Xinxiangmubiao")=trim(rsd("Xinxiangmubiao"))
							rsc("InputDate")=trim(rsd("InputDate"))
							rsc("InputTime")=trim(rsd("InputTime"))
							rsc("State")=typet
							rsc.update
							rsd.movenext
						loop
						rsc.close
					end if
					rsd.close

					rsd.open "select * from tblYezhu where ProjectID="&rs("ID"),conn,1,1
					if not rsd.eof then
						rsc.open "select * from tblYezhuHistory where ID is NULL",conn,1,2
						do while not rsd.eof
							rsc.addnew
							rsc("ProjectID")=ID
							rsc("Yezhu_Unit")=trim(rsd("Yezhu_Unit"))
							rsc("Yezhu_Zerenren")=trim(rsd("Yezhu_Zerenren"))
							rsc("Yezhu_Lianxiren")=trim(rsd("Yezhu_Lianxiren"))
							rsc("Yezhu_Tel")=trim(rsd("Yezhu_Tel"))
							rsc("Yezhu_Fax")=trim(rsd("Yezhu_Fax"))
							rsc("Yezhu_Email")=trim(rsd("Yezhu_Email"))
							rsc("Yezhu_Add")=trim(rsd("Yezhu_Add"))
							rsc("Yezhu_PostCode")=trim(rsd("Yezhu_PostCode"))
							rsc("Zhuguan_Unit")=trim(rsd("Zhuguan_Unit"))
							rsc("Zhuguan_Zerenren")=trim(rsd("Zhuguan_Zerenren"))
							rsc("Zhuguan_Lianxiren")=trim(rsd("Zhuguan_Lianxiren"))
							rsc("Zhuguan_Tel")=trim(rsd("Zhuguan_Tel"))
							rsc("Zhuguan_Fax")=trim(rsd("Zhuguan_Fax"))
							rsc("Zhuguan_Email")=trim(rsd("Zhuguan_Email"))
							rsc("Zhuguan_Add")=trim(rsd("Zhuguan_Add"))
							rsc("Zhuguan_PostCode")=trim(rsd("Zhuguan_PostCode"))
							rsc("InputDate")=trim(rsd("InputDate"))
							rsc("InputTime")=trim(rsd("InputTime"))
							rsc("State")=typet
							rsc.update
							rsd.movenext
						loop
						rsc.close
					end if
					rsd.close
				rs.movenext
			loop
		end if
		rs.close
		conn.execute("update tblBase set InputTime='"&now()&"',State="&ww&" where ID in ("&allID&")")
		conn.execute("update tblPlan set InputTime='"&now()&"',State="&ww&" where ProjectID in ("&allID&")")
		conn.execute("update tblJindu set InputTime='"&now()&"',State="&ww&" where ProjectID in ("&allID&")")
		conn.execute("update tblMoney set InputTime='"&now()&"',State="&ww&" where ProjectID in ("&allID&")")
		conn.execute("update tblShenpi set InputTime='"&now()&"',State="&ww&" where ProjectID in ("&allID&")")
		conn.execute("update tblYezhu set InputTime='"&now()&"',State="&ww&" where ProjectID in ("&allID&")")
	end if
end if
set rsc=nothing
set rsd=nothing
%>