📄 addscore.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>AddScore</title>
<!--#Include File="ErrorClass.asp"-->
<!--#Include File="Class.asp"--><LINK href="style.css" type="text/css" rel="stylesheet">
<%
'此段声明表示遇到错误即跳到下一句
On Error Resume Next
Dim stuc_Class,error_Class,cc_Class,gsid,gcid,gterm,gtype,gscore,Action
Set sc_Class = New ScoreClass '分数类
Set stuc_Class = New StudentClass '学生类
Set cc_Class = New CourseClass '课程类
Set error_Class = New ErrorClass
Action = "" '标识用户是否提交
Action = Trim(Request.QueryString("action"))
If Action <> "" Then
If getForm() = 1 Then
Call sc_Class.addScore(gsid,gcid,Cint(gscore),Cint(gterm),Cint(gtype))
If ERR.number <> 0 Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "录入数据时失败<br>"
Call error_Class.showMessage("AddScore.asp","失败")
Else
error_Class.Message = error_Class.Message & "录入分数成功<br>"
Call error_Class.showMessage("AddScore.asp","成功")
End If
Else
Call error_Class.showMessage("AddScore.asp","输入有误")
End If
End If
'功能：取得用户输入的信息
Function getForm()
gsid = trim(Request.Form("StudentID"))
gcid = trim(Request.Form("CourseID"))
gterm = trim(Request.Form("Term"))
gtype = trim(Request.Form("Type"))
gscore = trim(Request.Form("Score"))
If gsid = "" Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "学号不能为空！<br>"
End If
If gsid = "" Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "课程不能为空！<br>"
End If
If gterm = "" Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "学期不能为空！<br>"
End If
If gtype = "" Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "类型不能为空！<br>"
End If
If gscore = "" Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "分数不能为空！<br>"
ElseIf Not IsNumeric(gscore) Then
error_Class.Founderr = True
error_Class.Message = error_Class.Message & "分数必须为数字！<br>"
End If
If error_Class.Founderr = True Then
getForm = 0
Else
getForm = 1
End If
End Function
%>
</HEAD>
<body>
<FONT face="宋体"></FONT>
<br>
<br>
<br>
<form id="form1" name="form1" action="AddScore.asp?action=1" method="post">
<TABLE class="style1" cellSpacing="0" cellPadding="0" width="700" align="center" border="1">
<TR>
<TD align="center"><IMG src="image/toptitle.jpg"></TD>
</TR>
<TR>
<TD align="center" bgColor="#ff9933">添加成绩
</TD>
</TR>
<TR>
<TD align="center"><br>
<TABLE WIDTH="400" BORDER="1" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD>学号及姓名：</TD>
<TD><SELECT id="StudentID" name="StudentID">
<%Call stuc_Class.getAllStudent()
If not stuc_Class.dbc_Class.Rs.EOF Then
While not stuc_Class.dbc_Class.Rs.EOF
%>
<OPTION value="<%=stuc_Class.dbc_Class.Rs("ID")%>"><%=stuc_Class.dbc_Class.Rs("ID")%>(<%=stuc_Class.dbc_Class.Rs("Name")%>)</OPTION>
<% stuc_Class.dbc_Class.Rs.MoveNext()
Wend
Else
%>
<OPTION value="0" selected>无学生数据</OPTION>
<%End If
stuc_Class.dbc_Class.CloseConn()
%>
</SELECT></TD>
</TR>
<TR>
<TD>学科：</TD>
<TD><SELECT id="CourseID" name="CourseID">
<%Call cc_Class.getAllCourse()
If not cc_Class.dbc_Class.Rs.EOF Then
While not cc_Class.dbc_Class.Rs.EOF
%>
<OPTION value="<%=cc_Class.dbc_Class.Rs("ID")%>"><%=cc_Class.dbc_Class.Rs("Name")%>(<%=cc_Class.dbc_Class.Rs("TeacherName")%>)</OPTION>
<% cc_Class.dbc_Class.Rs.MoveNext()
Wend
Else
%>
<OPTION value="0" selected>无课程数据</OPTION>
<%End If
cc_Class.dbc_Class.CloseConn()
%>
</SELECT></TD>
</TR>
<TR>
<TD>学期：</TD>
<TD><SELECT id="Term" name="Term">
<OPTION value="1" selected>一年级上学期</OPTION>
<OPTION value="2">一年级下学期</OPTION>
<OPTION value="3">二年级上学期</OPTION>
<OPTION value="4">二年级下学期</OPTION>
<OPTION value="5">三年级上学期</OPTION>
<OPTION value="6">三年级下学期</OPTION>
<OPTION value="7">四年级上学期</OPTION>
<OPTION value="8">四年级下学期</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>类型：</TD>
<TD><SELECT id="Type" name="Type">
<OPTION selected value="1">正常考试</OPTION>
<OPTION value="2">补考</OPTION>
</SELECT></TD>
</TR>
<TR>
<TD>成绩：</TD>
<TD><INPUT id="Score" type="text" name="Score"></TD>
</TR>
<TR>
<TD colspan="2" align="center"><INPUT id="Submit1" type="submit" value="提 交" name="Submit1" class="style1"> <FONT face="宋体">
</FONT><INPUT id="Reset1" type="reset" value="重 填" name="Reset1" class="style1"></TD>
</TR>
</TABLE>
<br>
</TD>
</TR>
<TR>
<TD align="left" bgColor="#ff9930"> <FONT face="宋体"><IMG height="25" src="image/29.gif" width="30" border="0">
<INPUT class="style1" id="Button2" onclick="javascript:window.open('message.asp','message')"
type="button" value="留言本" name="message"> </FONT> </TD>
</TR>
</TABLE>
</form>
<hr width="700" color="#666666" SIZE="1">
<P align="center"><FONT size="2">程序设计——<A href="mailto:ymhdhlf@163.com">黄 雷</A></FONT></P>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -