eq_add.asp

科研及设备管理系统是一个基于WEB的网络管理信息系统

<!--#include file="../share/checklogin.asp" -->
<!--#include file="../share/checkinput.asp" -->
<%
	dim pathlevel,cn
	
	pathlevel="../"
%>
<!--#include file="../database/conn.asp" -->
<%
	dim id,sid,sitem_id,sitem_name,sqltable,sqlsitem_id,sqlsitem_name
	
	id=request("id")
	sid=request("sid")
	
	if not isnumeric(id) then
		response.redirect"error.asp?err=2"
	end if
	if not isnumeric(sid) then
		response.redirect"error.asp?err=2"
	end if	
	
	if id=2 then
		if sid=2 then
			eq_id=request.form("eq_id")
			maint_note=request.form("maint_note")
			examan_id=request.form("examan_id")
			examan_name=request.form("examan_name")
			
			if len(maint_note)<=0 then
					response.redirect"index.asp?id="&id&"&sid="&sid&"&mess=1"
			end if
			if len(examan_id)<=0 then
				response.redirect"index.asp?id="&id&"&sid="&sid&"&mess=2"
			end if
			
			call checkinput(examan_id)
			
			sqltable="eq_plan"
		end if
		if sid=3 then
			eq_id=request.form("eq_id")
			scrap_reason=request.form("scrap_reason")
			approve_result=request.form("approve_result")
			principal_name=request.form("principal_name")			
			
			if len(scrap_reason)<=0 then
					response.redirect"index.asp?id="&id&"&sid="&sid&"&mess=1"
			end if
			if len(approve_result)<=0 then
				response.redirect"index.asp?id="&id&"&sid="&sid&"&mess=2"
			end if
			if len(principal_name)<=0 then
				response.redirect"index.asp?id="&id&"&sid="&sid&"&mess=3"
			end if

			sqltable="scrap"
		end if
	end if
			
	set rs=server.createobject("ADODB.Recordset")
	sql="select top 1 eq_name,equ_now from equipment where eq_id='"&eq_id&"'"
	rs.Cursorlocation=3
	rs.open sql,cn,3,3
	if rs.eof then
		response.redirect"index.asp?id="&id&"&sid="&sid&"&mess=3"
	else
		eq_name=rs("eq_name")
		rs("equ_now")="已经报废"
		rs.update
	end if
	rs.close
	sql="select * from "&sqltable&" where id is null"
	rs.Cursorlocation=3
	rs.open sql,cn,3,3
	rs.addnew
		if id=2 and sid=2 then
			rs("eq_id")=eq_id
			rs("eq_name")=eq_name
			rs("maint_note")=maint_note
			rs("examan_id")=examan_id
			rs("examan_name")=examan_name
		end if
		if id=2 and sid=3 then
			rs("eq_id")=eq_id
			rs("eq_name")=eq_name
			rs("scrap_reason")=scrap_reason
			rs("principal_name")=principal_name
			rs("approve_result")=approve_result
		end if
	rs.update
	rs.close
	set rs=nothing
		response.redirect"index.asp?id="&id&"&sid="&sid&"&mess=10"			
	cn.close
	set cn=nothing
%>