uscoresave.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 80 行

<!--#include file="conn.inc"-->


<%


'修改科目信息
uscore=request("uscore")
uid = request("uid")

markstand = trim(request("markstand"))
pmark = 100 - markstand
paperID = trim(request("paperID"))
uid = split(uid,",")

'response.Write("平分标准："&markstand&"<br>")
'response.Write("paper_ID:"&paperID&"<br>")
uscore=split(uscore,",")
i=ubound(uscore)
sql="select * from score_tand where Paper_ID = "&paperID
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("Paper_ID") = paperID
rs("UsualScoreRate") = markstand
rs("PaperScoreRate") = pmark
rs.update
else 
rs("UsualScoreRate") = markstand
rs("PaperScoreRate") = pmark
rs.update
end if
rs.close
set rs = nothing

for j=0 to i
vscore = trim(uscore(j))
vuid = trim(uid(j))


sql =  "select * from student_score where User_ID = "&vuid&" and Paper_ID = "&paperID&""

set scrs =server.createobject("adodb.recordset")
scrs.open sql,conn,3,2
 paperScore = 0
 if not scrs.eof then '更新平时成绩
 
 if vscore = "" then 
  
 scrs("UsaScore") = null
 vscore = 0 
 else
 scrs("UsaScore")=vscore
 end if
 paperScore = scrs("PaperScore")
  scrs("Score") = vscore * markstand/100 + pmark*paperScore/100


 else '添加平时成绩（第一次录入成绩）
 scrs.addnew
 scrs("User_ID") = vuid
 scrs("Paper_ID") = paperID
 if vscore = "" then 
  scrs("UsaScore") = null
  vscore = 0
  else
 scrs("UsaScore") = vscore
 end if
 scrs("Score") = vscore * markstand/100 + pmark*paperScore/100
 
 end if
  scrs.update
scrs.close
set scrs= nothing


next
response.redirect "enterScore.asp?radioPaperID="+ paperID
%>