add_expen.asp

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

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

'------------------------------------------------------------------------------------
'该程序由湖北天门方正电脑学校网站部开发！
'本程序按社会职业培训机构学生管理要求编写，无任何抄袭代码和盗版之嫌，大家可下载随意修改，但请注明出处。
'学校声明：
'本程序是魂之自由自己辛苦写成的，希望大家能给个面子保留著作权信息，：）
'这个是第一个版本，有些地方没有考虑到，请大家在试用后给些意见，我好继续编写改进版
'联系QQ：858377
'网站：www.ok0728.com
'Email：[e-mail]
'电话：[phone] 
'移动电话：[phone]
'------------------------------------------------------------------------------------
%>

<%
user_number=trim(request("user_number"))
user_name=trim(request("user_name"))
id=trim(request("id"))
type=trim(request("type"))
time=trim(request("time"))
expenses=trim(request("expenses"))
elongate=trim(request("elongate"))
cutoff=trim(request("cutoff"))
info=trim(request("info"))
%>

<%
set rs=createobject("adodb.recordset")
sql="select * from expenses where id='"&id&"'"
rs.open sql,conn,1,3
%>
<%
	rs.addnew
	rs("user_name")=user_name
	rs("user_number")=user_number
rs("id")=id
rs("type")=type
rs("time")=time
rs("expenses")=expenses
rs("elongate")=elongate
rs("deadline")=deadline
rs("info")=info

rs.update
rs.close
set rs=nothing

%>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from deadline where id='"&id&"'"
rs1.open sql1,conn,1,3

if type="生活费" then
	rs1("budget")=rs1("budget")+budget
	if rs1("sh_time")="" then
	rs1("sh_time")=
else 
   if type="学费" then
   rs1("tuition")=rs1("tuition")+tuition
   else
       if type="办证费" then
        rs1("certify")=rs1("certify")+certify
		else
		rs1("other")=rs1("other")+other
	   end if
   end if
end if

    rs1("elongate")=DateAdd(d, elongate, rs1("elongate"))






	rs1.update
	rs1.close
	set rs1=nothing
		response.write "成绩添加成功，请<a href='Javascript:window.history.go(-1)'>返回</a>"


%>