cj_lr_ok.asp

来自「C# SQL 齐齐哈尔职业学院学生成绩管理系统」· ASP 代码 · 共 39 行

<!--#include file="chkadmin.asp"-->
<!--#include file="conn.asp"-->
<%
Response.Write "操作中:<br><br>"
jecid=Request("jecid")
subid=Request("subid")
i=Cint(Request("i"))
classid=Request("classid")

Set rs=server.createobject("adodb.recordset")
sql="Select subid,classid,jecid from chengji where jecid=" & Cint(Trim(jecid)) & " and classid=" & Cint(Trim(classid)) & " and subid=" & Cint(Trim(subid))
rs.open sql,conn,1,3
If not(rs.Eof) Then
  Response.Write "<br>您已经添加过该班级本次考试该科目的记录,不能继续添加!<br>"
  Response.End
End If
rs.Close

rs.open "Select * from chengji",conn,1,3

For j=1 to i
n=Cstr("nm"&j)
cj=Cstr("cj"&j)
stuid=Request(n)
cj=Request.Form(cj)
Response.Write "正在添加第"&j&"个成绩数据...<br>"
rs.AddNew
rs("classid")=classid
rs("jecid")=Cint(jecid)
rs("subid")=Cint(subid)
rs("stuid")=stuid
rs("cj")=cj
rs.Update
Next
rs.Close
Set rs=nothing
Set cj=nothing
Response.Write "<br>完成操作!"
%>