mod_ach1.asp

一个学生管理系统 ASP+ACCE

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
	response.write "<script>alert('您无此权限');document.location.href='index.asp';</script>"
	response.end
end if
%>
<%
dim id,user_testnumber,user_class,ach,testno,subject,subject_type,teacher_name,user_name,ach1
id=trim(request("id"))
user_testnumber=trim(request("user_testnumber"))
user_name=trim(request("user_name"))
user_class=trim(request("user_class"))
ach=trim(request("ach"))
testno=trim(request("testno"))
subject=trim(request("subject"))
subject_type=trim(request("subject_type"))
teacher_name=trim(request("teacher_name"))

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

<%
rs("user_testnumber")=user_testnumber
rs("user_name")=user_name
rs("user_class")=user_class
rs("ach")=ach
rs("testno")=testno
rs("subject")=subject
rs("subject_type")=subject_type
rs("teacher_name")=teacher_name
rs.update
rs.close
set rs=nothing

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

if not rs1.eof then
  rs1("total_ach")=rs1("total_ach")+ach1
  rs1.update
  rs1.close
  set rs1=nothing
end if
     response.write "<script language='javascript'>window.confirm('成绩已经成功的从成绩表和总分表中修改')</script>"
     response.write "<script language='javascript'>parent.window.history.go(-1);</script>"
%>