mod_chengji1.asp

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

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


dim id
id=trim(request("id"))

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_name="" then
	response.write "姓名不能为空"
	response.end
end if
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 where id="& id
	rs.open sql,conn,1,3
if not rs.eof then
	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
response.write "ID号不存在"
response.end
end if
%>