📄 add_score.asp
字号:
<!--#include file="Stu_conn.asp"--> <%//包含连接数据库的文件%>
<!--#include file="ChkFun.asp"--> <%//包含核查信息完整的文件%>
<HTML>
<HEAD>
<style type="text/css"> <%//定义字体和链接的样式%>
<!--
td{
FONT-SIZE: 12px;COLOR: #000000; FONT-FAMILY: verdana; line-height:14pt
}
-->
</style>
<TITLE>增加学生的分数</TITLE>
</HEAD>
<BODY>
<H3>增加学生的分数</H3>
<%
ShiJian = Now()
StuMum_Str = Month(ShiJian)&Day(ShiJian)&Hour(ShiJian)&Second(ShiJian)&Minute(ShiJian)
Action= request.QueryString("Action")
Select Case Action
Case "Add_Score"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from student ",conn,1,3
rs.addNew
rs("StuNum") = StuMum_Str
rs("StuName") = request("StuName")
rs("Chinese") = request("Chinese")
rs("Maths") = request("Maths")
rs("English") = request("English")
rs("SumScore")= rs("Chinese")+rs("Maths")+rs("English")
rs.update
rs.close
set rs=nothing
response.Redirect "List_Stu.asp"
Case ""
%>
<table width="98%" border="1" align=center cellspacing="0" cellpadding="3" bordercolordark="#FFFFFF" bordercolorlight="#666666">
<form name="form1" method="post" action="Add_Score.asp?action=Add_Score">
<tr>
<td bgcolor="#666666" align=center><font color="#ffffff">姓名</td>
<td><input type=Text name=StuName></td>
<td bgcolor="#666666" align=center><font color="#ffffff">语文</td>
<td><input type=Text name=Chinese></td>
</tr>
<tr>
<td bgcolor="#666666" align=center><font color="#ffffff">数学</td>
<td><input type=Text name=Maths></td>
<td bgcolor="#666666" align=center><font color="#ffffff">英语</td>
<td><input type=Text name=English></td>
</tr>
<tr>
<td colspan=4 align=center><input type=Submit name=Sbt_Score value="提交" onClick="return ChkStu();">
<input type=Reset name=Sbt_Rset value="重置"> <%//确定修改前，先通过ChkStu()核查必填项%>
</tr>
</form>
</table>
<% End Select %>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -