mod_qingjia1.asp

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

<!--#include file="conn.asp"-->
<%
if session("user")="" then
	response.write "您无此权限"
	response.end
end if

dim out_time
id=trim(request("id"))
user_name=trim(request("user_name"))
teacher=trim(request("teacher"))
yuanying=trim(request("yuanying"))
daynumber=trim(request("daynumber"))
oldDn=trim(request("oldDn"))

y=request("year")
m=request("month")
d=request("day")
user_time=y&"-"&m&"-"&d
daynumber=cint(daynumber)-cint(oldDn)
response.Write(daynumber)

set trs=server.createobject("adodb.recordset")
tsql="select * from st_info where user_name='"&user_name&"'"
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 user_name="" then
		response.write "不能为空"
		response.end
	end if
	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
	else
		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
	end if 
	trs("out_time")=out_time
	trs.update
	trs.close
	set trs=nothing
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from qingjia where id="& id
	rs.open sql,conn,1,3	
	if not rs.eof then
		rs("user_name")=user_name
		rs("teacher")=teacher
		rs("yuanying")=yuanying
		rs("user_time")=user_time
		rs("daynumber")=daynumber
		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
		response.write "ID号不存在"
		rs.close
		set rs=nothing
		response.end
	end if
else
end if
%>