actiono.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 171 行

<%
set rsc=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

if submit="争取开工" then
	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 tblBase where InputLogin like '"&trim(rs("InputLogin"))&"' and InputTime like '"&trim(rs("InputTime"))&"'",connkg,1,2
					if rsc.eof then
						rsc.addnew
					end if
						rsc("Name")=trim(rs("Name"))
						rsc("Address")=trim(rs("Address"))
						rsc("Guimo")=trim(rs("Guimo"))
						rsc("Attribute")=trim(rs("Attribute"))
						rsc("Nianxian")=trim(rs("Nianxian"))
						rsc("KaigongTime")=trim(rs("KaigongTime"))
						rsc("Neirong")=trim(rs("Neirong"))
						rsc("InputDate")=trim(rs("InputDate"))
						rsc("InputTime")=trim(rs("InputTime"))
						rsc("InputName")=trim(rs("InputName"))
						rsc("InputLogin")=trim(rs("InputLogin"))
						rsc("State")="kg"
						rsc.update
						rsc.close
					rs.movenext
				loop
			end if
		rs.close
		conn.execute("update tblBase set State='kg' where ID in ("&allID&")")
	end if
end if

if submit="在建" then
	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 tblBase where InputLogin like '"&trim(rs("InputLogin"))&"' and InputTime like '"&trim(rs("InputTime"))&"'",connzj,1,2
					if rsc.eof then
						rsc.addnew
					end if
						rsc("Name")=trim(rs("Name"))
						rsc("Address")=trim(rs("Address"))
						rsc("Guimo")=trim(rs("Guimo"))
						rsc("Attribute")=trim(rs("Attribute"))
						rsc("Nianxian")=trim(rs("Nianxian"))
						rsc("KaigongTime")=trim(rs("KaigongTime"))
						rsc("Neirong")=trim(rs("Neirong"))
						rsc("InputDate")=trim(rs("InputDate"))
						rsc("InputTime")=trim(rs("InputTime"))
						rsc("InputName")=trim(rs("InputName"))
						rsc("InputLogin")=trim(rs("InputLogin"))
						rsc("State")="zj"
						rsc.update
						rsc.close
					rs.movenext
				loop
			end if
		rs.close
		conn.execute("update tblBase set State='zj' where ID in ("&allID&")")
	end if
end if

if submit="竣工" then
	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 tblBase where InputLogin like '"&trim(rs("InputLogin"))&"' and InputTime like '"&trim(rs("InputTime"))&"'",connjg,1,2
					if rsc.eof then
						rsc.addnew
					end if
						rsc("Name")=trim(rs("Name"))
						rsc("Address")=trim(rs("Address"))
						rsc("Guimo")=trim(rs("Guimo"))
						rsc("Attribute")=trim(rs("Attribute"))
						rsc("Nianxian")=trim(rs("Nianxian"))
						rsc("KaigongTime")=trim(rs("KaigongTime"))
						rsc("Neirong")=trim(rs("Neirong"))
						rsc("InputDate")=trim(rs("InputDate"))
						rsc("InputTime")=trim(rs("InputTime"))
						rsc("InputName")=trim(rs("InputName"))
						rsc("InputLogin")=trim(rs("InputLogin"))
						rsc("State")="jg"
						rsc.update
						rsc.close
					rs.movenext
				loop
			end if
		rs.close
		conn.execute("update tblBase set State='jg' where ID in ("&allID&")")
	end if
end if

if submit="停缓建" then
	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 tblBase where InputLogin like '"&trim(rs("InputLogin"))&"' and InputTime like '"&trim(rs("InputTime"))&"'",connthj,1,2
					if rsc.eof then
						rsc.addnew
					end if
						rsc("Name")=trim(rs("Name"))
						rsc("Address")=trim(rs("Address"))
						rsc("Guimo")=trim(rs("Guimo"))
						rsc("Attribute")=trim(rs("Attribute"))
						rsc("Nianxian")=trim(rs("Nianxian"))
						rsc("KaigongTime")=trim(rs("KaigongTime"))
						rsc("Neirong")=trim(rs("Neirong"))
						rsc("InputDate")=trim(rs("InputDate"))
						rsc("InputTime")=trim(rs("InputTime"))
						rsc("InputName")=trim(rs("InputName"))
						rsc("InputLogin")=trim(rs("InputLogin"))
						rsc("State")="thj"
						rsc.update
						rsc.close
					rs.movenext
				loop
			end if
		rs.close
		conn.execute("update tblBase set State='thj' where ID in ("&allID&")")
	end if
end if

if submit="撤消立项" then
	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 tblBase where InputLogin like '"&trim(rs("InputLogin"))&"' and InputTime like '"&trim(rs("InputTime"))&"'",conncx,1,2
					if rsc.eof then
						rsc.addnew
					end if
						rsc("Name")=trim(rs("Name"))
						rsc("Address")=trim(rs("Address"))
						rsc("Guimo")=trim(rs("Guimo"))
						rsc("Attribute")=trim(rs("Attribute"))
						rsc("Nianxian")=trim(rs("Nianxian"))
						rsc("KaigongTime")=trim(rs("KaigongTime"))
						rsc("Neirong")=trim(rs("Neirong"))
						rsc("InputDate")=trim(rs("InputDate"))
						rsc("InputTime")=trim(rs("InputTime"))
						rsc("InputName")=trim(rs("InputName"))
						rsc("InputLogin")=trim(rs("InputLogin"))
						rsc("State")="cx"
						rsc.update
						rsc.close
					rs.movenext
				loop
			end if
		rs.close
		conn.execute("update tblBase set State='cx' where ID in ("&allID&")")
	end if
end if
set rsc=nothing
%>