add_chengji1.asp

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

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

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

user_number=trim(request("user_number"))
user_name=trim(request("user_name"))
subject=trim(request("subject"))
ach=trim(request("ach"))
y=request("year")
m=request("month")
d=request("day")
test_data=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 ach="" then
		response.write "不能为空"
		response.end
	end if
	if isnumeric(ach)=false then
		response.write "“天数”栏请输入数字"
		response.end
	end if 
	set rs=server.createobject("adodb.recordset")
	sql="select * from ach "
	rs.open sql,conn,1,3
	rs.addnew
	rs("user_number")=trs("user_number")
	rs("user_name")=user_name
	rs("test_data")=test_data
	rs("subject")=subject
	rs("ach")=ach
	rs.update
	rs.close
	set rs=nothing
	if isempty(request("key")) then
		response.redirect "add_chengji.asp"
	else
		response.Redirect("add_chengji.asp?key=1")
	end if
else

end if
	trs.close
	set trs=nothing
%>