📄 add_ach.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.write "<script>alert('您无此权限');document.location.href='index.asp';</script>"
response.end
end if
%>
<%
dim user_name,user_testnumber,user_class,testno,subject,ach,subject_type,teacher_name
user_name=trim(request("user_name"))
user_testnumber=trim(request("user_testnumber"))
user_class=trim(request("user_class"))
testno=trim(request("testno"))
subject=trim(request("subject"))
ach=trim(request("ach"))
subject_type=trim(request("subject_type"))
teacher_name=trim(request("teacher_name"))
%>
<%
set rs=createobject("adodb.recordset")
sql="select * from ach where user_testnumber='"&user_testnumber&"' and subject='"&subject&"' and testno='"&testno&"' and user_class='"&user_class&"'"
rs.open sql,conn,1,3
%>
<%
if not rs.eof then
'response.write "准考证号"& user_testnumber &"该课程成绩已经存在,如要修改请到修改页面。"
response.write "<font color=red>"&user_class&"的准考证号"&user_testnumber&"</font>在 <font color=red>"&testno&"</font>中的该课程成绩已经存在,如要修改请到修改页面。"&"<a href='Javascript:window.history.go(-1)'>返回</a>"
response.end
else
rs.addnew
rs("user_name")=user_name
rs("user_testnumber")=user_testnumber
rs("user_class")=user_class
rs("testno")=testno
rs("subject")=subject
rs("ach")=ach
rs("subject_type")=subject_type
rs("teacher_name")=teacher_name
rs.update
rs.close
set rs=nothing
response.write "该课程成绩添加成功!"
end if
%>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from total_ach where user_testnumber='"&user_testnumber&"' and testno='"&testno&"' and user_class='"&user_class&"'"
rs1.open sql1,conn,1,3
if not rs1.eof then
rs1("total_ach")=rs1("total_ach")+ach
rs1.update
rs1.close
set rs1=nothing
response.write "总成绩添加成功,请<a href='Javascript:window.history.go(-1)'>返回</a>"
else
rs1.addnew
rs1("user_testnumber")=user_testnumber
rs1("user_name")=user_name
rs1("user_class")=user_class
rs1("testno")=testno
rs1("total_ach")=ach
rs1.update
rs1.close
set rs1=nothing
response.write "总成绩添加成功,请<a href='Javascript:window.history.go(-1)'>返回</a>"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -