add_allqingjia1.asp

来自「职业培训学校学生档案成绩费用管理系统V1.0免费版.rar」· ASP 代码 · 共 74 行

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

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

dim shenghuo,out_time
id=request("id")
if id=1 then
	user_state=trim(request("user_state"))
	if not isnumeric(user_state) then
		response.write "<script>alert('请输入数字！');document.location.href='add_allqingjia1.asp';</script>"
		response.end
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select * from st_info where user_state='在读' order by id desc"
	rs.open sql,conn,1,3
	do while not rs.eof 
		if isnull(rs("out_time")) then
			out_time=DateAdd("d",cint(user_state),rs("in_time"))
		else 
			out_time=DateAdd("d",cint(user_state),rs("out_time"))
		end if
		rs("out_time")=out_time
		rs.update
		rs.movenext
	loop
	rs.updatebatch
	rs.close
	set rs=nothing
	response.write "<script>alert('提交成功！');document.location.href='add_allqingjia1.asp';</script>"
	response.end
elseif id=2 then
	lodging=trim(request("lodging"))
	if not isnumeric(lodging) then
		response.write "<script>alert('请输入数字！');document.location.href='add_allqingjia.asp';</script>"
		response.end
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select * from st_info where lodging='住读' order by id desc"
	rs.open sql,conn,1,3
	do while not rs.eof
		if isnull(rs("shenghuo")) then
			response.write "<script>alert('住校学生还有未交生活费！');document.location.href='add_allqingjia.asp';</script>"
			response.End()
		end if
		rs.movenext
	loop
	rs.updatebatch
	rs.close
	set rs=nothing
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from st_info where lodging='住读' order by id desc"
	rs.open sql,conn,1,3
	do while not rs.eof
		shenghuo=DateAdd("d",cint(lodging),trs("shenghuo"))
		rs("shenghuo")=shenghuo
		rs.update
		rs.movenext
	loop
	rs.updatebatch
	rs.close
	set rs=nothing
	response.write "<script>alert('提交成功！');document.location.href='add_allqingjia.asp';</script>"
	response.end
else
	response.Redirect("add_allqingjia.asp") 
	response.end
end if

%>