📄 savestudentlist.asp
字号:
<%option explicit%>
<!--#include file="Conn.asp"-->
<!--#include file="include/md5.asp"-->
<!--#include file="include/ReplaceHtml.asp"-->
<!--#include file="include/PublicFunction.asp"-->
<!--#include file="include/TeacherSession.asp"-->
<% call checkouterurl()
'强制浏览器重新访问服务器下载页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<html>
<head>
<title>保存分数 </title>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=gb2312">
</head>
<body bgcolor="white">
<%
Dim SqlNumber,ii,DoInsertSql,iii,TotalElementNum,ChechRepeatSql
SqlNumber=HtmlEncode(request.Form("StudentRsNum"))
'为了防止数据提交失败，必须保证表单中的每一项的数值都不为空，此处逐个校验表单中的每一个元素
TotalElementNum=(SqlNumber*2)+4 '此处的4代表是表单中除了分数元素之外，其余元素的数目
For iii=1 to TotalElementNum-1
IF request.Form(iii)="" then
Response.Write("<script>alert('数据不完整,无法保存,请您输入完成之后,再保存！');window.close(); </script>")
Response.End()
exit for
End IF
NEXT
'*******************************************************////批量添加学生列表代码
' 下面这段代码决定 如何处理当前表单提交过来的数据，
'根据term_id， department_id， teacher_id，class_id，subject_id这几个字段，
'使用count(*)筛选出符合这几个字段的记录的条数，如果记录数等于0，说明
'当前班级本学期的这门课程的成绩还没有添加，那么此时则执行添加数据的操作；
'如果记录数大于0，说明 当前班级本学期的这门课程的成绩已经添加过了，那么
'此时访问者提交数据的目的是修改数据，则应执行修改操作。
Dim Add_or_Edit,Add_or_Edit_Sql,CurrentScoreNum
Add_or_Edit_Sql="select count(*) from [student] where [department_id]='"&HtmlEncode(request.Form("department_id"))&"' and [teacher_id]='"&HtmlEncode(request.Form("teacher_id"))&"' and [class_id]='"&HtmlEncode(request.Form("class_id"))&"'"
Set Add_or_Edit=Initialize_Conn.execute(Add_or_Edit_Sql)
CurrentScoreNum=Add_or_Edit(0): Add_or_Edit.close: Set Add_or_Edit=nothing
'Response.Write(CurrentScoreNum)
IF CurrentScoreNum=0 Then 'or CurrentScoreNum < request.Form("StudentRsNum") Then
Call DoSaveScore()
else
Call DoEditScore()
End If
'***************************************************
'下面是数据入库代码,此处使用For循环依次向数据库中插入学生名单
Sub DoSaveScore()
Dim ChechRepeat,response_str
response_str=""
For ii=0 to SqlNumber-1
DoInsertSql="Insert into student(student_no,student_name,department_id,teacher_id,class_id) values('"&HtmlEncode(request.Form("StuNo"&ii))&"','"&HtmlEncode(request.Form("StuName"&ii))&"',"&HtmlEncode(request.Form("department_id"))&","&HtmlEncode(request.Form("teacher_id"))&","&HtmlEncode(request.Form("class_id"))&")"
ChechRepeatSql="select count(student_no) from [student] where [department_id]='"&HtmlEncode(request.Form("department_id"))&"' and [teacher_id]='"&HtmlEncode(request.Form("teacher_id"))&"' and [class_id]='"&HtmlEncode(request.Form("class_id"))&"' and [student_no]='"&HtmlEncode(request.Form("StuNo"&ii))&"'"
Set ChechRepeat=Initialize_Conn.execute(ChechRepeatSql)
If ChechRepeat(0) <> 0 then
response_str=response_str&"学号"&HtmlEncode(request.Form("StuNo"&ii))&"重复!"
else
Initialize_Conn.execute(DoInsertSql)
End if
NEXT
Response.Write "<script>alert('恭喜!学生列表保存成功."&response_str&"');window.close(); </script>"
' response.Write(response_str)
End Sub
'***************************************************
'下面是数据修改代码,此处使用For循环依次向数据库中学生名单
Sub DoEditScore()
Dim DoEditSql,iiii,ChechRepeat2,ChechRepeatSql2,response_str2
response_str2=""
For iiii=0 to SqlNumber-1
DoEditSql="Update [student] Set [student_no]='"&HtmlEncode(request.Form("StuNo"&iiii))&"',[student_name]='"&HtmlEncode(request.Form("StuName"&iiii))&"' where [department_id]='"&HtmlEncode(request.Form("department_id"))&"' and [teacher_id]='"&HtmlEncode(request.Form("teacher_id"))&"' and [class_id]='"&HtmlEncode(request.Form("class_id"))&"' and [student_id]='"&HtmlEncode(request.Form("StuID"&iiii))&"'"
ChechRepeatSql2="select count(student_no) from [student] where [department_id]='"&HtmlEncode(request.Form("department_id"))&"' and [teacher_id]='"&HtmlEncode(request.Form("teacher_id"))&"' and [class_id]='"&HtmlEncode(request.Form("class_id"))&"' and [student_no]='"&HtmlEncode(request.Form("StuNo"&iiii))&"'"
Set ChechRepeat2=Initialize_Conn.execute(ChechRepeatSql2)
If ChechRepeat2(0) > 1 then '此时说明编辑有错误，编辑学号重复了
response_str2=response_str2&"编辑 学号"&HtmlEncode(request.Form("StuNo"&iiii))&"重复!"
else
Initialize_Conn.execute(DoEditSql)
End if
'response.Write(DoEditSql&"<br> 1")
NEXT
If response_str2="" then
Response.Write "<script>alert('恭喜,学生列表编辑保存成功.');window.close();</script>"
else
Response.Write("<script>alert('错误，请返回检查!"&response_str2&"');window.close();</script>")
End If
'response.Write request.Form()&"<br>"
End Sub
'response.Write request.Form()&"<br>"
'response.Write request.Form("submit")
%>
</body>
</html>
<%'response.write request.form %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -