add_qingjia1.asp

职业培训学校学生档案成绩费用管理系统V1.0免费版.rar

<!--#include file="conn.asp"-->

<%
if session("user")="" then
	response.write "您无此权限"
	response.end
end if

dim user_name,user_time,teacher,yuanying,daynumber,out_time,shenghuo,user_type
user_number=trim(request("user_number"))
user_name=trim(request("user_name"))
teacher=trim(request("teacher"))
yuanying=trim(request("yuanying"))
daynumber=trim(request("daynumber"))
type1=trim(request("type1"))
type2=trim(request("type2"))
response.write(type1)
response.write(type2)
y=request("year")
m=request("month")
d=request("day")
user_time=y&"-"&m&"-"&d
	if user_number="" then
		response.write "不能为空"
		response.end
	end if
	if user_name="" then
		response.write "不能为空"
		response.end
	end if
set trs=server.createobject("adodb.recordset")
tsql="select * from st_info where user_number='"&user_number&"'"
trs.open tsql,conn,1,3

if trs.eof then
	response.Write("此学生还未录入进系统，请录入该学生信息后再添加该学生费用信息！")
	trs.close
	set trs=nothing
	response.end
elseif not trs.eof then

	if teacher="" then
		response.write "不能为空"
		response.end
	end if
	if daynumber="" then
		response.write "不能为空"
		response.end
	end if
	if yuanying="" then
		yuanying="无"
	end if
	if isnumeric(daynumber)=false then
		response.write "“天数”栏请输入数字"
		response.end
	end if
response.write type1
response.write type2	
	if type1="1" and type2="2" then
		if isnull(trs("out_time")) then
			out_time=DateAdd("d",cint(daynumber),trs("in_time"))
		else 
			out_time=DateAdd("d",cint(daynumber),trs("out_time"))
		end if
		if isnull(trs("shenghuo")) then
			response.Write("还未输入生活费，请输入生活费。")
			response.End()
		else 
			shenghuo=DateAdd("d",cint(daynumber),trs("shenghuo"))
		end if
		user_type=type1+type2
		trs("shenghuo")=shenghuo
		trs("out_time")=out_time
		trs.update
	end if
	if type1="1" and isempty(request("type2")) then
		if isnull(trs("out_time")) then
			out_time=DateAdd("d",cint(daynumber),trs("in_time"))
		else 
			out_time=DateAdd("d",cint(daynumber),trs("out_time"))
		end if
		user_type=type1
		trs("out_time")=out_time
		trs.update
	end if
	if type2="2" and isempty(request("type1")) then
		if isnull(trs("shenghuo")) then
			response.Write("还未输入生活费，请输入生活费。")
			response.End()
		else 
			shenghuo=DateAdd("d",cint(daynumber),trs("shenghuo"))
		end if
		user_type=type2
		trs("shenghuo")=shenghuo
		trs.update
	end if
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from qingjia "
	rs.open sql,conn,1,3
	rs.addnew
	rs("user_number")=trs("user_number")
	rs("user_name")=user_name
	rs("teacher")=teacher
	rs("yuanying")=yuanying
	rs("user_time")=user_time
	rs("daynumber")=daynumber
	rs("user_type")=user_type
	rs.update
	rs.close
	set rs=nothing
	if isempty(request("key")) then
		response.redirect "add_qingjia.asp"
	else
		response.Redirect("add_qingjia.asp?key=1")
	end if
else

end if
	trs.close
	set trs=nothing
%>