mod_feiyong1.asp

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

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

dim user_name,user_type,money,info,data,user_time,id
id=trim(request("id"))
user_name=trim(request("user_name"))
user_type=trim(request("user_type"))
money=trim(request("money"))
info=trim(request("info"))
data=trim(request("data"))

y=request("year")

m=request("month")

d=request("day")

user_time=y&"-"&m&"-"&d


if user_name="" then
	response.write "不能为空"
	response.end
end if
if user_type="" then
	response.write "不能为空"
	response.end
end if
if money="" then
	response.write "不能为空"
	response.end
end if
if info="" then
    info="无"
end if
if data="" then
	data="已经交足费用"
end if

if isnumeric(money)=false then
	response.write "“费用金额”栏请输入数字"
	response.end
end if


set rs=server.createobject("adodb.recordset")
sql="select * from feiyong where id="& id
rs.open sql,conn,1,3
%>

<%
if not rs.eof then

	rs("user_name")=user_name
	rs("user_type")=user_type
	rs("money")=money
	rs("info")=info
	rs("data")=data
	rs("user_time")=user_time
rs.update
rs.close
set rs=nothing
if isempty(request("key")) then
	response.redirect "add_feiyong.asp"
else
	response.Redirect("add_feiyong.asp?key=1")
end if
else
response.write "ID号不存在"
response.end
end if
%>